Return to mkBasic.tcl CVS log

Up to [Micropolis - Activity] / micropolis / src / tk / library / demos

Annotation of micropolis/src/tk/library/demos/mkBasic.tcl, revision 1.1.1.1

1.1       root        1: # mkBasic w
                      2: #
                      3: # Create a top-level window that displays a basic text widget.
                      4: #
                      5: # Arguments:
                      6: #    w -       Name to use for new top-level window.
                      7: 
                      8: proc mkBasic {{w .basic}} {
                      9:     catch {destroy $w}
                     10:     toplevel $w
                     11:     dpos $w
                     12:     wm title $w "Text Demonstration - Basic Facilities"
                     13:     wm iconname $w "Text Basics"
                     14:     button $w.ok -text OK -command "destroy $w"
                     15:     text $w.t -relief raised -bd 2 -yscrollcommand "$w.s set" -setgrid true
                     16:     scrollbar $w.s -relief flat -command "$w.t yview"
                     17:     pack append $w $w.ok {bottom fillx} $w.s {right filly} $w.t {expand fill}
                     18:     $w.t insert 0.0 {\
                     19: This window is a text widget.  It displays one or more lines of text
                     20: and allows you to edit the text.  Here is a summary of the things you
                     21: can do to a text widget:
                     22: 
                     23: 1. Scrolling. Use the scrollbar to adjust the view in the text window.
                     24: 
                     25: 2. Scanning. Press mouse button 2 in the text window and drag up or down.
                     26: This will drag the text at high speed to allow you to scan its contents.
                     27: 
                     28: 3. Insert text. Press mouse button 1 to set the insertion cursor, then
                     29: type text.  What you type will be added to the widget.  You can backspace
                     30: over what you've typed using either the backspace key, the delete key,
                     31: or Control+h.
                     32: 
                     33: 4. Select. Press mouse button 1 and drag to select a range of characters.
                     34: Once you've released the button, you can adjust the selection by pressing
                     35: button 1 with the shift key down.  This will reset the end of the
                     36: selection nearest the mouse cursor and you can drag that end of the
                     37: selection by dragging the mouse before releasing the mouse button.
                     38: You can double-click to select whole words, or triple-click to select
                     39: whole lines.
                     40: 
                     41: 5. Delete. To delete text, select the characters you'd like to delete
                     42: and type Control+d.
                     43: 
                     44: 6. Copy the selection. To copy the selection either from this window
                     45: or from any other window or application, select what you want, click
                     46: button 1 to set the insertion cursor, then type Control+v to copy the
                     47: selection to the point of the insertion cursor.
                     48: 
                     49: 7. Resize the window.  This widget has been configured with the "setGrid"
                     50: option on, so that if you resize the window it will always resize to an
                     51: even number of characters high and wide.  Also, if you make the window
                     52: narrow you can see that long lines automatically wrap around onto
                     53: additional lines so that all the information is always visible.
                     54: 
                     55: When you're finished with this demonstration, press the "OK" button
                     56: below.}
                     57:     $w.t mark set insert 0.0
                     58:     bind $w <Any-Enter> "focus $w.t"
                     59: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.