home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.mirror < prev    next >
Encoding:
Text File  |  2000-04-19  |  540 b   |  31 lines
  1. G4C
  2. ; $VER: func.defue Rev.014 Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 175 50 ""
  4. WinType 00000000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. VarPath menu.Sites
  8.  
  9. xOnLoad
  10.     GuiOpen #This
  11.  
  12. xOnOpen
  13.     if $spwas = 1
  14.         SetVar status "Spiegle Daten ..."
  15.         Update #This 2 $status
  16.     elseif $spwas = 2
  17.         SetVar status "Sicher Daten zurück ..."
  18.         Update #This 2 $status
  19.     endif
  20.  
  21.  
  22. ;Globale Gadgets
  23. TEXT 5 5 155 20 "Spiegelung ..." 100 NOBOX
  24.     GadFont xHelvetica.font 13 010
  25.     GadID 2
  26.  
  27. TEXT 5 25 155 20 "... bitte warten" 100 NOBOX
  28.     GadTxt CENTER
  29.     GadID 1
  30.  
  31.