Server IP : 103.119.228.120 / Your IP : 3.133.108.224 Web Server : Apache System : Linux v8.techscape8.com 3.10.0-1160.119.1.el7.tuxcare.els2.x86_64 #1 SMP Mon Jul 15 12:09:18 UTC 2024 x86_64 User : nobody ( 99) PHP Version : 5.6.40 Disable Function : shell_exec,symlink,system,exec,proc_get_status,proc_nice,proc_terminate,define_syslog_variables,syslog,openlog,closelog,escapeshellcmd,passthru,ocinum cols,ini_alter,leak,listen,chgrp,apache_note,apache_setenv,debugger_on,debugger_off,ftp_exec,dl,dll,myshellexec,proc_open,socket_bind,proc_close,escapeshellarg,parse_ini_filepopen,fpassthru,exec,passthru,escapeshellarg,escapeshellcmd,proc_close,proc_open,ini_alter,popen,show_source,proc_nice,proc_terminate,proc_get_status,proc_close,pfsockopen,leak,apache_child_terminate,posix_kill,posix_mkfifo,posix_setpgid,posix_setsid,posix_setuid,dl,symlink,shell_exec,system,dl,passthru,escapeshellarg,escapeshellcmd,myshellexec,c99_buff_prepare,c99_sess_put,fpassthru,getdisfunc,fx29exec,fx29exec2,is_windows,disp_freespace,fx29sh_getupdate,fx29_buff_prepare,fx29_sess_put,fx29shexit,fx29fsearch,fx29ftpbrutecheck,fx29sh_tools,fx29sh_about,milw0rm,imagez,sh_name,myshellexec,checkproxyhost,dosyayicek,c99_buff_prepare,c99_sess_put,c99getsource,c99sh_getupdate,c99fsearch,c99shexit,view_perms,posix_getpwuid,posix_getgrgid,posix_kill,parse_perms,parsesort,view_perms_color,set_encoder_input,ls_setcheckboxall,ls_reverse_all,rsg_read,rsg_glob,selfURL,dispsecinfo,unix2DosTime,addFile,system,get_users,view_size,DirFiles,DirFilesWide,DirPrintHTMLHeaders,GetFilesTotal,GetTitles,GetTimeTotal,GetMatchesCount,GetFileMatchesCount,GetResultFiles,fs_copy_dir,fs_copy_obj,fs_move_dir,fs_move_obj,fs_rmdir,SearchText,getmicrotime MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/ssl/local/ssl/local/ssl/local/ssl/local/ssl/local/ssl/share/tk8.5/ttk/ |
Upload File : |
# # ttk::treeview widget bindings and utilities. # namespace eval ttk::treeview { variable State # Enter/Leave/Motion # set State(activeWidget) {} set State(activeHeading) {} # Press/drag/release: # set State(pressMode) none set State(pressX) 0 # For pressMode == "resize" set State(resizeColumn) #0 # For pressmode == "heading" set State(heading) {} } ### Widget bindings. # bind Treeview <Motion> { ttk::treeview::Motion %W %x %y } bind Treeview <B1-Leave> { #nothing } bind Treeview <Leave> { ttk::treeview::ActivateHeading {} {}} bind Treeview <ButtonPress-1> { ttk::treeview::Press %W %x %y } bind Treeview <Double-ButtonPress-1> { ttk::treeview::DoubleClick %W %x %y } bind Treeview <ButtonRelease-1> { ttk::treeview::Release %W %x %y } bind Treeview <B1-Motion> { ttk::treeview::Drag %W %x %y } bind Treeview <KeyPress-Up> { ttk::treeview::Keynav %W up } bind Treeview <KeyPress-Down> { ttk::treeview::Keynav %W down } bind Treeview <KeyPress-Right> { ttk::treeview::Keynav %W right } bind Treeview <KeyPress-Left> { ttk::treeview::Keynav %W left } bind Treeview <KeyPress-Prior> { %W yview scroll -1 pages } bind Treeview <KeyPress-Next> { %W yview scroll 1 pages } bind Treeview <KeyPress-Return> { ttk::treeview::ToggleFocus %W } bind Treeview <KeyPress-space> { ttk::treeview::ToggleFocus %W } bind Treeview <Shift-ButtonPress-1> \ { ttk::treeview::Select %W %x %y extend } bind Treeview <Control-ButtonPress-1> \ { ttk::treeview::Select %W %x %y toggle } ttk::copyBindings TtkScrollable Treeview ### Binding procedures. # ## Keynav -- Keyboard navigation # # @@@ TODO: verify/rewrite up and down code. # proc ttk::treeview::Keynav {w dir} { set focus [$w focus] if {$focus eq ""} { return } switch -- $dir { up { if {[set up [$w prev $focus]] eq ""} { set focus [$w parent $focus] } else { while {[$w item $up -open] && [llength [$w children $up]]} { set up [lindex [$w children $up] end] } set focus $up } } down { if {[$w item $focus -open] && [llength [$w children $focus]]} { set focus [lindex [$w children $focus] 0] } else { set up $focus while {$up ne "" && [set down [$w next $up]] eq ""} { set up [$w parent $up] } set focus $down } } left { if {[$w item $focus -open] && [llength [$w children $focus]]} { CloseItem $w $focus } else { set focus [$w parent $focus] } } right { OpenItem $w $focus } } if {$focus != {}} { SelectOp $w $focus choose } } ## Motion -- pointer motion binding. # Sets cursor, active element ... # proc ttk::treeview::Motion {w x y} { set cursor {} set activeHeading {} switch -- [$w identify region $x $y] { separator { set cursor hresize } heading { set activeHeading [$w identify column $x $y] } } ttk::setCursor $w $cursor ActivateHeading $w $activeHeading } ## ActivateHeading -- track active heading element # proc ttk::treeview::ActivateHeading {w heading} { variable State if {$w != $State(activeWidget) || $heading != $State(activeHeading)} { if {$State(activeHeading) != {}} { $State(activeWidget) heading $State(activeHeading) state !active } if {$heading != {}} { $w heading $heading state active } set State(activeHeading) $heading set State(activeWidget) $w } } ## Select $w $x $y $selectop # Binding procedure for selection operations. # See "Selection modes", below. # proc ttk::treeview::Select {w x y op} { if {[set item [$w identify row $x $y]] ne "" } { SelectOp $w $item $op } } ## DoubleClick -- Double-ButtonPress-1 binding. # proc ttk::treeview::DoubleClick {w x y} { if {[set row [$w identify row $x $y]] ne ""} { Toggle $w $row } else { Press $w $x $y ;# perform single-click action } } ## Press -- ButtonPress binding. # proc ttk::treeview::Press {w x y} { focus $w switch -- [$w identify region $x $y] { nothing { } heading { heading.press $w $x $y } separator { resize.press $w $x $y } tree - cell { set item [$w identify item $x $y] SelectOp $w $item choose switch -glob -- [$w identify element $x $y] { *indicator - *disclosure { Toggle $w $item } } } } } ## Drag -- B1-Motion binding # proc ttk::treeview::Drag {w x y} { variable State switch $State(pressMode) { resize { resize.drag $w $x } heading { heading.drag $w $x $y } } } proc ttk::treeview::Release {w x y} { variable State switch $State(pressMode) { resize { resize.release $w $x } heading { heading.release $w } } set State(pressMode) none Motion $w $x $y } ### Interactive column resizing. # proc ttk::treeview::resize.press {w x y} { variable State set State(pressMode) "resize" set State(resizeColumn) [$w identify column $x $y] } proc ttk::treeview::resize.drag {w x} { variable State $w drag $State(resizeColumn) $x } proc ttk::treeview::resize.release {w x} { # no-op } ### Heading activation. # proc ttk::treeview::heading.press {w x y} { variable State set column [$w identify column $x $y] set State(pressMode) "heading" set State(heading) $column $w heading $column state pressed } proc ttk::treeview::heading.drag {w x y} { variable State if { [$w identify region $x $y] eq "heading" && [$w identify column $x $y] eq $State(heading) } { $w heading $State(heading) state pressed } else { $w heading $State(heading) state !pressed } } proc ttk::treeview::heading.release {w} { variable State if {[lsearch -exact [$w heading $State(heading) state] pressed] >= 0} { after 0 [$w heading $State(heading) -command] } $w heading $State(heading) state !pressed } ### Selection modes. # ## SelectOp $w $item [ choose | extend | toggle ] -- # Dispatch to appropriate selection operation # depending on current value of -selectmode. # proc ttk::treeview::SelectOp {w item op} { select.$op.[$w cget -selectmode] $w $item } ## -selectmode none: # proc ttk::treeview::select.choose.none {w item} { $w focus $item } proc ttk::treeview::select.toggle.none {w item} { $w focus $item } proc ttk::treeview::select.extend.none {w item} { $w focus $item } ## -selectmode browse: # proc ttk::treeview::select.choose.browse {w item} { BrowseTo $w $item } proc ttk::treeview::select.toggle.browse {w item} { BrowseTo $w $item } proc ttk::treeview::select.extend.browse {w item} { BrowseTo $w $item } ## -selectmode multiple: # proc ttk::treeview::select.choose.extended {w item} { BrowseTo $w $item } proc ttk::treeview::select.toggle.extended {w item} { $w selection toggle [list $item] } proc ttk::treeview::select.extend.extended {w item} { if {[set anchor [$w focus]] ne ""} { $w selection set [between $w $anchor $item] } else { BrowseTo $w $item } } ### Tree structure utilities. # ## between $tv $item1 $item2 -- # Returns a list of all items between $item1 and $item2, # in preorder traversal order. $item1 and $item2 may be # in either order. # # NOTES: # This routine is O(N) in the size of the tree. # There's probably a way to do this that's O(N) in the number # of items returned, but I'm not clever enough to figure it out. # proc ttk::treeview::between {tv item1 item2} { variable between [list] variable selectingBetween 0 ScanBetween $tv $item1 $item2 {} return $between } ## ScanBetween -- # Recursive worker routine for ttk::treeview::between # proc ttk::treeview::ScanBetween {tv item1 item2 item} { variable between variable selectingBetween if {$item eq $item1 || $item eq $item2} { lappend between $item set selectingBetween [expr {!$selectingBetween}] } elseif {$selectingBetween} { lappend between $item } foreach child [$tv children $item] { ScanBetween $tv $item1 $item2 $child } } ### User interaction utilities. # ## OpenItem, CloseItem -- Set the open state of an item, generate event # proc ttk::treeview::OpenItem {w item} { $w focus $item event generate $w <<TreeviewOpen>> $w item $item -open true } proc ttk::treeview::CloseItem {w item} { $w item $item -open false $w focus $item event generate $w <<TreeviewClose>> } ## Toggle -- toggle opened/closed state of item # proc ttk::treeview::Toggle {w item} { if {[$w item $item -open]} { CloseItem $w $item } else { OpenItem $w $item } } ## ToggleFocus -- toggle opened/closed state of focus item # proc ttk::treeview::ToggleFocus {w} { set item [$w focus] if {$item ne ""} { Toggle $w $item } } ## BrowseTo -- navigate to specified item; set focus and selection # proc ttk::treeview::BrowseTo {w item} { $w see $item $w focus $item $w selection set [list $item] } #*EOF*