diff options
author | culler <culler> | 2020-04-15 17:24:51 (GMT) |
---|---|---|
committer | culler <culler> | 2020-04-15 17:24:51 (GMT) |
commit | ef67d7e478dcdd96b095c80fbf1d95330ee35117 (patch) | |
tree | fc8f026a7f5ad5bdbe8b27f50f3d07c3195c0c4b /library/demos | |
parent | f098336486ba362a5b694d93a949fe6e8b23891a (diff) | |
download | tk-ef67d7e478dcdd96b095c80fbf1d95330ee35117.zip tk-ef67d7e478dcdd96b095c80fbf1d95330ee35117.tar.gz tk-ef67d7e478dcdd96b095c80fbf1d95330ee35117.tar.bz2 |
Apply a patch from Christopher Chavez which correctly deals with the fact that Apple uses the middle mouse button for Button 3.
Diffstat (limited to 'library/demos')
-rw-r--r-- | library/demos/entry1.tcl | 2 | ||||
-rw-r--r-- | library/demos/entry2.tcl | 2 | ||||
-rw-r--r-- | library/demos/text.tcl | 8 |
3 files changed, 7 insertions, 5 deletions
diff --git a/library/demos/entry1.tcl b/library/demos/entry1.tcl index eef8964..7365fc7 100644 --- a/library/demos/entry1.tcl +++ b/library/demos/entry1.tcl @@ -16,7 +16,7 @@ wm title $w "Entry Demonstration (no scrollbars)" wm iconname $w "entry1" positionWindow $w -label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries by dragging with mouse button2 pressed." +label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries by dragging with mouse the middle mouse button pressed." pack $w.msg -side top ## See Code / Dismiss buttons diff --git a/library/demos/entry2.tcl b/library/demos/entry2.tcl index 9e3f4ef..6405d85 100644 --- a/library/demos/entry2.tcl +++ b/library/demos/entry2.tcl @@ -16,7 +16,7 @@ wm title $w "Entry Demonstration (with scrollbars)" wm iconname $w "entry2" positionWindow $w -label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below, with a scrollbar for each entry. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries with the scrollbars, or by dragging with mouse button2 pressed." +label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below, with a scrollbar for each entry. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries with the scrollbars, or by dragging with the middle mouse button pressed." pack $w.msg -side top ## See Code / Dismiss buttons diff --git a/library/demos/text.tcl b/library/demos/text.tcl index d1801d1..2736b88 100644 --- a/library/demos/text.tcl +++ b/library/demos/text.tcl @@ -57,8 +57,9 @@ can do to a text widget: 1. Scrolling. Use the scrollbar to adjust the view in the text window. -2. Scanning. Press mouse button 2 in the text window and drag up or down. -This will drag the text at high speed to allow you to scan its contents. +2. Scanning. Press the middle mouse button in the text window and drag up +or down. This will drag the text at high speed to allow you to scan its +contents. 3. Insert text. Press mouse button 1 to set the insertion cursor, then type text. What you type will be added to the widget. @@ -77,7 +78,8 @@ text, in which case it will replace the selected text. 6. Copy the selection. To copy the selection into this window, select what you want to copy (either here or in another application), then -click button 2 to copy the selection to the point of the mouse cursor. +click the middle mouse button to copy the selection to the point of the +mouse cursor. 7. Edit. Text widgets support the standard Motif editing characters plus many Emacs editing characters. Backspace and Control-h erase the |