' *****************************************  
' * Beispiel-Listing Nr.6 (StringGadgets) *  
' * ------------------------------------- *  
' * evtl. muss noch der pfad in der       *  
' * letzten zeile geändert werden,        *  
' * damit das programm die GadTools       *  
' * finden und beiladen kann.             *  
' *****************************************  
'
'
' ************************************** 
'      Eine Arbeitsmaske erstellen.  
' ************************************** 
'
'
_SCREEN_OPEN[0,0]
_MAKE_MASK[30,30,286,220,2,1,0]
'
'
' ************************************** 
'       Und nun den Text aufbauen. 
' ************************************** 
'
'
Ink 2,0
Text 38,60,"Dies ist Beispiel-Listing Nr.6"
Text 38,68,"------------------------------"
Text 38,80,"    Eine Demonstration für"
Text 38,90,"        StringGadgets!"
Text 38,110,"Zum beenden auf EXIT klicken!!"
Text 115,135,"StringGadget"
'
'
' ************************************** 
'   Ein StringGadget & ein PushButton.   
' ************************************** 
'
'
_STRINGGADGET[1,78,145,1,2,0,2,3,20,50]
_PUSHBUTTON[1,135,190,2,1,0,2," EXIT "]
'
'
' ************************************** 
'    Warten bis Push-Button geklickt.
' ************************************** 
'
'
Repeat 
_STRINGGADGET_HIT
_PUSHBUTTON_HIT
Until Param=1
Direct 
'
'
' ************************************** 
'     Das GadTools.Include beiladen. 
' ************************************** 
'
'
Include "df0:GadTools.Inc"