Changeset 112 for functions/get-values.r
- Timestamp:
- 12/31/07 22:18:08 (11 months ago)
- Files:
-
- 1 modified
-
functions/get-values.r (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
functions/get-values.r
r111 r112 1 1 get-values: make function! [ 2 "Gets values from input widgets within a display or tab-panel face."2 "Gets values from input widgets within a display or grouping widget." 3 3 face [object!] "Display face" 4 4 /type "Precede each value with its type" 5 5 /local blk 6 6 ] [ 7 if face/type = 'tab-panel [face: face/pane/1] 7 all [ 8 find [scroll-panel tab-panel] face/type 9 face: either block? face/pane [face: face/pane/1] [face/pane] 10 ] 8 11 blk: copy [] 9 12 foreach widget face/pane [ 10 13 if find [ 11 area check check-group drop-list edit-list field group-box password radio-group s lider tab-panel table text-list14 area check check-group drop-list edit-list field group-box password radio-group scroll-panel slider tab-panel table text-list 12 15 ] widget/type [ 13 16 all [type insert tail blk widget/type] … … 16 19 find [check check-group slider] widget/type [widget/data] 17 20 find [radio-group table text-list] widget/type [widget/picked] 18 find [ group-box tab-panel] widget/type [19 either type [get- input/type widget] [get-inputwidget]21 find [scroll-panel group-box tab-panel] widget/type [ 22 either type [get-values/type widget] [get-values widget] 20 23 ] 21 24 ]
