diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-10-17 19:50:58 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-10-17 19:50:58 (GMT) |
commit | 9b7a6c3507ea3383c60aaecb29f873c9b590ccca (patch) | |
tree | 82ce31ebd8f46803d969034f5aa3db8d7974493c /tk8.6/library/demos/textpeer.tcl | |
parent | 87fca7325b97005eb44dcf3e198277640af66115 (diff) | |
download | blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.zip blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.tar.gz blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.tar.bz2 |
rm tcl/tk 8.6.7
Diffstat (limited to 'tk8.6/library/demos/textpeer.tcl')
-rw-r--r-- | tk8.6/library/demos/textpeer.tcl | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/tk8.6/library/demos/textpeer.tcl b/tk8.6/library/demos/textpeer.tcl deleted file mode 100644 index 83e8e14..0000000 --- a/tk8.6/library/demos/textpeer.tcl +++ /dev/null @@ -1,62 +0,0 @@ -# textpeer.tcl -- -# -# This demonstration script creates a pair of text widgets that can edit a -# single logical buffer. This is particularly useful when editing related text -# in two (or more) parts of the same file. - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .textpeer -catch {destroy $w} -toplevel $w -wm title $w "Text Widget Peering Demonstration" -wm iconname $w "textpeer" -positionWindow $w - -set count 0 - -## Define a widget that we peer from; it won't ever actually be shown though -set first [text $w.text[incr count]] -$first insert end "This is a coupled pair of text widgets; they are peers to " -$first insert end "each other. They have the same underlying data model, but " -$first insert end "can show different locations, have different current edit " -$first insert end "locations, and have different selections. You can also " -$first insert end "create additional peers of any of these text widgets using " -$first insert end "the Make Peer button beside the text widget to clone, and " -$first insert end "delete a particular peer widget using the Delete Peer " -$first insert end "button." - -## Procedures to make and kill clones; most of this is just so that the demo -## looks nice... -proc makeClone {w parent} { - global count - set t [$parent peer create $w.text[incr count] -yscroll "$w.sb$count set"\ - -height 10 -wrap word] - set sb [ttk::scrollbar $w.sb$count -command "$t yview" -orient vertical] - set b1 [button $w.clone$count -command "makeClone $w $t" \ - -text "Make Peer"] - set b2 [button $w.kill$count -command "killClone $w $count" \ - -text "Delete Peer"] - set row [expr {$count * 2}] - grid $t $sb $b1 -sticky nsew -row $row - grid ^ ^ $b2 -row [incr row] - grid configure $b1 $b2 -sticky new - grid rowconfigure $w $b2 -weight 1 -} -proc killClone {w count} { - destroy $w.text$count $w.sb$count - destroy $w.clone$count $w.kill$count -} - -## Now set up the GUI -makeClone $w $first -makeClone $w $first -destroy $first - -## See Code / Dismiss buttons -grid [addSeeDismiss $w.buttons $w] - - -sticky ew -row 5000 -grid columnconfigure $w 0 -weight 1 |