Artifact aebb9a7f5d51614222a039e025cb4c0aad4acdc8:

• File iup/test.scm — part of check-in [1e08e6c5f5] at 2011-01-30 16:01:36 on branch trunk — Imported initial copy of iup from chicken egg svn (user: matt, size: 98) [annotate] [blame] [check-ins using]

0000: 28 6c 65 74 20 28 5b 64 6c 67 20 28 64 69 61 6c  (let ([dlg (dial
0010: 6f 67 20 23 3a 74 69 74 6c 65 20 22 54 65 73 74  og #:title "Test
0020: 22 20 28 62 75 74 74 6f 6e 20 22 50 75 73 68 20  " (button "Push 
0030: 6d 65 21 22 20 23 3a 61 63 74 69 6f 6e 20 70 72  me!" #:action pr
0040: 69 6e 74 29 29 5d 29 20 0a 20 20 28 73 68 6f 77  int))]) .  (show
0050: 20 64 6c 67 20 23 3a 6d 6f 64 61 6c 3f 20 23 74   dlg #:modal? #t
0060: 29 29                                            ))