Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
bitmaps	[ DIR ]	drwxrwxrwx
demos	[ DIR ]	drwxrwxrwx
pref	[ DIR ]	drwxrwxrwx
Balloon.tcl	13.54 KB	-rw-rw-rw-
BtnBox.tcl	2.73 KB	-rw-rw-rw-
CObjView.tcl	7.91 KB	-rw-rw-rw-
ChkList.tcl	5.2 KB	-rw-rw-rw-
ComboBox.tcl	36.94 KB	-rw-rw-rw-
Compat.tcl	903 B	-rw-rw-rw-
Console.tcl	15.55 KB	-rw-rw-rw-
Control.tcl	12.58 KB	-rw-rw-rw-
DefSchm.tcl	3.04 KB	-rw-rw-rw-
DialogS.tcl	4.37 KB	-rw-rw-rw-
DirBox.tcl	5.5 KB	-rw-rw-rw-
DirDlg.tcl	2.25 KB	-rw-rw-rw-
DirList.tcl	7.16 KB	-rw-rw-rw-
DirTree.tcl	9.1 KB	-rw-rw-rw-
DragDrop.tcl	4.09 KB	-rw-rw-rw-
DtlList.tcl	1.03 KB	-rw-rw-rw-
EFileBox.tcl	11.55 KB	-rw-rw-rw-
EFileDlg.tcl	1.74 KB	-rw-rw-rw-
Event.tcl	5.32 KB	-rw-rw-rw-
FileBox.tcl	14.55 KB	-rw-rw-rw-
FileCbx.tcl	2.53 KB	-rw-rw-rw-
FileDlg.tcl	2.21 KB	-rw-rw-rw-
FileEnt.tcl	7.41 KB	-rw-rw-rw-
FloatEnt.tcl	3.23 KB	-rw-rw-rw-
Grid.tcl	22.25 KB	-rw-rw-rw-
HList.tcl	18.62 KB	-rw-rw-rw-
HListDD.tcl	4.59 KB	-rw-rw-rw-
IconView.tcl	6.23 KB	-rw-rw-rw-
Init.tcl	6.28 KB	-rw-rw-rw-
LabEntry.tcl	2.18 KB	-rw-rw-rw-
LabFrame.tcl	1.2 KB	-rw-rw-rw-
LabWidg.tcl	4.01 KB	-rw-rw-rw-
ListNBk.tcl	3.65 KB	-rw-rw-rw-
Makefile	66 B	-rw-rw-rw-
Meter.tcl	3.17 KB	-rw-rw-rw-
MultView.tcl	3.77 KB	-rw-rw-rw-
NoteBook.tcl	6.26 KB	-rw-rw-rw-
OldUtil.tcl	3.09 KB	-rw-rw-rw-
OptMenu.tcl	9.56 KB	-rw-rw-rw-
PanedWin.tcl	28.87 KB	-rw-rw-rw-
PopMenu.tcl	5.6 KB	-rw-rw-rw-
Primitiv.tcl	10.7 KB	-rw-rw-rw-
ResizeH.tcl	13.43 KB	-rw-rw-rw-
SGrid.tcl	6.03 KB	-rw-rw-rw-
SHList.tcl	3.84 KB	-rw-rw-rw-
SListBox.tcl	7.26 KB	-rw-rw-rw-
STList.tcl	2.46 KB	-rw-rw-rw-
SText.tcl	3.22 KB	-rw-rw-rw-
SWidget.tcl	9.97 KB	-rw-rw-rw-
SWindow.tcl	7.01 KB	-rw-rw-rw-
Select.tcl	7.33 KB	-rw-rw-rw-
Shell.tcl	1.1 KB	-rw-rw-rw-
SimpDlg.tcl	1.18 KB	-rw-rw-rw-
StackWin.tcl	2.03 KB	-rw-rw-rw-
StatBar.tcl	1.36 KB	-rw-rw-rw-
StdBBox.tcl	1.69 KB	-rw-rw-rw-
StdShell.tcl	1.19 KB	-rw-rw-rw-
TList.tcl	18.52 KB	-rw-rw-rw-
Tix.tcl	9.9 KB	-rw-rw-rw-
Tree.tcl	4.78 KB	-rw-rw-rw-
Utils.tcl	10.97 KB	-rw-rw-rw-
VResize.tcl	5.16 KB	-rw-rw-rw-
VStack.tcl	9.84 KB	-rw-rw-rw-
VTree.tcl	4.5 KB	-rw-rw-rw-
Variable.tcl	2.6 KB	-rw-rw-rw-
WInfo.tcl	1005 B	-rw-rw-rw-
fs.tcl	4.07 KB	-rw-rw-rw-
pkgIndex.tcl	154 B	-rw-rw-rw-
tix84.dll	362 KB	-rw-rw-rw-
tix84.lib	33.36 KB	-rw-rw-rw-

Code Editor : FileEnt.tcl

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: FileEnt.tcl,v 1.7 2004/03/28 02:44:57 hobbs Exp $
#
# FileEnt.tcl --
#
# 	TixFileEntry Widget: an entry box for entering filenames.
#
# 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 tixFileEntry {
    -classname TixFileEntry
    -superclass tixLabelWidget
    -method {
	invoke filedialog update
    }
    -flag {
	-activatecmd -command -dialogtype -disablecallback -disabledforeground
	-filebitmap -selectmode -state -validatecmd -value -variable
    }
    -forcecall {
	-variable
    }
    -static {
	-filebitmap
    }
    -configspec {
	{-activatecmd activateCmd ActivateCmd ""}
	{-command command Command ""}
	{-dialogtype dialogType DialogType ""}
	{-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean}
	{-disabledforeground disabledForeground DisabledForeground #303030}
	{-filebitmap fileBitmap FileBitmap ""}
	{-selectmode selectMode SelectMode normal}
	{-state state State normal}
	{-validatecmd validateCmd ValidateCmd ""}
	{-value value Value ""}
	{-variable variable Variable ""}
    }
    -default {
	{*frame.borderWidth		2}
	{*frame.relief			sunken}
	{*Button.highlightThickness	0}
	{*Entry.highlightThickness	0}
	{*Entry.borderWidth 		0}
    }
}

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

tixChainMethod $w InitWidgetRec
    set data(varInited)	  0

if {$data(-filebitmap) eq ""} {
	set data(-filebitmap) [tix getbitmap openfile]
    }
}

proc tixFileEntry:ConstructFramedWidget {w frame} {
    upvar #0 $w data

tixChainMethod $w ConstructFramedWidget $frame

set data(w:entry)  [entry  $frame.entry]
    set data(w:button) [button $frame.button -bitmap $data(-filebitmap) \
			    -takefocus 0]
    set data(entryfg) [$data(w:entry) cget -fg]

pack $data(w:button) -side right -fill both
    pack $data(w:entry)  -side left  -expand yes -fill both
}

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

tixChainMethod $w SetBindings

$data(w:button) config -command [list tixFileEntry:OpenFile $w]
    tixSetMegaWidget $data(w:entry) $w

# If user press <return>, verify the value and call the -command
    #
    bind $data(w:entry) <Return> [list tixFileEntry:invoke $w]
    bind $data(w:entry) <KeyPress> {
	if {[set [tixGetMegaWidget %W](-selectmode)] eq "immediate"} {
	    tixFileEntry:invoke [tixGetMegaWidget %W]
	}
    }
    bind $data(w:entry) <FocusOut>  {
        if {"%d" eq "NotifyNonlinear" || "%d" eq "NotifyNonlinearVirtual"} {
	    tixFileEntry:invoke [tixGetMegaWidget %W]
        }
    }
    bind $w <FocusIn> [list focus $data(w:entry)]
}

#----------------------------------------------------------------------
#                           CONFIG OPTIONS
#----------------------------------------------------------------------
proc tixFileEntry:config-state {w value} {
    upvar #0 $w data

if {$value eq "normal"} {
	$data(w:button) config -state $value
	$data(w:entry)  config -state $value -fg $data(entryfg)
	catch {$data(w:label)  config -fg $data(entryfg)}
    } else {
	$data(w:button) config -state $value
	$data(w:entry)  config -state $value -fg $data(-disabledforeground)
	catch {$data(w:label)  config -fg $data(-disabledforeground)}
    }

return ""
}

proc tixFileEntry:config-value {w value} {
    tixFileEntry:SetValue $w $value
}

proc tixFileEntry:config-variable {w arg} {
    upvar #0 $w data

if {[tixVariable:ConfigVariable $w $arg]} {
       # The value of data(-value) is changed if tixVariable:ConfigVariable 
       # returns true
       tixFileEntry:SetValue $w $data(-value)
    }
    catch {
	unset data(varInited)
    }
    set data(-variable) $arg
}

#----------------------------------------------------------------------
#                         User Commands
#----------------------------------------------------------------------
proc tixFileEntry:invoke {w} {
    upvar #0 $w data

if {![catch {$data(w:entry) index sel.first}]} {
	# THIS ENTRY OWNS SELECTION --> TURN IT OFF
	#
	$data(w:entry) select from end
	$data(w:entry) select to   end
    }

tixFileEntry:SetValue $w [$data(w:entry) get]
}

proc tixFileEntry:filedialog {w args} {
    upvar #0 $w data

if {[llength $args]} {
	return [eval [tix filedialog $data(-dialogtype)] $args]
    } else {
	return [tix filedialog $data(-dialogtype)]
    }
}

proc tixFileEntry:update {w} {
    upvar #0 $w data

if {[$data(w:entry) get] ne $data(-value)} {
	tixFileEntry:invoke $w
    }
}
#----------------------------------------------------------------------
#                       Internal Commands
#----------------------------------------------------------------------
proc tixFileEntry:OpenFile {w} {
     upvar #0 $w data

if {$data(-activatecmd) != ""} {
	 uplevel #0 $data(-activatecmd)
     }

switch -- $data(-dialogtype) tk_chooseDirectory {
	 set args [list -parent [winfo toplevel $w]]
	 if {[set initial $data(-value)] != ""} {
	     lappend args -initialdir $data(value)
	 }
	 set retval [eval [linsert $args 0 tk_chooseDirectory]]

if {$retval != ""} {tixFileEntry:SetValue $w [tixFSNative $retval]}
     } tk_getOpenFile - tk_getSaveFile {
	 set args [list -parent [winfo toplevel $w]]

if {[set initial [$data(w:entry) get]] != ""} {
	     switch -glob -- $initial *.py {
		 set types [list {"Python Files" {.py .pyw}} {"All Files" *}]
	     } *.txt {
		 set types [list {"Text Files" .txt} {"All Files" *}]
	     } *.tcl {
		 set types [list {"Tcl Files" .tcl} {"All Files" *}]
	     } * - default {
		 set types [list {"All Files" *}]
	     }
	     if {[file isfile $initial]} {
		 lappend args -initialdir [file dir $initial] \
			 -initialfile $initial
	     } elseif {[file isdir $initial]} {
		 lappend args -initialdir $initial
	     }
	 } else {
	     set types [list {"All Files" *}]
	 }
	 lappend args -filetypes $types

set retval [eval $data(-dialogtype) $args]
	 if {$retval != ""} {tixFileEntry:SetValue $w [tixFSNative $retval]}
     } default {
	 set filedlg [tix filedialog $data(-dialogtype)]

$filedlg config -parent [winfo toplevel $w] \
		 -command [list tixFileEntry:FileDlgCallback $w]

focus $data(w:entry)

$filedlg popup
     }
}

proc tixFileEntry:FileDlgCallback {w args} {
    set filename [tixEvent flag V]

tixFileEntry:SetValue $w $filename
}

proc tixFileEntry:SetValue {w value} {
    upvar #0 $w data

if {[llength $data(-validatecmd)]} {
	set value [tixEvalCmdBinding $w $data(-validatecmd) "" $value]
    }

if {$data(-state) eq "normal"} {
	$data(w:entry) delete 0 end
	$data(w:entry) insert 0 $value
	$data(w:entry) xview end
    }

set data(-value) $value

tixVariable:UpdateVariable $w

if {[llength $data(-command)] && !$data(-disablecallback)} {
	if {![info exists data(varInited)]} {
	    set bind(specs) ""
	    tixEvalCmdBinding $w $data(-command) bind $value
	}
    }
}

proc tixFileEntry:Destructor {w} {
    upvar #0 $w data

tixUnsetMegaWidget $data(w:entry)
    tixVariable:DeleteVariable $w

# Chain this to the superclass
    #
    tixChainMethod $w Destructor
}

${this.title}

Code Editor : FileEnt.tcl