view intercom/intercom.ui.tcl @ 6:22a74b01a099 default tip

implement more meaningful test program
author Peter Meerwald <pmeerw@cosy.sbg.ac.at>
date Fri, 25 Jun 2010 16:14:50 +0200
parents 13be24d74cd2
children
line wrap: on
line source

#! /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 .
	}
    }
}

Repositories maintained by Peter Meerwald, pmeerw@pmeerw.net.