source: trunk/examples/zoo/boolean/boolean.tcl @ 3177

Last change on this file since 3177 was 3177, checked in by mmc, 12 years ago

Updated all of the copyright notices to reference the transfer to
the new HUBzero Foundation, LLC.

File size: 1.4 KB
Line 
1# ----------------------------------------------------------------------
2#  EXAMPLE: Rappture <boolean> elements
3# ======================================================================
4#  AUTHOR:  Michael McLennan, Purdue University
5#  Copyright (c) 2004-2012  HUBzero Foundation, LLC
6#
7#  See the file "license.terms" for information on usage and
8#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
9# ======================================================================
10package require Rappture
11
12# open the XML file containing the run parameters
13set driver [Rappture::library [lindex $argv 0]]
14
15set choice [$driver get input.(iimodel).current]
16$driver put output.boolean(outb).about.label "Echo of boolean value iimodel"
17$driver put output.boolean(outb).current $choice
18
19set choice1 [$driver get input.(iimodel1).current]
20$driver put output.boolean(outb1).about.label "Echo of boolean value iimodel1"
21$driver put output.boolean(outb1).current $choice1
22
23set choice2 [$driver get input.(iimodel2).current]
24$driver put output.boolean(outb2).about.label "Echo of boolean value iimodel2"
25$driver put output.boolean(outb2).current $choice2
26
27set choice3 [$driver get input.(iimodel3).current]
28$driver put output.boolean(outb3).about.label "Echo of boolean value iimodel3"
29$driver put output.boolean(outb3).current $choice3
30
31# save the updated XML describing the run...
32Rappture::result $driver
33exit 0
Note: See TracBrowser for help on using the repository browser.