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

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: VTree.tcl,v 1.6 2004/03/28 02:44:57 hobbs Exp $
#
# VTree.tcl --
#
#	Virtual base class for Tree widgets.
#
#
# 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.
#

tixWidgetClass tixVTree {
    -virtual true
    -classname TixVTree
    -superclass tixScrolledHList
    -method {
    }
    -flag {
	-ignoreinvoke
    }
    -configspec {
	{-ignoreinvoke ignoreInvoke IgnoreInvoke false tixVerifyBoolean}
    }
    -default {
    }
}

proc tixVTree:InitWidgetRec {w} {
    upvar #0 $w data

tixChainMethod $w InitWidgetRec
}

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

tixChainMethod $w ConstructWidget

set data(indStyle) \
	[tixDisplayStyle image -refwindow $data(w:hlist) -padx 0 -pady 0]
}

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

tixChainMethod $w SetBindings

$data(w:hlist) config \
	-indicatorcmd [list tixVTree:IndicatorCmd $w] \
	-browsecmd [list tixVTree:BrowseCmdHook $w] \
	-command [list tixVTree:CommandHook $w]
}

proc tixVTree:IndicatorCmd {w args} {
    upvar #0 $w data

set event [tixEvent type]
    set ent   [tixEvent flag V]

set type     [tixVTree:GetType $w $ent]
    set plus	 [tix getimage plus]
    set plusarm	 [tix getimage plusarm]
    set minus	 [tix getimage minus]
    set minusarm [tix getimage minusarm]

if {![$data(w:hlist) info exists $ent]} {return}
    switch -exact -- $event {
	<Arm> {
	    if {![$data(w:hlist) indicator exists $ent]} {return}
	    $data(w:hlist) indicator config $ent \
		-image [expr {$type eq "open" ? $plusarm : $minusarm}]
	}
	<Disarm> {
	    if {![$data(w:hlist) indicator exists $ent]} {return}
	    $data(w:hlist) indicator config $ent \
		-image [expr {$type eq "open" ? $plus : $minus}]
	}
	<Activate> {
	    upvar bind bind
	    tixCallMethod $w Activate $ent $type
	    set bind(%V) $ent
	    tixVTree:BrowseCmdHook $w
	}
    }
}

proc tixVTree:GetType {w ent} {
    upvar #0 $w data

if {![$data(w:hlist) indicator exists $ent]} {
	return none
    }

set img [$data(w:hlist) indicator cget $ent -image]
    if {$img eq [tix getimage plus] || $img eq [tix getimage plusarm]} {
	return open
    }
    return close
}

proc tixVTree:Activate {w ent type} {
    upvar #0 $w data

if {$type eq "open"} {
	tixCallMethod $w OpenCmd $ent
	$data(w:hlist) indicator config $ent -image [tix getimage minus]
    } else {
	tixCallMethod $w CloseCmd $ent
	$data(w:hlist) indicator config $ent -image [tix getimage plus]
    }
}

proc tixVTree:CommandHook {w args} {
    upvar #0 $w data
    upvar bind bind

tixCallMethod $w Command bind
}

proc tixVTree:BrowseCmdHook {w args} {
    upvar #0 $w data
    upvar bind bind

tixCallMethod $w BrowseCmd bind
}

proc tixVTree:SetMode {w ent mode} {
    upvar #0 $w data

switch -exact -- $mode {
	open {
	    $data(w:hlist) indicator create $ent -itemtype image \
		-image [tix getimage plus]  -style $data(indStyle)
	}
	close {
	    $data(w:hlist) indicator create $ent -itemtype image \
		-image [tix getimage minus] -style $data(indStyle)
	}
	none {
	    if {[$data(w:hlist) indicator exist $ent]} {
		$data(w:hlist) indicator delete $ent 
	    }
	}
    }
}

#----------------------------------------------------------------------
#
#			Virtual Methods
#
#----------------------------------------------------------------------
proc tixVTree:OpenCmd {w ent} {
    upvar #0 $w data

# The default action
    foreach kid [$data(w:hlist) info children $ent] {
	$data(w:hlist) show entry $kid
    }
}

proc tixVTree:CloseCmd {w ent} {
    upvar #0 $w data

# The default action
    foreach kid [$data(w:hlist) info children $ent] {
	$data(w:hlist) hide entry $kid
    }
}

proc tixVTree:Command {w B} {
    upvar #0 $w data
    upvar $B bind

if {$data(-ignoreinvoke)} {
	return
    }
    set ent [tixEvent flag V]
    if {[$data(w:hlist) indicator exist $ent]} {
	tixVTree:Activate $w $ent [tixVTree:GetType $w $ent]
    }
}

proc tixVTree:BrowseCmd {w B} {
}
#----------------------------------------------------------------------
#
#			Widget commands
#
#----------------------------------------------------------------------

X7ROOT File Manager

Editing: VTree.tcl

Upload File

Create Folder