Changeset 25597 in project

Timestamp:

11/28/11 15:36:00 (9 years ago)

Author:

juergen

Message:

multiline example added in iup-tutor

File:

• wiki/iup-tutor (modified) (1 diff)

wiki/iup-tutor

@@ -503 +503 @@
 Note, that the status: attribute of the file-dialog is a string!
 
+==== multiline.scm
+
+Now, we'll show how widgets within a dialog can communicate whith each
+other. The trick is, that Iup can reference widgets by name, or, to be
+more precise, by string name. You have seen this in the LED example
+above: In LED a widget is named by a string and constructed by the LED
+interpreter. To use it in Scheme, you reference the widget proper
+from its name via handle-ref. This can be done without LED as well. But
+then you must give the widget a string name via handle-name-set! or the
+generalized version (set! (handle-name widget) name).
+
+The following dialog contains two textboxes, one of them multiline, a
+dropdown listbox and some buttons, allowing to get or set the multiline
+predicates. Please take note, how handle-ref and handle-name is used.
+
+<enscript highlight="Scheme">
+
+(use iup)
+
+(define (message title value)
+  (show (message-dialog title: title value: value) #:modal? #t))
+
+(define (set-attribute keyword)
+  (let (
+    (msg (sprintf "Attribute ~A set with value ~A"
+                  (keyword->string keyword) (attribute line value:)))
+    (multi (handle-ref "multi"))
+    (line (handle-ref "line"))
+    )
+    (attribute-set! multi keyword (attribute line value:))
+    (message "Set attribute" msg)
+    'default))
+
+(define (get-attribute keyword)
+  (let (
+    (msg (sprintf "Attribute ~A get with value ~A"
+                  (keyword->string keyword) (attribute line value:)))
+    (multi (handle-ref "multi"))
+    (line (handle-ref "line"))
+    )
+    (attribute-set! line value: (attribute multi keyword))
+    (message "Get attribute" msg)
+    'default))
+
+(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))))
+
+(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))))
+
+(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))))
+
+(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))))
+
+(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))))
+
+(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))))
+
+(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))))
+
+(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))))
+
+(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))))
+
+(define lb (listbox #:1 'set #:2 'get value: 1 dropdown: #t))
+(define multi (textbox expand: #t multiline: #t))
+(define line (textbox expand: 'horizontal))
+
+
+(set! (handle-name lb) "lb")
+(set! (handle-name multi) "multi")
+(set! (handle-name line) "line")
+
+(define dlg
+  (dialog (vbox multi
+                (hbox lb
+                      line)
+                (hbox btn-append btn-insert btn-border btn-caret
+                      btn-readonly btn-selection)
+                (hbox btn-selectedtextbox btn-nc btn-value))
+          title: "Multiline example"
+          size: 'HALFxQUARTER))
+
+(show dlg x: 'center y: 'center)
+(main-loop)
+(destroy! dlg)
+(exit 0)
+
+</enscript>
+
+There is one caveat in the listbox: The lines must be denoted with
+prefixed keyword notation, 1: will not work, for example!
+
 === Concluding remark