diff options
Diffstat (limited to 'tk8.6/library/demos/text.tcl')
| -rw-r--r-- | tk8.6/library/demos/text.tcl | 111 |
1 files changed, 0 insertions, 111 deletions
diff --git a/tk8.6/library/demos/text.tcl b/tk8.6/library/demos/text.tcl deleted file mode 100644 index d1801d1..0000000 --- a/tk8.6/library/demos/text.tcl +++ /dev/null @@ -1,111 +0,0 @@ -# text.tcl -- -# -# This demonstration script creates a text widget that describes -# the basic editing functions. - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .text -catch {destroy $w} -toplevel $w -wm title $w "Text Demonstration - Basic Facilities" -wm iconname $w "text" -positionWindow $w - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w {} \ - {ttk::button $w.buttons.fontchooser -command fontchooserToggle}] -pack $btns -side bottom -fill x - -text $w.text -yscrollcommand [list $w.scroll set] -setgrid 1 \ - -height 30 -undo 1 -autosep 1 -ttk::scrollbar $w.scroll -command [list $w.text yview] -pack $w.scroll -side right -fill y -pack $w.text -expand yes -fill both - -# TIP 324 Demo: [tk fontchooser] -proc fontchooserToggle {} { - tk fontchooser [expr {[tk fontchooser configure -visible] ? - "hide" : "show"}] -} -proc fontchooserVisibility {w} { - $w configure -text [expr {[tk fontchooser configure -visible] ? - "Hide Font Dialog" : "Show Font Dialog"}] -} -proc fontchooserFocus {w} { - tk fontchooser configure -font [$w cget -font] \ - -command [list fontchooserFontSel $w] -} -proc fontchooserFontSel {w font args} { - $w configure -font [font actual $font] -} -tk fontchooser configure -parent $w -bind $w.text <FocusIn> [list fontchooserFocus $w.text] -fontchooserVisibility $w.buttons.fontchooser -bind $w <<TkFontchooserVisibility>> [list \ - fontchooserVisibility $w.buttons.fontchooser] -focus $w.text - -$w.text insert 0.0 \ -{This window is a text widget. It displays one or more lines of text -and allows you to edit the text. Here is a summary of the things you -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. - -3. Insert text. Press mouse button 1 to set the insertion cursor, then -type text. What you type will be added to the widget. - -4. Select. Press mouse button 1 and drag to select a range of characters. -Once you've released the button, you can adjust the selection by pressing -button 1 with the shift key down. This will reset the end of the -selection nearest the mouse cursor and you can drag that end of the -selection by dragging the mouse before releasing the mouse button. -You can double-click to select whole words or triple-click to select -whole lines. - -5. Delete and replace. To delete text, select the characters you'd like -to delete and type Backspace or Delete. Alternatively, you can type new -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. - -7. Edit. Text widgets support the standard Motif editing characters -plus many Emacs editing characters. Backspace and Control-h erase the -character to the left of the insertion cursor. Delete and Control-d -erase the character to the right of the insertion cursor. Meta-backspace -deletes the word to the left of the insertion cursor, and Meta-d deletes -the word to the right of the insertion cursor. Control-k deletes from -the insertion cursor to the end of the line, or it deletes the newline -character if that is the only thing left on the line. Control-o opens -a new line by inserting a newline character to the right of the insertion -cursor. Control-t transposes the two characters on either side of the -insertion cursor. Control-z undoes the last editing action performed, -and } - -switch [tk windowingsystem] { - "aqua" - "x11" { - $w.text insert end "Control-Shift-z" - } - "win32" { - $w.text insert end "Control-y" - } -} - -$w.text insert end { redoes undone edits. - -7. Resize the window. This widget has been configured with the "setGrid" -option on, so that if you resize the window it will always resize to an -even number of characters high and wide. Also, if you make the window -narrow you can see that long lines automatically wrap around onto -additional lines so that all the information is always visible.} -$w.text mark set insert 0.0 |