* GadgetDemo by E.Hambuch
* Darf nicht veraendert werden, nur zu Demonstrationszwecken.
* V0.0 11.4.90
  include 'exec.i'
  include 'intuition.i'
  include 'startup.i'
_main:
  lea intname,a1
  CALLEXEC OldOpenLibrary
  move.l d0,_IntBase
  beq ende
  lea windowstr,a0    ;Fenster oeffnen (Gadgets werden automatisch
  CALLINT OpenWindow                                ;gezeichnet)
  move.l d0,Window
  beq closeint
  move.l d0,a0
  move.l 86(a0),MsgPort
  lea Gadget,a0
  move.l Window,a1
  suba.l a2,a2
  jsr _LVOOnGadget(a6)  ;und aktivieren
forever:
  move.l MsgPort,a0  ;warten auf CLOSEWINDOW
  CALLEXEC WaitPort
  move.l MsgPort,a0  ;ist da
  jsr _LVOGetMsg(a6) ;Message holen
  move.l d0,a1
  jsr _LVOReplyMsg(a6) ;und beantworten !!
closewin:
  move.l Window,a0
  CALLINT CloseWindow
closeint:
  move.l _IntBase,a1
  CALLEXEC CloseLibrary
ende: rts
intname: INTNAME
_IntBase: dc.l 0
Window:   dc.l 0
MsgPort:  dc.l 0
windowstr:
  dc.w 0,0,640,100
  dc.b 0,1
  dc.l CLOSEWINDOW
  dc.l ACTIVATE!WINDOWDEPTH!WINDOWCLOSE!WINDOWDRAG
  dc.l Gadget
  dc.l 0
  dc.l Titel
  dc.l 0,0
  dc.w 0,0,0,0,WBENCHSCREEN
Titel: dc.b 'GadgetDemo V0.0 by E.Hambuch',0
  EVEN
Gadget:
  dc.l 0 ;next
  dc.w 220,20 ;x,y
  dc.w 200,40 ;width,height
  dc.w GADGHIMAGE!GADGIMAGE!GADGDISABLED ;Flags=2 Bilder
  dc.w RELVERIFY!TOGGLESELECT  ;Activation
  dc.w BOOLGADGET            ;Type
  dc.l Image1                ;Bild 1
  dc.l Image2                ;angewaehlt -> Bild2
  dc.l 0                     ;IText
  dc.l 0
  dc.l 0
  dc.w 0
  dc.l 0
Image1:
  dc.w 0,0    ;x,y
  dc.w 200,40 ;width,height
  dc.w 2      ;depth
  dc.l Bild1  ;Daten
  dc.b -1,0
  dc.l 0      ;next
Image2:
  dc.w 0,0
  dc.w 200,40
  dc.w 2
  dc.l Bild2
  dc.b -1,0
  dc.l 0
  SECTION "Bilddaten",DATA,CHIP
Bild1:
 ; Hier die Bilddaten 200 * 40 * 2 Med-Res mit HexDump generiert
Bild2:
 ; Hier die Daten fuer Bild2 gleiche Maße wie Bild1
 END