G4C

;
; PLone Editor - for PLone v1.0
;
; VER$: PLoneEd v1.0 (c) 2000 by Rolf Roth (Slartibartfass/Phoenix Soft)
;

WinBig 0 0 250 125 "PLone Editor v1.0 (c) 2000 Phoenix Soft" 
WINONMOUSE 125 52
WinType 11110001
WINFONT XHelvetica.font 11 000

xonload

guiopen ploneed

ifexists GUI PLone
;
else
ezreq 'Please start PLone first!' 'Okay' v
guiquit PLoneEd
endif

update ploneed 1 $*title
update ploneed 2 $*composer
update ploneed 3 $*comment
update ploneed 4 $*path

;---

xROUTINE gohome
guiquit ploneed

;---

xonclose
guiquit ploneed

;---

xButton 25 100 100 20 "_Change"
    GadFont "xHelvetica.font" "11" 000
    GadKey "s"
    lvuse plone 1
  setgad plone 1 HIDE
    %Title = $ntitle
    %composer = $ncomposer
    %comment = $ncomment
    %path = $*path
    lvmove #0
  *title = $ntitle
  *composer = $ncomposer
  *comment = $ncomment

   setgad plone 1 SHOW

;---

xButton 125 100 100 20 "C_ancel"
    GadFont "xHelvetica.font" "11" 000
    GadKey "x"
    GuiQuit #This

;---

xTextIn 65 10 160 18 "Title" ntitle "" 21
    GadID 1
    GadFont "xHelvetica.font" "11" 000

;---

xTextIn 65 30 160 18 "Composer" ncomposer "" 21
    GadID 2
    GadFont "xHelvetica.font" "11" 000

;---

xTextIn 65 50 160 18 "Comment" ncomment "" 40
    GadID 3
    GadFont "xHelvetica.font" "11" 000

;---

xTextIn 65 70 160 18 "Path" npath "" 80
    GadID 4
    GadFont "xHelvetica.font" "11" 000

;---