[Coco] multiple windows on a screen in Basic09

[Bob Devries]

Stephen Fisher, you said:

> It might be necessary to switch to the first window before creating the 
> second one on the same screen.

That's what was needed, THANKS Stepehen. Here's what I ended up with:

PROCEDURE twowin4
DIM wpath1:BYTE
DIM wpath2:BYTE
DIM x:INTEGER
DIM a:STRING[80]
OPEN #wpath1,"/w1":UPDATE
RUN gfx2(wpath1,"DWSet",2,0,0,80,20,0,1,1)
RUN gfx2(wpath1,"Select")
OPEN #wpath2,"/w2":UPDATE
RUN gfx2(wpath2,"DWSet",255,0,21,80,3,1,2,3)
RUN gfx2(wpath2,"Select")
PRINT #wpath1,"Main output window"
PRINT #wpath2,"Input window"
INPUT #wpath2,"Type a line ",a
PRINT #wpath1,a
INPUT #wpath2,"Press ENTER to finish ",a
FOR x=1 TO 10000
NEXT x
RUN gfx2(1,"Select")
RUN gfx2(wpath2,"DWEnd")
CLOSE #wpath2
RUN gfx2(wpath1,"DWEnd")
CLOSE #wpath1
END


--
Besides a mathematical inclination, an exceptionally good mastery of one's 
native tongue is the most vital asset of a competent programmer.

Edsger W.Dijkstra, 18 June 1975

----- Original Message ----- 
From: "Stephen H. Fischer" <SFischer1 at Mindspring.com>
To: "CoCoList for Color Computer Enthusiasts" <coco at maltedmedia.com>
Sent: Friday, January 15, 2010 4:17 PM
Subject: Re: [Coco] multiple windows on a screen in Basic09


> Hi,
>
> It might be necessary to switch to the first window before creating the 
> second one on the same screen.
>
> I remember doing that with my predefined windows.
>
> I don't have the time to look now for my documentation. I sent the source 
> to someone who can give it to anyone upon request. It may be necessary to 
> build a new boot to use then.
>
> ---------------------
>
> The "W" numbers I do not remember, so take this as just an example.
>
> Shell i=/W11 &
> ;REM Toggle to the new screen.
> Shell i=/W12 &
>
> -----------------------
>
> I found the "Select" in the "OS-9 Windowing System" part of the OS-9 
> Manual. I do not know if there is a Basic09 subroutine.
>
> I do suggest that you set up two Window Device Descriptors using WMODE and 
> get them working with the method I gave first.
>
> The use of "w1" bothers me, but I do not know why.
>
> If problems continue, I am willing to zip up what I believe is a working 
> copy of Jeff's emulator (Without HD, it is too big) and send it to 
> someone.
>
> That should boot into OS-9 and you can try the method.
>
> SHF
>
>
> ----- Original Message ----- 
> From: "Bob Devries" <devries.bob at gmail.com>
> To: <coco at maltedmedia.com>
> Sent: Thursday, January 14, 2010 1:53 PM
> Subject: [Coco] multiple windows on a screen in Basic09
>
>
>> Hi all,
>>
>> I have been trying to emulate what Wayne Campbell is trying to do, that 
>> is, to have two active windows on a single screen using Basic09.
>>
>> Now I know that this is possible, since there was an example shell script 
>> on the original OS9 System disk called "window.glr4". This script 
>> produced three active windows on a graphics screen, and opened a shell in 
>> two of them.
>>
>> I'm trying to emulate this in Basic09, but so far, no luck.
>
>
> --
> Coco mailing list
> Coco at maltedmedia.com
> http://five.pairlist.net/mailman/listinfo/coco