Changeset 25609 in project

Timestamp:

12/01/11 14:08:04 (9 years ago)

Author:

juergen

Message:

iup-tutor with callback-generator

File:

• wiki/iup-tutor (modified) (4 diffs)

wiki/iup-tutor

@@ -529 +529 @@
   (show (message-dialog title: title value: value) #:modal? #t))
 
+;; setter and getter
+;; widgets are referenced by name
 (define (set-attribute keyword)
   (let (
     (msg (sprintf "Attribute ~A set with value ~A"
-                  keyword (attribute line value:)))
+                  keyword (attribute single value:)))
     (multi (handle-ref "multi"))
-    (line (handle-ref "line"))
+    (single (handle-ref "single"))
     )
-    (attribute-set! multi keyword (attribute line value:))
+    (attribute-set! multi keyword (attribute single value:))
     (message "Set attribute" msg)
     'default))
@@ -545 +547 @@
                   keyword (attribute multi keyword)))
     (multi (handle-ref "multi"))
-    (line (handle-ref "line"))
+    (single (handle-ref "single"))
     )
-    (attribute-set! line value: (attribute multi keyword))
+    (attribute-set! single value: (attribute multi keyword))
     (message "Get attribute" msg)
     'default))
 
+;; callback generator
+(define (cb keyword)
+  (lambda (self)
+    (let ((lb (handle-ref "lb")))
+      (if (eqv? (string->number (attribute lb value:)) 1)
+        (set-attribute keyword)
+        (get-attribute keyword))
+      'default)))
+
+;; buttons
 (define btn-append
   (button title: '&Append
-          action: (lambda (self)
-                    (let ((lb (handle-ref "lb")))
-                      (if (eqv? (string->number (attribute lb value:)) 1)
-                        (set-attribute append:)
-                        (get-attribute append:))
-                      'default))))
+          action: (cb append:)))
 
 (define btn-insert
   (button title: '&Insert
-          action: (lambda (self)
-                    (let ((lb (handle-ref "lb")))
-                      (if (eqv? (string->number (attribute lb value:)) 1)
-                        (set-attribute insert:)
-                        (get-attribute insert:))
-                      'default))))
+          action: (cb insert:)))
 
 (define btn-border
   (button title: '&Border
-          action: (lambda (self)
-                    (let ((lb (handle-ref "lb")))
-                      (if (eqv? (string->number (attribute lb value:)) 1)
-                        (set-attribute border:)
-                        (get-attribute border:))
-                      'default))))
+          action: (cb boarder:)))
 
 (define btn-caret
   (button title: '&Caret
-          action: (lambda (self)
-                    (let ((lb (handle-ref "lb")))
-                      (if (eqv? (string->number (attribute lb value:)) 1)
-                        (set-attribute caret:)
-                        (get-attribute caret:))
-                      'default))))
+          action: (cb caret:)))
 
 (define btn-readonly
   (button title: '&Readonly
-          action: (lambda (self)
-                    (let ((lb (handle-ref "lb")))
-                      (if (eqv? (string->number (attribute lb value:)) 1)
-                        (set-attribute readonly:)
-                        (get-attribute readonly:))
-                      'default))))
+          action: (cb readonly:)))
 
 (define btn-selection
   (button title: '&Selection
-          action: (lambda (self)
-                    (let ((lb (handle-ref "lb")))
-                      (if (eqv? (string->number (attribute lb value:)) 1)
-                        (set-attribute selection:)
-                        (get-attribute selection:))
-                      'default))))
+          action: (cb selection:)))
 
 (define btn-selectedtextbox
   (button title: 'Selected&textbox
-          action: (lambda (self)
-                    (let ((lb (handle-ref "lb")))
-                      (if (eqv? (string->number (attribute lb value:)) 1)
-                        (set-attribute selectedbox:)
-                        (get-attribute selectedbox:))
-                      'default))))
+          action: (cb selectedbox:)))
 
 (define btn-nc
   (button title: '&Nc
-          action: (lambda (self)
-                    (let ((lb (handle-ref "lb")))
-                      (if (eqv? (string->number (attribute lb value:)) 1)
-                        (set-attribute nc:)
-                        (get-attribute nc:))
-                      'default))))
+          action: (cb nc:)))
 
 (define btn-value
   (button title: '&Value
-          action: (lambda (self)
-                    (let ((lb (handle-ref "lb")))
-                      (if (not (attribute lb value:))
-                        (set! (attribute lb value:) 1))
-                      (if (eqv? (string->number (attribute lb value:)) 1)
-                        (set-attribute value:)
-                        (get-attribute value:))
-                      'default))))
-
+          action: (cb value:)))
+
+;; other widgets
 (define lb (listbox #:1 'set #:2 'get value: 1 dropdown: #t))
 (define multi (textbox expand: #t multiline: #t))
-(define line (textbox expand: 'horizontal))
-
-
+(define single (textbox expand: 'horizontal))
+
+;; name those other widgets, so that they can be referenced by name
 (set! (handle-name lb) "lb")
 (set! (handle-name multi) "multi")
-(set! (handle-name line) "line")
-
+(set! (handle-name single) "single")
+
+;; the dialog
 (define dlg
   (dialog (vbox multi
                 (hbox lb
-                      line)
+                      single)
                 (hbox btn-append btn-insert btn-border btn-caret
                       btn-readonly btn-selection)
@@ -657 +624 @@
 (destroy! dlg)
 (exit 0)
-
 </enscript>
 
@@ -677 +643 @@
 == Last updated
 
-Nov 29, 2011
+Dec 01, 2011