#: 10101 S10/OS9/6809 (CoCo)
    03-Apr-91  19:32:30
Sb: #10097-#GFX2/MV
Fm: Kevin Darling 76703,4227
To: Brother Jeremy, CSJW 76477,142 (X)

PROCEDURE umbardemo
(* Run on 80col gfx screen
DIM valid,fire,mx,my,area,sx,sy:INTEGER
DIM menu_id,menu_item:INTEGER
DIM wd(3):STRING \(* This is the window descriptor)
DIM m1(3):STRING \(* "Disk" pulldown
DIM MId_Disk,MId_Custom:INTEGER \MId_Disk=33 \MId_Custom=34
DIM Disable,Enable:INTEGER \Disable=0 \Enable=1

RUN gfx2("Title",wd,"Demo",34,10,2)
RUN gfx2("Menu",wd,1,"Disk",MId_Disk,8,4,m1,Enable)
RUN gfx2("Item",m1,1,"Dir   ",Enable)
RUN gfx2("Item",m1,2,"Free  ",Enable)
RUN gfx2("Item",m1,3,"PWD   ",Enable)
RUN gfx2("Item",m1,4,"Format",Disable)
(* NOTE: # of items set to ZERO:
RUN gfx2("Menu",wd,2,"Custom",MId_Custom,0,0,0,Enable)

RUN gfx2("CurOff")
RUN gfx2("WnSet",1,wd)
RUN gfx2("CWArea",1,1,78,22) \(* BACK TO TOP!
RUN gfx2("CurOn")
RUN gfx2("SetMouse",3,1,1) \(* Turn on autofollow
RUN gfx2("GCSet",$CA,1) \(* Use standard arrow pointer

LOOP 
RUN gfx2("OnMouse",0) \(* Wait for click
RUN gfx2("Mouse",valid,fire,mx,my,area,sx,sy)
IF valid0 AND fire=1 AND area=1 THEN 
RUN gfx2("GetSel",menu_id,menu_item)
IF menu_id0 THEN 
GOSUB 200 \(* handle items
ENDIF 
ENDIF 
ENDLOOP 

200 (* Menu Selections:
IF menu_id=2 THEN END  \ ENDIF  \(* Closebox
IF menu_id=MId_Custom THEN 
RUN gfx2("CurOff")
RUN gfx2("OWSet",1,8,0,40,10,0,1)
RUN gfx2("WnSet",3) \(* Shadowed Box
PRINT "This is a big box to play with"
INPUT k$
RUN gfx2("OWEnd")
RUN gfx2("UMBar") \(* Turn highlighted bar off!
ENDIF 
RETURN 

There is 1 Reply.