79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
(s:set! key val)
(s:get key)
make a selection drop down
~~~~~~~~~~~~~~~~~~~~~~~~~~
In view.scm:
;; Label Value visible-str selected
(s:select '(("World" 0)("Country" 1)("State" 2 "The state" #t )("Town/City" 3)) 'name 'scope)
Visible str will be shown if provided. Selected will set that entry to pre-selected.
In control.scm:
(let ((scope (s:get-input 'scope))
(scope-num (s:get-input 'scope 'number))) ;; 'number, 'raw or 'escaped
....
The optional fourth entry sets that item as selected if true
|
>
>
>
>
>
>
>
>
>
|
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
(s:set! key val)
(s:get key)
make a selection drop down
~~~~~~~~~~~~~~~~~~~~~~~~~~
;; items is a hierarchial alist
;; ( (label1 value1 dispval1 #t) ;; <== this one is selected
;; (label2 (label3 value2 dispval2)
;; (label4 value3 dispval3)))
In view.scm:
;; Label Value visible-str selected
(s:select '(("World" 0)("Country" 1)("State" 2 "The state" #t )("Town/City" 3)) 'name 'scope)
Visible str will be shown if provided. Selected will set that entry to pre-selected.
To select a specific entry:
(s:select '(("World" 0 "world" #f)("Country" 1 "country" #t)("State" 2 "state" #f)("Town/City" 3 "town" #f)) 'name 'scope)
In control.scm:
(let ((scope (s:get-input 'scope))
(scope-num (s:get-input 'scope 'number))) ;; 'number, 'raw or 'escaped
....
The optional fourth entry sets that item as selected if true
|