Changeset 25578 in project

Timestamp:

11/26/11 17:25:54 (9 years ago)

Author:

juergen

Message:

iup-tutor: file-dialog added

File:

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

wiki/iup-tutor

@@ -44 +44 @@
 In C attribute names as well as attribute values are strings, in Scheme
 the former are keywords, the latter might be symbols or numbers as well. All
-attributes can be get and set. Getting is done by the attribute
+attributes can be get and set. Getting is done (in Scheme) by the attribute
 function, setting by the attribute-set! procedure or a generalized set!,
 i.e. either by
@@ -50 +50 @@
 (attribute-set! widget name: val) or (set! (attribute widget name:) val)
 
-whichever you prefer. The same applies to callbacks.
+whichever you prefer. The same applies to callbacks, which are get and
+set by callback and callback-set! respectively.
 
 In Scheme's Iup callbacks are usually functions of one argument, self
 most of the time, which return a symbol, for example 'close, to close a
-dialog, or 'default, to keep it open. In C, of course, the return
-values are #define'd integers.
+dialog, or 'default, to keep it open. In C, on the other hand, the
+return values are #define'd integers.
 
 === Hello World
@@ -92 +93 @@
 is done, when inporting iup. Note also, that the Chicken names are much
 friendlier than the C ones: Chicken's module system makes Iup prefixes
-superfluous, they can be added, if needed.
+superfluous, they can be added, if needed, with appropriate import
+clauses.
 
 Now a version which shows, how to use attributes and callbacks, again in
@@ -125 +127 @@
   
   lbl=IupLabel("Hello,world!");
+
   vb=IupVbox(lbl, btn);
   IupSetAttribute(vb, "GAP", "10");
@@ -139 +142 @@
   IupMainLoop();
 
+  // Clean up
   IupDestroy(dlg);
   IupClose();
@@ -147 +151 @@
 
 ==== hello11.scm
+
+Here is a translation to Scheme ...
 
 <enscript highlight="Scheme">
@@ -178 +184 @@
 
 Note, how the upper-case C-names of attributes change to lower-case
-Chicken-keywords (by the way, Chicken-keywords can be eiter written with
+Chicken-keywords (by the way, Chicken-keywords can be either written with
 a trailing colon or a leading hash-colon, but I prefere the former,
 which looks nicer).
 
 Note also, that attribute values can be numbers or symbols as well.
-And last, but not least, note the tooltips and the ampersand in the
-button's title. The latter makes the Alt+underlined-character execute
-the callback.
+And last, but not least, note the tips: predicate, which defines
+tooltips, and the ampersand in the button's title, which defines a
+shortcut, Alt+underlined-character, to execute the callback.
 
 ==== hello12.scm
+
+... and here a condensed version.
 
 <enscript highlight="Scheme">
@@ -219 +227 @@
 
 The condensed version above can be almost literally transformed into a
-.led resource file, which can be either loaded into a C program or a
+LED resource file, which can be either loaded into a C program or a
 Scheme program. Those resources are interpreted at runtime, so that even
 in a compiled program the resource can be changed afterwards, provided
@@ -232 +240 @@
 </enscript>
 
-where the attributes' names and values are written without enclosing "",
-but interpreted as strings.
+where the attributes' names and values are written without enclosing
+quotes, but interpreted as strings.
 
 Here is an example and its use in Chicken.
@@ -455 +463 @@
 attribute set.
 
+==== filedlg.scm
+
+Now we use two predefined dialogs, file-dialag and message-dialog. You
+should note, that they are mapped to gtk-dialogs!
+
+<enscript highlight="Scheme">
+
+(use iup)
+
+(define (popup dlg . args)
+  (apply show dlg #:modal #t args))
+
+(define dlg (file-dialog title: "File save"
+                         dialogtype: 'SAVE
+                         filter: "*.led"
+                         filterinfo: "Iup resource file"))
+
+(popup dlg x: 'center y: 'center)
+
+(let ((status (attribute dlg status:)))
+  (cond
+    ((string=? status "1")
+     (popup
+       (message-dialog value: (string-append  "New File: "
+                                              (attribute dlg value:)))))
+    ((string=? status "0")
+     (popup
+       (message-dialog value: (string-append  "File already exists: "
+                                              (attribute dlg value:)))))
+    ((string=? status "-1")
+     (popup
+       (message-dialog value: "File-dialog: Operation Canceled")))))
+
+(destroy! dlg)
+(exit 0) 
+
+</enscript>
+
+Note, that the status: attribute of the file-dialog is a string!
+
+=== Concluding remark
+
+All these examples show, that Iup is really easy to use ...
+
 == Author