File: dimension.tcl

package info (click to toggle)
espresso 6.7-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 311,068 kB
  • sloc: f90: 447,429; ansic: 52,566; sh: 40,631; xml: 37,561; tcl: 20,077; lisp: 5,923; makefile: 4,503; python: 4,379; perl: 1,219; cpp: 761; fortran: 618; java: 568; awk: 128
file content (25 lines) | stat: -rw-r--r-- 516 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
module dimension -title "Test namelist's dimensions" -script {

    namelist dim -name "DIMENSION" {
	
	var howmany -label "Size of dimension:" -widget spinint -default 3
	
	dimension myDim1 -start 1 -end   3	
	
	dimension myDim2 {
	    -variable  textvalue-test
	    -widget    radiobox
	    -start     1
	    -end       3
	    -value     { first second third }	    
	    -textvalue { 1st 2nd 3rd }
	    -default   2nd
	}
    }

    tracevar howmany w {
	widgetconfigure myDim1 -end [varvalue howmany]
    }
}