--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/intercom/intercom.ui.tcl	Fri Jun 25 09:57:52 2010 +0200
@@ -0,0 +1,113 @@
+#! /bin/sh
+# the next line restarts using wish \
+exec wish "$0" "$@"
+
+# interface generated by SpecTcl version 1.1 from /home/anblf/voipconf2/intercom.ui
+#   root     is the parent window for this user interface
+
+proc intercom_ui {root args} {
+
+	# this treats "." as a special case
+
+	if {$root == "."} {
+	    set base ""
+	} else {
+	    set base $root
+	}
+    
+	canvas $base.canvas#1 \
+		-height 0 \
+		-width 400
+
+	canvas $base.canvas#2 \
+		-height 160 \
+		-width 0
+
+	button $base.t1 \
+		-text t1
+
+	button $base.t2 \
+		-text t2
+
+	button $base.t3 \
+		-text t3
+
+	button $base.t4 \
+		-text t4
+
+	button $base.t5 \
+		-text t5
+
+	button $base.t6 \
+		-text t6
+
+	button $base.t7 \
+		-text t7
+
+	button $base.t8 \
+		-text t8
+
+	label $base.label#1 \
+		-text Diversion
+
+	label $base.label#2 \
+		-text Answer
+
+	button $base.tu
+
+	button $base.ta
+
+
+	# Geometry management
+
+	grid $base.canvas#1 -in $root	-row 1 -column 2  \
+		-columnspan 4 \
+		-sticky nesw
+	grid $base.canvas#2 -in $root	-row 2 -column 1  \
+		-rowspan 2 \
+		-sticky nesw
+	grid $base.t1 -in $root	-row 2 -column 2 
+	grid $base.t2 -in $root	-row 2 -column 3 
+	grid $base.t3 -in $root	-row 2 -column 4 
+	grid $base.t4 -in $root	-row 2 -column 5 
+	grid $base.t5 -in $root	-row 3 -column 2 
+	grid $base.t6 -in $root	-row 3 -column 3 
+	grid $base.t7 -in $root	-row 3 -column 4 
+	grid $base.t8 -in $root	-row 3 -column 5 
+	grid $base.label#1 -in $root	-row 4 -column 2 
+	grid $base.label#2 -in $root	-row 4 -column 5 
+	grid $base.tu -in $root	-row 5 -column 2 
+	grid $base.ta -in $root	-row 5 -column 5 
+
+	# Resize behavior management
+
+	grid rowconfigure $root 1 -weight 0 -minsize 2
+	grid rowconfigure $root 2 -weight 0 -minsize 30
+	grid rowconfigure $root 3 -weight 0 -minsize 30
+	grid rowconfigure $root 4 -weight 0 -minsize 30
+	grid rowconfigure $root 5 -weight 0 -minsize 30
+	grid columnconfigure $root 1 -weight 0 -minsize 2
+	grid columnconfigure $root 2 -weight 0 -minsize 30
+	grid columnconfigure $root 3 -weight 0 -minsize 30
+	grid columnconfigure $root 4 -weight 0 -minsize 30
+	grid columnconfigure $root 5 -weight 0 -minsize 30
+# additional interface code
+# end additional interface code
+
+}
+
+
+# Allow interface to be run "stand-alone" for testing
+
+catch {
+    if [info exists embed_args] {
+	# we are running in the plugin
+	intercom_ui .
+    } else {
+	# we are running in stand-alone mode
+	if {$argv0 == [info script]} {
+	    wm title . "Testing intercom_ui"
+	    intercom_ui .
+	}
+    }
+}