OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
tcltk
/
tk8.6
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
bgerror.tcl
8.05 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
button.tcl
20.16 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
choosedir.tcl
9.43 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
clrpick.tcl
20.93 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
comdlg.tcl
8.04 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
console.tcl
32.02 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
dialog.tcl
5.88 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
entry.tcl
16.55 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
focus.tcl
4.74 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
fontchooser.tcl
15.47 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
iconlist.tcl
15.6 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
icons.tcl
10.63 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
images
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
listbox.tcl
14.25 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
megawidget.tcl
9.34 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
menu.tcl
37.12 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
mkpsenc.tcl
28.66 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
msgbox.tcl
16.08 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
msgs
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
obsolete.tcl
5.46 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
optMenu.tcl
1.55 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
palette.tcl
7.74 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
panedwindow.tcl
5.05 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
safetk.tcl
7.21 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scale.tcl
7.58 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scrlbar.tcl
12.45 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
spinbox.tcl
15.27 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tclIndex
19.79 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tearoff.tcl
5.02 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
text.tcl
32.31 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tk.tcl
22.6 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tkAppInit.c
4.09 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tkfbox.tcl
37.47 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
ttk
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
unsupported.tcl
10.01 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
xmfbox.tcl
25.46 KB
03/24/2018 06:42:17 PM
rw-r--r--
Editing: panedwindow.tcl
Close
# panedwindow.tcl -- # # This file defines the default bindings for Tk panedwindow widgets and # provides procedures that help in implementing those bindings. bind Panedwindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 } bind Panedwindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 } bind Panedwindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 } bind Panedwindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 } bind Panedwindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1} bind Panedwindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0} bind Panedwindow <Motion> { ::tk::panedwindow::Motion %W %x %y } bind Panedwindow <Leave> { ::tk::panedwindow::Leave %W } # Initialize namespace namespace eval ::tk::panedwindow {} # ::tk::panedwindow::MarkSash -- # # Handle marking the correct sash for possible dragging # # Arguments: # w the widget # x widget local x coord # y widget local y coord # proxy whether this should be a proxy sash # Results: # None # proc ::tk::panedwindow::MarkSash {w x y proxy} { variable ::tk::Priv if {[$w cget -opaqueresize]} { set proxy 0 } set what [$w identify $x $y] if { [llength $what] == 2 } { lassign $what index which if {!$::tk_strictMotif || $which eq "handle"} { if {!$proxy} { $w sash mark $index $x $y } set Priv(sash) $index lassign [$w sash coord $index] sx sy set Priv(dx) [expr {$sx-$x}] set Priv(dy) [expr {$sy-$y}] # Do this to init the proxy location DragSash $w $x $y $proxy } } } # ::tk::panedwindow::DragSash -- # # Handle dragging of the correct sash # # Arguments: # w the widget # x widget local x coord # y widget local y coord # proxy whether this should be a proxy sash # Results: # Moves sash # proc ::tk::panedwindow::DragSash {w x y proxy} { variable ::tk::Priv if {[$w cget -opaqueresize]} { set proxy 0 } if {[info exists Priv(sash)]} { if {$proxy} { $w proxy place [expr {$x+$Priv(dx)}] [expr {$y+$Priv(dy)}] } else { $w sash place $Priv(sash) \ [expr {$x+$Priv(dx)}] [expr {$y+$Priv(dy)}] } } } # ::tk::panedwindow::ReleaseSash -- # # Handle releasing of the sash # # Arguments: # w the widget # proxy whether this should be a proxy sash # Results: # Returns ... # proc ::tk::panedwindow::ReleaseSash {w proxy} { variable ::tk::Priv if {[$w cget -opaqueresize]} { set proxy 0 } if {[info exists Priv(sash)]} { if {$proxy} { lassign [$w proxy coord] x y $w sash place $Priv(sash) $x $y $w proxy forget } unset Priv(sash) Priv(dx) Priv(dy) } } # ::tk::panedwindow::Motion -- # # Handle motion on the widget. This is used to change the cursor # when the user moves over the sash area. # # Arguments: # w the widget # x widget local x coord # y widget local y coord # Results: # May change the cursor. Sets up a timer to verify that we are still # over the widget. # proc ::tk::panedwindow::Motion {w x y} { variable ::tk::Priv set id [$w identify $x $y] if {([llength $id] == 2) && \ (!$::tk_strictMotif || [lindex $id 1] eq "handle")} { if {![info exists Priv($w,panecursor)]} { set Priv($w,panecursor) [$w cget -cursor] if {[$w cget -sashcursor] ne ""} { $w configure -cursor [$w cget -sashcursor] } elseif {[$w cget -orient] eq "horizontal"} { $w configure -cursor sb_h_double_arrow } else { $w configure -cursor sb_v_double_arrow } if {[info exists Priv($w,pwAfterId)]} { after cancel $Priv($w,pwAfterId) } set Priv($w,pwAfterId) [after 150 \ [list ::tk::panedwindow::Cursor $w]] } return } if {[info exists Priv($w,panecursor)]} { $w configure -cursor $Priv($w,panecursor) unset Priv($w,panecursor) } } # ::tk::panedwindow::Cursor -- # # Handles returning the normal cursor when we are no longer over the # sash area. This needs to be done this way, because the panedwindow # won't see Leave events when the mouse moves from the sash to a # paned child, although the child does receive an Enter event. # # Arguments: # w the widget # Results: # May restore the default cursor, or schedule a timer to do it. # proc ::tk::panedwindow::Cursor {w} { variable ::tk::Priv # Make sure to check window existence in case it is destroyed. if {[info exists Priv($w,panecursor)] && [winfo exists $w]} { if {[winfo containing [winfo pointerx $w] [winfo pointery $w]] eq $w} { set Priv($w,pwAfterId) [after 150 \ [list ::tk::panedwindow::Cursor $w]] } else { $w configure -cursor $Priv($w,panecursor) unset Priv($w,panecursor) if {[info exists Priv($w,pwAfterId)]} { after cancel $Priv($w,pwAfterId) unset Priv($w,pwAfterId) } } } } # ::tk::panedwindow::Leave -- # # Return to default cursor when leaving the pw widget. # # Arguments: # w the widget # Results: # Restores the default cursor # proc ::tk::panedwindow::Leave {w} { variable ::tk::Priv if {[info exists Priv($w,panecursor)]} { $w configure -cursor $Priv($w,panecursor) unset Priv($w,panecursor) } }