Changeset 25757 in project


Ignore:
Timestamp:
01/03/12 12:38:40 (9 years ago)
Author:
juergen
Message:

iup-tutor: images added

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/iup-tutor

    r25753 r25757  
    10961096
    10971097<enscript highlight="scheme">
    1098 
    1099 (use iup iup-web iup-pplot iup-glcanvas)
     1098(use srfi-4 iup iup-web iup-pplot iup-glcanvas)
    11001099
    11011100(define (popup dlg . args)
     
    12371236
    12381237      (label "")
     1238      (label "Images" fontsize: 12)
     1239      (hbox
     1240        (button "image/palette"
     1241                action: (lambda (self)
     1242                          (properties
     1243                            (image/palette 1 1 (u8vector->blob (u8vector 0))))))
     1244        (button "image/rgb"
     1245                action: (lambda (self)
     1246                          (properties
     1247                            (image/rgb 1 1 (u8vector->blob (u8vector 0))))))
     1248        (button "image/rgba"
     1249                action: (lambda (self)
     1250                          (properties
     1251                            (image/rgba 1 1 (u8vector->blob (u8vector 0))))))
     1252        (button "image/file"
     1253                action: (lambda (self)
     1254                          (properties
     1255                            ;; same attributes as image/palette
     1256                            (image/palette 1 1 (u8vector->blob (u8vector 0))))))
     1257                            ;; needs a file in current directory
     1258                            ;(image/file "chicken.ico")))) ; ok
     1259                            ;(image/file "chicken.png")))) ; doesn't work
     1260        (fill)
     1261        margin: '0x0)
     1262
     1263      (label "")
    12391264      (label "Other widgets" fontsize: 12)
    12401265      (hbox
     
    12591284(main-loop)
    12601285(exit 0)
    1261 
    12621286</enscript>
    12631287
Note: See TracChangeset for help on using the changeset viewer.