File Manager

X7ROOT File Manager

Current Path: /usr/lib64/tcl8.6/Tix8.4.3

?? ..
?? Balloon.tcl(12.97 KB)
?? BtnBox.tcl(2.61 KB)
?? CObjView.tcl(7.56 KB)
?? ChkList.tcl(4.97 KB)
?? ComboBox.tcl(35.42 KB)
?? Compat.tcl(870 B)
?? Console.tcl(14.95 KB)
?? Control.tcl(12.11 KB)
?? DefSchm.tcl(2.94 KB)
?? DialogS.tcl(4.2 KB)
?? DirBox.tcl(5.3 KB)
?? DirDlg.tcl(2.15 KB)
?? DirList.tcl(6.9 KB)
?? DirTree.tcl(8.76 KB)
?? DragDrop.tcl(3.93 KB)
?? DtlList.tcl(1002 B)
?? EFileBox.tcl(11.12 KB)
?? EFileDlg.tcl(1.68 KB)
?? Event.tcl(5.11 KB)
?? FileBox.tcl(14 KB)
?? FileCbx.tcl(2.42 KB)
?? FileDlg.tcl(2.13 KB)
?? FileEnt.tcl(7.15 KB)
?? FloatEnt.tcl(3.1 KB)
?? Grid.tcl(21.16 KB)
?? HList.tcl(17.72 KB)
?? HListDD.tcl(4.39 KB)
?? IconView.tcl(5.97 KB)
?? Init.tcl(6.05 KB)
?? LabEntry.tcl(2.09 KB)
?? LabFrame.tcl(1.15 KB)
?? LabWidg.tcl(3.86 KB)
?? ListNBk.tcl(3.5 KB)
?? Meter.tcl(3.04 KB)
?? MultView.tcl(3.62 KB)
?? NoteBook.tcl(6.02 KB)
?? OldUtil.tcl(2.98 KB)
?? OptMenu.tcl(9.17 KB)
?? PanedWin.tcl(27.68 KB)
?? PopMenu.tcl(5.37 KB)
?? Primitiv.tcl(10.28 KB)
?? README.txt(987 B)
?? ResizeH.tcl(12.94 KB)
?? SGrid.tcl(5.8 KB)
?? SHList.tcl(3.7 KB)
?? SListBox.tcl(6.97 KB)
?? STList.tcl(2.37 KB)
?? SText.tcl(3.09 KB)
?? SWidget.tcl(9.52 KB)
?? SWindow.tcl(6.75 KB)
?? Select.tcl(7.04 KB)
?? Shell.tcl(1.06 KB)
?? SimpDlg.tcl(1.13 KB)
?? StackWin.tcl(1.95 KB)
?? StatBar.tcl(1.31 KB)
?? StdBBox.tcl(1.62 KB)
?? StdShell.tcl(1.15 KB)
?? TList.tcl(17.59 KB)
?? Tix.tcl(9.51 KB)
?? Tree.tcl(4.57 KB)
?? Utils.tcl(10.54 KB)
?? VResize.tcl(4.95 KB)
?? VStack.tcl(9.42 KB)
?? VTree.tcl(4.31 KB)
?? Variable.tcl(2.5 KB)
?? WInfo.tcl(965 B)
?? bitmaps
?? fs.tcl(3.9 KB)
?? html
?? libTix.so(341.3 KB)
?? license.terms(2.76 KB)
?? pkgIndex.tcl(122 B)
?? pref

Editing: EFileDlg.tcl

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: EFileDlg.tcl,v 1.3 2002/01/24 09:13:58 idiscovery Exp $
#
# EFileDlg.tcl --
#
#	Implements the Extended File Selection Dialog widget.
#
# Copyright (c) 1993-1999 Ioi Kim Lam.
# Copyright (c) 2000-2001 Tix Project Group.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#

foreach fun {tkButtonInvoke} {
    if {![llength [info commands $fun]]} {
	tk::unsupported::ExposePrivateCommand $fun
    }
}
unset fun

tixWidgetClass tixExFileSelectDialog {
    -classname TixExFileSelectDialog
    -superclass tixDialogShell
    -method {}
    -flag   {
	-command
    }
    -configspec {
	{-command command Command ""}

{-title title Title "Select A File"}
    }
}

proc tixExFileSelectDialog:ConstructWidget {w} {
    upvar #0 $w data

tixChainMethod $w ConstructWidget
    set data(w:fsbox) [tixExFileSelectBox $w.fsbox -dialog $w \
	-command $data(-command)]
    pack $data(w:fsbox) -expand yes -fill both

}

proc tixExFileSelectDialog:config-command {w value} {
    upvar #0 $w data

$data(w:fsbox) config -command $value
}

proc tixExFileSelectDialog:SetBindings {w} {
    upvar #0 $w data

tixChainMethod $w SetBindings

bind $w <Alt-Key-f> "focus [$data(w:fsbox) subwidget file]"
    bind $w <Alt-Key-t> "focus [$data(w:fsbox) subwidget types]"
    bind $w <Alt-Key-d> "focus [$data(w:fsbox) subwidget dir]"
    bind $w <Alt-Key-o> "tkButtonInvoke [$data(w:fsbox) subwidget ok]"
    bind $w <Alt-Key-c> "tkButtonInvoke [$data(w:fsbox) subwidget cancel]"
    bind $w <Alt-Key-s> "tkButtonInvoke [$data(w:fsbox) subwidget hidden]"
}

X7ROOT File Manager

Editing: EFileDlg.tcl

Upload File

Create Folder