|
2
|
1 #! /bin/sh
|
|
|
2 # the next line restarts using wish \
|
|
|
3 exec wish "$0" "$@"
|
|
|
4
|
|
|
5 # interface generated by SpecTcl version 1.1 from /home/anblf/voipconf2/intercom.ui
|
|
|
6 # root is the parent window for this user interface
|
|
|
7
|
|
|
8 proc intercom_ui {root args} {
|
|
|
9
|
|
|
10 # this treats "." as a special case
|
|
|
11
|
|
|
12 if {$root == "."} {
|
|
|
13 set base ""
|
|
|
14 } else {
|
|
|
15 set base $root
|
|
|
16 }
|
|
|
17
|
|
|
18 canvas $base.canvas#1 \
|
|
|
19 -height 0 \
|
|
|
20 -width 400
|
|
|
21
|
|
|
22 canvas $base.canvas#2 \
|
|
|
23 -height 160 \
|
|
|
24 -width 0
|
|
|
25
|
|
|
26 button $base.t1 \
|
|
|
27 -text t1
|
|
|
28
|
|
|
29 button $base.t2 \
|
|
|
30 -text t2
|
|
|
31
|
|
|
32 button $base.t3 \
|
|
|
33 -text t3
|
|
|
34
|
|
|
35 button $base.t4 \
|
|
|
36 -text t4
|
|
|
37
|
|
|
38 button $base.t5 \
|
|
|
39 -text t5
|
|
|
40
|
|
|
41 button $base.t6 \
|
|
|
42 -text t6
|
|
|
43
|
|
|
44 button $base.t7 \
|
|
|
45 -text t7
|
|
|
46
|
|
|
47 button $base.t8 \
|
|
|
48 -text t8
|
|
|
49
|
|
|
50 label $base.label#1 \
|
|
|
51 -text Diversion
|
|
|
52
|
|
|
53 label $base.label#2 \
|
|
|
54 -text Answer
|
|
|
55
|
|
|
56 button $base.tu
|
|
|
57
|
|
|
58 button $base.ta
|
|
|
59
|
|
|
60
|
|
|
61 # Geometry management
|
|
|
62
|
|
|
63 grid $base.canvas#1 -in $root -row 1 -column 2 \
|
|
|
64 -columnspan 4 \
|
|
|
65 -sticky nesw
|
|
|
66 grid $base.canvas#2 -in $root -row 2 -column 1 \
|
|
|
67 -rowspan 2 \
|
|
|
68 -sticky nesw
|
|
|
69 grid $base.t1 -in $root -row 2 -column 2
|
|
|
70 grid $base.t2 -in $root -row 2 -column 3
|
|
|
71 grid $base.t3 -in $root -row 2 -column 4
|
|
|
72 grid $base.t4 -in $root -row 2 -column 5
|
|
|
73 grid $base.t5 -in $root -row 3 -column 2
|
|
|
74 grid $base.t6 -in $root -row 3 -column 3
|
|
|
75 grid $base.t7 -in $root -row 3 -column 4
|
|
|
76 grid $base.t8 -in $root -row 3 -column 5
|
|
|
77 grid $base.label#1 -in $root -row 4 -column 2
|
|
|
78 grid $base.label#2 -in $root -row 4 -column 5
|
|
|
79 grid $base.tu -in $root -row 5 -column 2
|
|
|
80 grid $base.ta -in $root -row 5 -column 5
|
|
|
81
|
|
|
82 # Resize behavior management
|
|
|
83
|
|
|
84 grid rowconfigure $root 1 -weight 0 -minsize 2
|
|
|
85 grid rowconfigure $root 2 -weight 0 -minsize 30
|
|
|
86 grid rowconfigure $root 3 -weight 0 -minsize 30
|
|
|
87 grid rowconfigure $root 4 -weight 0 -minsize 30
|
|
|
88 grid rowconfigure $root 5 -weight 0 -minsize 30
|
|
|
89 grid columnconfigure $root 1 -weight 0 -minsize 2
|
|
|
90 grid columnconfigure $root 2 -weight 0 -minsize 30
|
|
|
91 grid columnconfigure $root 3 -weight 0 -minsize 30
|
|
|
92 grid columnconfigure $root 4 -weight 0 -minsize 30
|
|
|
93 grid columnconfigure $root 5 -weight 0 -minsize 30
|
|
|
94 # additional interface code
|
|
|
95 # end additional interface code
|
|
|
96
|
|
|
97 }
|
|
|
98
|
|
|
99
|
|
|
100 # Allow interface to be run "stand-alone" for testing
|
|
|
101
|
|
|
102 catch {
|
|
|
103 if [info exists embed_args] {
|
|
|
104 # we are running in the plugin
|
|
|
105 intercom_ui .
|
|
|
106 } else {
|
|
|
107 # we are running in stand-alone mode
|
|
|
108 if {$argv0 == [info script]} {
|
|
|
109 wm title . "Testing intercom_ui"
|
|
|
110 intercom_ui .
|
|
|
111 }
|
|
|
112 }
|
|
|
113 }
|
