[Coco] Multivue...

Bob Devries devries.bob at gmail.com
Fri Dec 15 05:41:36 EST 2006


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 




More information about the Coco mailing list