home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / menu.note < prev    next >
Encoding:
Text File  |  2000-04-19  |  1.1 KB  |  52 lines
  1. G4C
  2. ; $VER: menu.note Rev.001 © by Juan Manuel Wehrli 2000
  3. WINBIG -1 -1 100 60 "Site Notitz/Rapport"
  4. WinType 00001000
  5. WinOnMouse 95 5
  6. WinBackGround IMAGE BG 0
  7. Winout "NIL:"
  8.  
  9. xOnLoad
  10.     GuiOpen #This
  11.  
  12. ;=== Abbruch Button
  13. XButton 0 0 100 15 "Abbrechen [_X]"
  14.     GadFont xHelvetica.font 11 010
  15.     GadKey "x"
  16.     GuiQuit #This
  17.  
  18. XButton 0 15 100 15 "Notitz"
  19.     GadFont xHelvetica.font 11 000
  20.     GuiClose #This
  21.     SetVar note $*SITEDIR
  22.     AppVar note "_hxt/note."
  23.     AppVar note $*USER
  24.     cli 'EditPad $note'
  25.     GuiQuit #This
  26.  
  27. XButton 0 30 100 15 "Rapport"
  28.     GadFont xHelvetica.font 11 000
  29.     GuiClose #This
  30.     SetVar rap $*SITEDIR
  31.     AppVar rap "_hxt/rap."
  32.     AppVar rap $*USER
  33.     ifexists file $rap
  34.         cli 'EditPad $rap'
  35.     else
  36.         copy "htmlext:settings/defaults/Rapport.txt" $rap
  37.         cli 'EditPad $rap'
  38.     endif
  39.     GuiQuit #This
  40.  
  41.  
  42. XButton 0 45 100 15 "History"
  43.     GadFont xHelvetica.font 11 000
  44.     GuiClose #This
  45.     lvuse HTMLEXT 1
  46.     EXTRACT %SiteHistFile CLEAN histfile
  47.     if $histfile != ""
  48.         guiload htmlext:gui/func.history
  49.     endif
  50.     GuiQuit #This
  51.  
  52.