[Coco] Multivue...

[Bob Devries]

Willard,
I did a couple of articles on that subject in the Australian OS9 Newsletter, 
back in October and November of  '88. Those newsletters are available as PDF 
files on the maltedmedia ftp site.

I did a quick and dirty Basic09 example also, reproduced below:

PROCEDURE Program
DIM path:INTEGER
DIM wd(3):STRING
DIM m1(3):STRING
DIM m2(2):STRING
DIM MId_Disk,MId_Mem:INTEGER
DIM Disable,Enable:INTEGER
DIM a:STRING[1]
DIM valid,fire,mx,my,area,sx,sy:INTEGER
DIM menu_id,menu_item:INTEGER
MId_Disk=33
MId_Mem=34
Disable=0
Enable=1
OPEN #path,"/w":UPDATE
RUN gfx2(path,"DWSet",8,0,0,40,24,0,1,1)
RUN gfx2(path,"select")
RUN gfx2(path,"Title",wd,"Tools",34,10,2)
RUN gfx2(path,"Menu",wd,1,"Disk",MId_Disk,8,4,m1,Enable)
RUN gfx2(path,"Item",m1,1,"Dir ",Enable)
RUN gfx2(path,"Item",m1,2,"Free ",Enable)
RUN gfx2(path,"Item",m1,3,"PWD ",Enable)
RUN gfx2(path,"Item",m1,4,"Format",Disable)
RUN gfx2(path,"Menu",wd,2,"Memory",MId_Mem,6,2,m2,Enable)
RUN gfx2(path,"Item",m2,1,"MFree",Enable)
RUN gfx2(path,"Item",m2,2,"Procs",Enable)
RUN gfx2(path,"WnSet",1,wd)
RUN gfx2(path,"setmouse",3,1,1)
RUN gfx2(path,"gcset",$CA,1)
LOOP
RUN gfx2(path,"onmouse",0)
RUN gfx2(path,"mouse",valid,fire,mx,my,area,sx,sy)
IF valid<>0 AND fire=1 AND area=1 THEN
RUN gfx2(path,"getsel",menu_id,menu_item)
IF menu_id=2 THEN
GOTO 100
ENDIF
ENDIF
ENDLOOP
100 RUN gfx2(1,"select")
CLOSE #path
END
--
Regards, Bob Devries, Dalby, Queensland, Australia

Isaiah 50:4 The sovereign Lord has given me
the capacity to be his spokesman,
so that I know how to help the weary.

website: http://www.home.gil.com.au/~bdevasl
my blog: http://bdevries.invigorated.org/

----- Original Message ----- 
From: "Willard Goosey" <goosey at virgo.sdc.org>
To: <coco at maltedmedia.com>
Sent: Friday, December 15, 2006 6:23 PM
Subject: [Coco] Multivue...



>

> I am beginning to understand why there are so few Multi-Vue programs

> out there...

>

> I mean, all I have working is the Tandy Menu, and that took about five

> hours of work.  Geez.

>

> And this is with CGFX7 and the sample CoCoSkel program.

>

> Willard

> -- 

> Willard Goosey  goosey at sdc.org

> Socorro, New Mexico, USA

> "I've never been to Contempt!  Isn't that somewhere in New Mexico?"

>   --- Yacko

>

> -- 

> Coco mailing list

> Coco at maltedmedia.com

> http://five.pairlist.net/mailman/listinfo/coco