Mercurial > hg > audiostuff
comparison intercom/intercom.ui.tcl @ 2:13be24d74cd2
import intercom-0.4.1
| author | Peter Meerwald <pmeerw@cosy.sbg.ac.at> |
|---|---|
| date | Fri, 25 Jun 2010 09:57:52 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 1:9cadc470e3da | 2:13be24d74cd2 |
|---|---|
| 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 } |