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: StackWin.tcl

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: StackWin.tcl,v 1.3 2004/03/28 02:44:57 hobbs Exp $
#
# StackWin.tcl --
#
#	Similar to NoteBook but uses a Select widget to represent the pages.
#
# 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.
#

tixWidgetClass tixStackWindow {
    -classname TixStackWindow
    -superclass tixVStack
    -method {
    }
    -flag {
    }
    -configspec {
    }
}

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

tixChainMethod $w ConstructWidget

set data(w:tabs) [tixSelect $w.tabs]

# We can't use the packer because it will conflict with the
    # geometry management of the VStack widget.
    #
    tixManageGeometry $data(w:tabs) [list tixVStack:ClientGeomProc $w]
}

proc tixStackWindow:add {w child args} {
    upvar #0 $w data

set ret [eval [list tixChainMethod $w add $child] $args]

# Find out the -label option
    #
    foreach {flag value} $args {
	if {$flag eq "-label"} {
	    set label $value
	}
    }

$data(w:tabs) add $child -command [list $w raise $child] -text $label

return $ret
}

proc tixStackWindow:raise {w child} {
    upvar #0 $w data

$data(w:tabs) config -value $child

tixChainMethod $w raise $child
}

proc tixStackWindow:Resize {w} {
    upvar #0 $w data

# We have to take care of the size of the tabs so that 
    #
    set tW [winfo reqwidth  $data(w:tabs)]
    set tH [winfo reqheight $data(w:tabs)]

tixMoveResizeWindow $data(w:tabs) $data(-ipadx) $data(-ipady) $tW $tH
    tixMapWindow $data(w:tabs)

set data(pad-y1) [expr $tH + $data(-ipadx)]
    set data(minW)   [expr $tW + 2 * $data(-ipadx)]
    set data(minH)   [expr $tH + 2 * $data(-ipady)]

# Now that we know data(pad-y1), we can chain the call
    #
    tixChainMethod $w Resize
}

X7ROOT File Manager

Editing: StackWin.tcl

Upload File

Create Folder