whoami7 - Manager
:
/
proc
/
thread-self
/
root
/
proc
/
thread-self
/
root
/
lib64
/
tcl8.6
/
Tix8.4.3
/
Upload File:
files >> //proc/thread-self/root/proc/thread-self/root/lib64/tcl8.6/Tix8.4.3/FileCbx.tcl
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: FileCbx.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $ # # tixFileCombobox -- # # A combobox widget for entering file names, directory names, file # patterns, etc. # # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixFileComboBox displays and accepts the DOS pathnames only. It doesn't # recognize UNC file names or Tix VPATHS. # tixWidgetClass tixFileComboBox { -classname TixFileComboBox -superclass tixPrimitive -method { invoke } -flag { -command -defaultfile -directory -text } -forcecall { -directory } -configspec { {-defaultfile defaultFile DefaultFile ""} {-directory directory Directory ""} {-command command Command ""} {-text text Text ""} } -default { } } proc tixFileComboBox:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec if {$data(-directory) eq ""} { set data(-directory) [pwd] } } proc tixFileComboBox:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:combo) [tixComboBox $w.combo -editable true -dropdown true] pack $data(w:combo) -expand yes -fill both } proc tixFileComboBox:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:combo) config -command [list tixFileComboBox:OnComboCmd $w] } proc tixFileComboBox:OnComboCmd {w args} { upvar #0 $w data set text [string trim [tixEvent value]] set path [tixFSJoin $data(-directory) $text] if {[file isdirectory $path]} { set path [tixFSJoin $path $data(-defaultfile)] set tail $data(-defaultfile) } else { set tail [file tail $path] } set norm [tixFSNormalize $path] tixSetSilent $data(w:combo) $norm if {[llength $data(-command)]} { set bind(specs) {%V} set bind(%V) [list $norm $path $tail ""] tixEvalCmdBinding $w $data(-command) bind $bind(%V) } } proc tixFileComboBox:config-text {w val} { upvar #0 $w data tixSetSilent $data(w:combo) $val } proc tixFileComboBox:config-directory {w val} { upvar #0 $w data set data(-directory) [tixFSNormalize $val] return $data(-directory) } proc tixFileComboBox:invoke {w} { upvar #0 $w data $data(w:combo) invoke }
Copyright ©2021 || Defacer Indonesia