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

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: OldUtil.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $
#
# OldUtil.tcl -
#
#	This is an undocumented file.
#	   Are these features used in Tix : NO.
#	   Should I use these features    : NO.
#
# 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.
#

proc setenv {name args} {
    global env

if {[llength $args] == 1} {
        return [set env($name) [lindex $args 0]]
    } else {
        if {[info exists env($ename)] == 0} {
            bgerror "Error in setenv: "
                    "environment variable \"$name\" does not exist"
        } else {
            return $env($name)
        }
    }
}
#----------------------------------------------------------------------
#
#
#           U T I L I T Y   F U N C T I O N S  F O R   T I X 
#
#
#----------------------------------------------------------------------

# RESET THE STRING IN THE ENTRY
proc tixSetEntry {entry string} {
    set oldstate [lindex [$entry config -state] 4]
    $entry config -state normal
    $entry delete 0 end
    $entry insert 0 $string
    $entry config -state $oldstate
}

# GET THE FIRST SELECTED ITEM IN A LIST
proc tixListGetSingle {lst} {
    set indices [$lst curselection]
    if {$indices != ""} {
	return [$lst get [lindex $indices 0]]
    } else {
	return ""
    }
}

#----------------------------------------------------------------------
# RECORD A DIALOG'S POSITION AND RESTORE IT THE NEXT TIME IT IS OPENED
#----------------------------------------------------------------------
proc tixDialogRestore {w {flag -geometry}} {
    global tixDPos

if {[info exists tixDPos($w)]} {
	if {![winfo ismapped $w]} {
	    wm geometry $w $tixDPos($w)
	    wm deiconify $w
	}
    } elseif {$flag eq "-geometry"} {
	update
	set tixDPos($w) [winfo geometry $w]
    } else {
	update
	set tixDPos($w) +[winfo rootx $w]+[winfo rooty $w]
    }
}
#----------------------------------------------------------------------
# RECORD A DIALOG'S POSITION AND RESTORE IT THE NEXT TIME IT IS OPENED
#----------------------------------------------------------------------
proc tixDialogWithdraw {w {flag -geometry}} {
    global tixDPos

if {[winfo ismapped $w]} {
	if {$flag eq "-geometry"} {
	    set tixDPos($w) [winfo geometry $w]
	} else {
	    set tixDPos($w) +[winfo rootx $w]+[winfo rooty $w]
	}
	wm withdraw $w
    }
}
#----------------------------------------------------------------------
# RECORD A DIALOG'S POSITION AND RESTORE IT THE NEXT TIME IT IS OPENED
#----------------------------------------------------------------------
proc tixDialogDestroy {w {flag -geometry}} {
    global tixDPos

if {[winfo ismapped $w]} {
	if {$flag eq "-geometry"} {
	    set tixDPos($w) [winfo geometry $w]
	} else {
	    set tixDPos($w) +[winfo rootx $w]+[winfo rooty $w]
	}
    }
    destroy $w
}

X7ROOT File Manager

Editing: OldUtil.tcl

Upload File

Create Folder