1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
[comment {-*- tcl -*- doctools manpage}]
[manpage_begin widget_toolbar n 3.0]
[moddesc {widget::toolbar Megawidget}]
[titledesc {widget::toolbar Megawidget}]
[require Tcl 8.4]
[require Tk 8.4]
[require widget [opt 3.0]]
[require widget::toolbar [opt 1.0]]
[description]
This package provides a toolbar megawidget (snidget).
It makes use of the Tile/Ttk themed widget set.
[para]
[list_begin definitions]
[call [cmd widget::toolbar] [arg pathname] [opt options]]
[call getframe]
[call add [opt item] [opt args]]
[call delete item1 [opt item2] [opt ...]]
[call itemcget symbol option]
[call itemconfigure symbol [opt args]]
[call items [opt pattern]]
[call remove [opt -destroy] item1 [opt item2] [opt ...]]
[list_end]
[section "WIDGET OPTIONS"]
[list_begin opt]
[opt_def -ipad]
[opt_def -pad]
[opt_def -separator]
[list_end]
[section "ITEM OPTIONS"]
[list_begin opt]
[opt_def -pad]
[opt_def -separator]
[opt_def -sticky]
[opt_def -weight]
[list_end]
[section EXAMPLE]
[example {
package require widget::toolbar ; # or widget::all
set t [widget::toolbar .t]
pack $t -fill x -expand 1
$t add button [button .b -text foo]
$t add separator -pad {2 4}
$t add button [button .c -text bar]
}]
[keywords megawidget snit widget]
[manpage_end]
|
