1 |
578 |
markom |
# MkManag.tcl --
|
2 |
|
|
#
|
3 |
|
|
# This file implements the "Manager" page in the widget demo
|
4 |
|
|
#
|
5 |
|
|
# This file has not been properly documented. It is NOT intended
|
6 |
|
|
# to be used as an introductory demo program about Tix
|
7 |
|
|
# programming. For such demos, please see the files in the
|
8 |
|
|
# demos/samples directory or go to the "Samples" page in the
|
9 |
|
|
# "widget demo"
|
10 |
|
|
#
|
11 |
|
|
#
|
12 |
|
|
# Copyright (c) 1996, Expert Interface Technologies
|
13 |
|
|
#
|
14 |
|
|
# See the file "license.terms" for information on usage and redistribution
|
15 |
|
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
16 |
|
|
#
|
17 |
|
|
|
18 |
|
|
proc MkManager {nb page} {
|
19 |
|
|
set w [$nb subwidget $page]
|
20 |
|
|
|
21 |
|
|
set name [tixOptionName $w]
|
22 |
|
|
option add *$name*TixLabelFrame*label.padX 4
|
23 |
|
|
|
24 |
|
|
tixLabelFrame $w.pane -label "tixPanedWindow"
|
25 |
|
|
tixLabelFrame $w.note -label "tixNoteBook"
|
26 |
|
|
|
27 |
|
|
MkPanedWindow [$w.pane subwidget frame]
|
28 |
|
|
MkNoteBook [$w.note subwidget frame]
|
29 |
|
|
|
30 |
|
|
tixForm $w.pane -top 0 -left 0 -right $w.note -bottom -1
|
31 |
|
|
tixForm $w.note -top 0 -right -1 -bottom -1
|
32 |
|
|
}
|
33 |
|
|
|
34 |
|
|
proc MkPanedWindow {w} {
|
35 |
|
|
set name [tixOptionName $w]
|
36 |
|
|
|
37 |
|
|
message $w.msg -font -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*\
|
38 |
|
|
-relief flat -width 240 -anchor n\
|
39 |
|
|
-text {The PanedWindow widget allows the user to interactively\
|
40 |
|
|
manipulate the\
|
41 |
|
|
sizes of several panes. The panes can be arranged either vertically or\
|
42 |
|
|
horizontally.}
|
43 |
|
|
|
44 |
|
|
label $w.group -text "Newsgroup: comp.lang.tcl"
|
45 |
|
|
|
46 |
|
|
tixPanedWindow $w.pane
|
47 |
|
|
|
48 |
|
|
set p1 [$w.pane add list -min 70 -size 100]
|
49 |
|
|
set p2 [$w.pane add text -min 70]
|
50 |
|
|
|
51 |
|
|
tixScrolledListBox $p1.list
|
52 |
|
|
$p1.list subwidget listbox config -font [tix option get fixed_font]
|
53 |
|
|
|
54 |
|
|
tixScrolledText $p2.text
|
55 |
|
|
$p2.text subwidget text config -font [tix option get fixed_font]
|
56 |
|
|
|
57 |
|
|
$p1.list subwidget listbox insert end \
|
58 |
|
|
" 12324 Re: TK is good for your health" \
|
59 |
|
|
"+ 12325 Re: TK is good for your health" \
|
60 |
|
|
"+ 12326 Re: Tix is even better for your health (Was: TK is good...)" \
|
61 |
|
|
" 12327 Re: Tix is even better for your health (Was: TK is good...)" \
|
62 |
|
|
"+ 12328 Re: Tix is even better for your health (Was: TK is good...)" \
|
63 |
|
|
" 12329 Re: Tix is even better for your health (Was: TK is good...)" \
|
64 |
|
|
"+ 12330 Re: Tix is even better for your health (Was: TK is good...)"
|
65 |
|
|
|
66 |
|
|
$p2.text subwidget text config -wrap none -bg \
|
67 |
|
|
[$p1.list subwidget listbox cget -bg]
|
68 |
|
|
$p2.text subwidget text insert end {
|
69 |
|
|
Mon, 19 Jun 1995 11:39:52 comp.lang.tcl Thread 34 of 220
|
70 |
|
|
Lines 353 A new way to put text and bitmaps together iNo responses
|
71 |
|
|
ioi@xpi.com Ioi K. Lam at Expert Interface Technologies
|
72 |
|
|
|
73 |
|
|
Hi,
|
74 |
|
|
|
75 |
|
|
I have implemented a new image type called "compound". It allows you
|
76 |
|
|
to glue together a bunch of bitmaps, images and text strings together
|
77 |
|
|
to form a bigger image. Then you can use this image with widgets that
|
78 |
|
|
support the -image option. This way you can display very fancy stuffs
|
79 |
|
|
in your GUI. For example, you can display a text string string
|
80 |
|
|
together with a bitmap, at the same time, inside a TK button widget. A
|
81 |
|
|
screenshot of compound images can be found at the bottom of this page:
|
82 |
|
|
|
83 |
|
|
http://www.xpi.com/tix/screenshot.html
|
84 |
|
|
|
85 |
|
|
You can also you is in other places such as putting fancy bitmap+text
|
86 |
|
|
in menus, tabs of tixNoteBook widgets, etc. This feature will be
|
87 |
|
|
included in the next release of Tix (4.0b1). Count on it to make jazzy
|
88 |
|
|
interfaces!}
|
89 |
|
|
|
90 |
|
|
pack $p1.list -expand yes -fill both -padx 4 -pady 6
|
91 |
|
|
pack $p2.text -expand yes -fill both -padx 4 -pady 6
|
92 |
|
|
|
93 |
|
|
pack $w.msg -side top -padx 3 -pady 3 -fill both
|
94 |
|
|
pack $w.group -side top -padx 3 -pady 3 -fill both
|
95 |
|
|
pack $w.pane -side top -padx 3 -pady 3 -expand yes -fill both
|
96 |
|
|
}
|
97 |
|
|
|
98 |
|
|
proc MkNoteBook {w} {
|
99 |
|
|
|
100 |
|
|
message $w.msg -font -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*\
|
101 |
|
|
-relief flat -width 240 -anchor n\
|
102 |
|
|
-text {The NoteBook widget allows you to lay out a complex\
|
103 |
|
|
interface into individual pages.}
|
104 |
|
|
|
105 |
|
|
# We use these options to set the sizes of the subwidgets inside the
|
106 |
|
|
# notebook, so that they are well-aligned on the screen.
|
107 |
|
|
#
|
108 |
|
|
set name [tixOptionName $w]
|
109 |
|
|
option add *$name*TixControl*entry.width 10
|
110 |
|
|
option add *$name*TixControl*label.width 18
|
111 |
|
|
option add *$name*TixControl*label.anchor e
|
112 |
|
|
option add *$name*TixNoteBook*tagPadX 8
|
113 |
|
|
|
114 |
|
|
|
115 |
|
|
tixNoteBook $w.nb -ipadx 6 -ipady 6
|
116 |
|
|
|
117 |
|
|
# Create the two tabs on the notebook. The -underline option
|
118 |
|
|
# puts a underline on the first character of the labels of the tabs.
|
119 |
|
|
# Keyboard accelerators will be defined automatically according
|
120 |
|
|
# to the underlined character.
|
121 |
|
|
#
|
122 |
|
|
$w.nb add hard_disk -label "Hard Disk" -underline 8
|
123 |
|
|
$w.nb add network -label "Network" -underline 0
|
124 |
|
|
|
125 |
|
|
# Create the first page
|
126 |
|
|
#
|
127 |
|
|
set f [$w.nb subwidget hard_disk]
|
128 |
|
|
|
129 |
|
|
# the frame for the buttons that are present in all the pages
|
130 |
|
|
#
|
131 |
|
|
frame $f.common
|
132 |
|
|
pack $f.common -side right -padx 2 -pady 2 -fill y
|
133 |
|
|
CreateCommonButtons $w $f.common
|
134 |
|
|
|
135 |
|
|
|
136 |
|
|
# Create the controls that only belong to this page
|
137 |
|
|
#
|
138 |
|
|
tixControl $f.a -value 12 -label "Access Time: "
|
139 |
|
|
tixControl $f.w -value 400 -label "Write Throughput: "
|
140 |
|
|
tixControl $f.r -value 400 -label "Read Throughput: "
|
141 |
|
|
tixControl $f.c -value 1021 -label "Capacity: "
|
142 |
|
|
pack $f.a $f.w $f.r $f.c -side top -padx 20 -pady 2
|
143 |
|
|
|
144 |
|
|
# Create the second page
|
145 |
|
|
#
|
146 |
|
|
set f [$w.nb subwidget network]
|
147 |
|
|
|
148 |
|
|
# the frame for the buttons that are present in all the pages
|
149 |
|
|
#
|
150 |
|
|
frame $f.common
|
151 |
|
|
pack $f.common -side right -padx 2 -pady 2 -fill y
|
152 |
|
|
|
153 |
|
|
tixControl $f.a -value 12 -label "Access Time: "
|
154 |
|
|
tixControl $f.w -value 400 -label "Write Throughput: "
|
155 |
|
|
tixControl $f.r -value 400 -label "Read Throughput: "
|
156 |
|
|
tixControl $f.c -value 1021 -label "Capacity: "
|
157 |
|
|
tixControl $f.u -value 10 -label "Users: "
|
158 |
|
|
|
159 |
|
|
CreateCommonButtons $w $f.common
|
160 |
|
|
|
161 |
|
|
pack $f.a $f.w $f.r $f.c $f.u -side top -padx 20 -pady 2
|
162 |
|
|
pack $w.msg -side top -padx 3 -pady 3 -fill both
|
163 |
|
|
pack $w.nb -expand yes -fill both -padx 5 -pady 5 -side top
|
164 |
|
|
}
|
165 |
|
|
|
166 |
|
|
proc CreateCommonButtons {w f} {
|
167 |
|
|
button $f.ok -text OK -width 6
|
168 |
|
|
button $f.cancel -text Cancel -width 6
|
169 |
|
|
|
170 |
|
|
pack $f.ok $f.cancel -side top -padx 2 -pady 2
|
171 |
|
|
}
|