# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: BtnBox.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # BtnBox.tcl -- # # Implements the tixButtonBox 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. # tixWidgetClass tixButtonBox { -superclass tixPrimitive -classname TixButtonBox -method { add invoke button buttons } -flag { -orientation -orient -padx -pady -state } -static { -orientation } -configspec { {-orientation orientation Orientation horizontal} {-padx padX Pad 0} {-pady padY Pad 0} {-state state State normal} } -alias { {-orient -orientation} } -default { {.borderWidth 1} {.relief raised} {.padX 5} {.padY 10} {*Button.anchor c} {*Button.padX 5} } } proc tixButtonBox:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(g:buttons) "" } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixButtonBox:config-padx {w arg} { upvar #0 $w data foreach item $data(g:buttons) { pack configure $w.$item -padx $arg } } proc tixButtonBox:config-pady {w arg} { upvar #0 $w data foreach item $data(g:buttons) { pack configure $w.$item -pady $arg } } proc tixButtonBox:config-state {w arg} { upvar #0 $w data foreach item $data(g:buttons) { $w.$item config -state $arg } } #---------------------------------------------------------------------- # Methods # WIDGET COMMANDS #---------------------------------------------------------------------- proc tixButtonBox:add {w name args} { upvar #0 $w data eval button $w.$name $args if {$data(-orientation) == "horizontal"} { pack $w.$name -side left -expand yes -fill y\ -padx $data(-padx) -pady $data(-pady) } else { pack $w.$name -side top -expand yes -fill x\ -padx $data(-padx) -pady $data(-pady) } # allow for subwidget access # lappend data(g:buttons) $name set data(w:$name) $w.$name return $w.$name } proc tixButtonBox:button {w name args} { return [eval tixCallMethod $w subwidget $name $args] } proc tixButtonBox:buttons {w args} { return [eval tixCallMethod $w subwidgets -group buttons $args] } # # call the command proc tixButtonBox:invoke {w name} { upvar #0 $w data $w.$name invoke }
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
bitmaps | Folder | 0755 |
|
|
html | Folder | 0755 |
|
|
pref | Folder | 0755 |
|
|
Balloon.tcl | File | 12.97 KB | 0644 |
|
BtnBox.tcl | File | 2.61 KB | 0644 |
|
CObjView.tcl | File | 7.56 KB | 0644 |
|
ChkList.tcl | File | 4.97 KB | 0644 |
|
ComboBox.tcl | File | 35.42 KB | 0644 |
|
Compat.tcl | File | 870 B | 0644 |
|
Console.tcl | File | 14.95 KB | 0644 |
|
Control.tcl | File | 12.11 KB | 0644 |
|
DefSchm.tcl | File | 2.94 KB | 0644 |
|
DialogS.tcl | File | 4.2 KB | 0644 |
|
DirBox.tcl | File | 5.3 KB | 0644 |
|
DirDlg.tcl | File | 2.15 KB | 0644 |
|
DirList.tcl | File | 6.9 KB | 0644 |
|
DirTree.tcl | File | 8.76 KB | 0644 |
|
DragDrop.tcl | File | 3.93 KB | 0644 |
|
DtlList.tcl | File | 1002 B | 0644 |
|
EFileBox.tcl | File | 11.12 KB | 0644 |
|
EFileDlg.tcl | File | 1.68 KB | 0644 |
|
Event.tcl | File | 5.11 KB | 0644 |
|
FileBox.tcl | File | 14 KB | 0644 |
|
FileCbx.tcl | File | 2.42 KB | 0644 |
|
FileDlg.tcl | File | 2.13 KB | 0644 |
|
FileEnt.tcl | File | 7.15 KB | 0644 |
|
FloatEnt.tcl | File | 3.1 KB | 0644 |
|
Grid.tcl | File | 21.16 KB | 0644 |
|
HList.tcl | File | 17.72 KB | 0644 |
|
HListDD.tcl | File | 4.39 KB | 0644 |
|
IconView.tcl | File | 5.97 KB | 0644 |
|
Init.tcl | File | 6.05 KB | 0644 |
|
LabEntry.tcl | File | 2.09 KB | 0644 |
|
LabFrame.tcl | File | 1.15 KB | 0644 |
|
LabWidg.tcl | File | 3.86 KB | 0644 |
|
ListNBk.tcl | File | 3.5 KB | 0644 |
|
Meter.tcl | File | 3.04 KB | 0644 |
|
MultView.tcl | File | 3.62 KB | 0644 |
|
NoteBook.tcl | File | 6.02 KB | 0644 |
|
OldUtil.tcl | File | 2.98 KB | 0644 |
|
OptMenu.tcl | File | 9.17 KB | 0644 |
|
PanedWin.tcl | File | 27.68 KB | 0644 |
|
PopMenu.tcl | File | 5.37 KB | 0644 |
|
Primitiv.tcl | File | 10.28 KB | 0644 |
|
README.txt | File | 987 B | 0644 |
|
ResizeH.tcl | File | 12.94 KB | 0644 |
|
SGrid.tcl | File | 5.8 KB | 0644 |
|
SHList.tcl | File | 3.7 KB | 0644 |
|
SListBox.tcl | File | 6.97 KB | 0644 |
|
STList.tcl | File | 2.37 KB | 0644 |
|
SText.tcl | File | 3.09 KB | 0644 |
|
SWidget.tcl | File | 9.52 KB | 0644 |
|
SWindow.tcl | File | 6.75 KB | 0644 |
|
Select.tcl | File | 7.04 KB | 0644 |
|
Shell.tcl | File | 1.06 KB | 0644 |
|
SimpDlg.tcl | File | 1.13 KB | 0644 |
|
StackWin.tcl | File | 1.95 KB | 0644 |
|
StatBar.tcl | File | 1.31 KB | 0644 |
|
StdBBox.tcl | File | 1.62 KB | 0644 |
|
StdShell.tcl | File | 1.15 KB | 0644 |
|
TList.tcl | File | 17.59 KB | 0644 |
|
Tix.tcl | File | 9.51 KB | 0644 |
|
Tree.tcl | File | 4.57 KB | 0644 |
|
Utils.tcl | File | 10.54 KB | 0644 |
|
VResize.tcl | File | 4.95 KB | 0644 |
|
VStack.tcl | File | 9.42 KB | 0644 |
|
VTree.tcl | File | 4.31 KB | 0644 |
|
Variable.tcl | File | 2.5 KB | 0644 |
|
WInfo.tcl | File | 965 B | 0644 |
|
fs.tcl | File | 3.9 KB | 0644 |
|
libTix.so | File | 320.71 KB | 0755 |
|
license.terms | File | 2.76 KB | 0644 |
|
pkgIndex.tcl | File | 122 B | 0644 |
|