Hi all !
I added mouse wheel support to the `xconfig` program.
It is the straight forward solution : just assign the existing
actions to the wheel buttons.
It applies cleanly to 2.5.4[45] and 2.4.1[789] (and therefore
probably to a lot more).
Bernd
--- linux-2.5.45/scripts/tkgen.c-orig Sun Jan 13 15:55:11 2002
+++ linux-2.5.45/scripts/tkgen.c Sun Jan 13 16:02:34 2002
@@ -197,6 +197,7 @@
* previous options
*/
printf( "\tbind all <Alt-n> \"puts \\\"no more menus\\\" \"\n");
+ printf( "\tbind $w <Alt-Button-5> \"puts \\\"no more menus\\\" \"\n");
}
else
{
@@ -204,6 +205,7 @@
* I should be binding to $w not all - but if I do nehat I get the error "unknown path"
*/
printf( "\tbind all <Alt-n> $nextscript\n");
+ printf( "\tbind $w <Alt-Button-5> $nextscript\n");
}
printf( "\tbutton $w.f.prev -text \"Prev\" -underline 0\\\n" );
printf( "\t\t-width 15 -command \"catch {focus $oldFocus}; destroy $w; unregister_active %d; menu%d .menu%d \\\"$title\\\"\"\n",
@@ -215,6 +217,8 @@
{
printf( "\tbind $w <Alt-p> \"catch {focus $oldFocus}; destroy $w; unregister_active %d; menu%d .menu%d \\\"$title\\\";break\"\n",
menu_num, menu_num-1, menu_num-1 );
+ printf( "\tbind $w <Alt-Button-4> \"catch {focus $oldFocus}; destroy $w; unregister_active %d; menu%d .menu%d \\\"$title\\\";break\"\n",
+ menu_num, menu_num-1, menu_num-1 );
}
printf( "\tpack $w.f.back $w.f.next $w.f.prev -side left -expand on\n" );
printf( "\tpack $w.f -pady 10 -side bottom -anchor w -fill x\n" );
@@ -243,11 +247,17 @@
printf( "\t\t-width [expr [winfo screenwidth .] * 1 / 2] \n" );
printf( "\tframe $w.config.f\n" );
printf( "\tbind $w <Key-Down> \"$w.config.canvas yview scroll 1 unit;break;\"\n");
+ printf( "\tbind $w <Shift-Button-5> \"$w.config.canvas yview scroll 1 unit;break;\"\n");
+ printf( "\tbind $w <Button-5> \"$w.config.canvas yview scroll 5 unit;break;\"\n");
printf( "\tbind $w <Key-Up> \"$w.config.canvas yview scroll -1 unit;break;\"\n");
+ printf( "\tbind $w <Shift-Button-4> \"$w.config.canvas yview scroll -1 unit;break;\"\n");
+ printf( "\tbind $w <Button-4> \"$w.config.canvas yview scroll -5 unit;break;\"\n");
printf( "\tbind $w <Key-Next> \"$w.config.canvas yview scroll 1 page;break;\"\n");
printf( "\tbind $w <Key-Prior> \"$w.config.canvas yview scroll -1 page;break;\"\n");
printf( "\tbind $w <Key-Home> \"$w.config.canvas yview moveto 0;break;\"\n");
+ printf( "\tbind $w <Control-Button-4> \"$w.config.canvas yview moveto 0;break;\"\n");
printf( "\tbind $w <Key-End> \"$w.config.canvas yview moveto 1 ;break;\"\n");
+ printf( "\tbind $w <Control-Button-5> \"$w.config.canvas yview moveto 1 ;break;\"\n");
printf( "\tpack $w.config.canvas -side right -fill y\n" );
printf("\n\n");
}
Bernd Petrovitsch Email : [EMAIL PROTECTED]
g.a.m.s gmbh Fax : +43 1 205255-900
Prinz-Eugen-Straße 8 A-1040 Vienna/Austria/Europe
LUGA : http://www.luga.at
