TweetFollow Us on Twitter

Light thru Windows
Volume Number:1
Issue Number:4
Column Tag:Basic school

Light thru the Windows

By Dave Kelly

Let’s put some light on the subject of windows. Almost everything you write in Microsoft BASIC 2.0 requires some window programming. This is especially true if you want your program to conform to the Macintosh user interface. First, a rundown on the commands we have available to program our windows:

WINDOW window-id [title ]
                [,[rectangle ][, type ]]]
WINDOW CLOSE window-id
WINDOW OUTPUT window-id
WINDOW OUTPUT #file-number

The window-id identifies the output window. Window-id is a number from 1 to 4. This means that you may only have up to 4 windows open at any one time. BASIC opens up Window 1 when BASIC starts. If this window gets closed you can select the output window from the Windows menu in BASIC or type WINDOW 1 from the command window. A window must be open and specified as the output window before anything can be printed in the window.

The title is the name displayed in the title bar of a document window if the window has a title bar.

The rectangle specifies the location of the window on the Macintosh screen. It is given in the form (x1,y1)-(x2,y2) where (x1,y1) is the upper left corner of the window and (x2,y2) is the lower right corner of the window. This sounds easy but someone out there will probably be confused. The entire Macintosh screen has a resolution of 512 X 342. To open a window which fills the entire screen you could use (0,0)-(512,342). However, you’ll find that the desktop border (for pull down menus will cover the title bar of your document window. The desktop border on the top of the screen is about 40 pixels down from the top. By using (2,40) as the top corner and (510,340) as the bottom corner your window will fill the screen except for the desktop border. A couple of pixels are allowed at the edge of the screen to make it look a little better. So much for filling the entire screen with a window. It can require some trial and error to get your window positioned where you want when you try to center a smaller window on the screen. Other BASIC commands use the rectangle format to specify the location relative to the upper-left corner of the window. The rectangle format in the WINDOW command specifies the location of the window relative to the upper-left corner of the screen.

There are 4 types of windows that are available with type. They are (for type =1-4) :

1. Document window

2. Dialog box with two line border

3. Window with simple one-line border

4. Window with a shadow

Only type 1, the document window, has a size box and a title bar. Also, only type 1 can be moved with the mouse. The other types will not change position on the screen without redefining the window with the WINDOW command. A negative type number is called a modal dialog box. In this case any attempt to select outside of the window results in a beep.

The WINDOW CLOSE statement closes the indicated window. WINDOW OUTPUT indicates which window will be the window used for output when there are multiple windows. This allows you to send output to another window without changing the active window. If a file-number is indicated instead of a window-id, the output will be sent to the indicated file. Currently, only files opened to LPT1: are valid with this statement. As other devices which support graphics are made available, this will change.

Info About Windows

The window function WINDOW(n) returns information about the windows. If n = 0, the function returns the window-id of the active output window. n = 1 returns the window-id of the current output window. This is the window where output will be sent. n = 2 gives the width of the current output window and n = 3 returns the height of the current output window. n = 4 and n = 5 returns the x and y coordinate (respectively) in the current output window where the next character will be drawn. This function may be used to determine where the next character or section of a drawing should continue.

Our sample window shows how these commands are used to control windows. The program sets up all four windows as type 1 (document with size box and title). Information about each window is printed in the window. The information about the width and height might be used when trying to get just the right sized window for your program.

An important thing to note when working with windows is that everything does not happen automatically as you may be used to when moving, opening, or closing windows in application programs you may have run. You have to do everything which you took for granted before. For some people this may be hard to figure out, but just try to imitate the way the commercial applications are supposed to use the Macintosh user interface. Try this with my sample program: move one of the windows on top of another and then back again. The printed information which may have been destroyed by overlaying a window over another needs to be refreshed. Changing the size box has the same effect.

REFRESHING WINDOWS

The DIALOG(5) function returns the window-id of the window which needs to be refreshed. Updating a window is not automatically performed but must be done by the program. In the Event: subroutine when DIALOG(0) sets d=5, the output window is set to the window indicated by DIALOG(5) and the window is printed again. It would be desirable to setup a subroutine to refresh windows if this feature is desired. Just for fun, delete the line that starts with IF d=5 THEN WINDOW OUTPUT DIALOG(5) and then run the program. You can see that the window will not be automatically refreshed without this event trapping. In some programs you may not want to refresh all (or even any) of the windows.

The printwindowinfo: subroutine prints the information on the current output window. You can change this and print your own message if you like. Try changing the window type just to see what it will do.

The command LOCATE[row][,column] positions the pen at a specified row and column in the output window. This position is with respect to the upper-left corner of the current output window. Since most fonts are proportionally spaced, the spacing is that of the letter “0”, because it is an average width for most fonts. Another way to control the location of the pen is the use of CALL GETPEN, CALL MOVETO(x,y) or CALL MOVE(xdelta,ydelta). (Note: MSBASIC 2.0 allows you to optionally leave off the word CALL and just use the routine name-useful for creating your own basic commands by calling machine language routines).

Notice that by selecting the active window from the pull down menu causes a different result than clicking on the window. When the window is clicked it is selected as both the active and output window. By selecting from the menus, one window can be active while output is going to another. This is exactly the same procedure used when refreshing the screen. This is observed by changing the output window from the menu. To return to BASIC, use the quit menu.

You now have an introduction to windows. The important thing to remember is that you must control where windows are opened, and which windows are selected or deselected, and which window is the output window. For simple programs which only need a place to print, the statement WINDOW creates an output window if none currently exsists and makes it active. Your program will have to do the work of deciding what should be done with each window, as it is not automatic. Do you have some questions or programming tips to share with MacTutor’s reader’s? Send your questions or contributions to BASIC SCHOOL care of MacTutor, P.O. Box 846, Placentia, CA. 92670.


‘   Window Demo
‘   by Dave Kelly
‘   MACTUTOR   March 1985

‘SET UP MENUS
MENU 4,0,1,”Quit”
MENU 4,1,1,”Return to BASIC”
MENU 5,0,1,”Output Window”
MENU 5,1,1,”Window 1"
MENU 5,2,0, “-” ‘MENU DASH LINE
MENU 5,3,1,”Window 2"
MENU 5,4,0, “-”
MENU 5,5,1,”Window 3"
MENU 5,6,0, “-”
MENU 5,7,1,”Window 4"
MENU 6,0,1,”Active Window”
MENU 6,1,1,”Window 1"
MENU 6,2,0, “-”
MENU 6,3,1,”Window 2"
MENU 6,4,0, “-”
MENU 6,5,1,”Window 3"
MENU 6,6,0, “-”
MENU 6,7,1,”Window 4"

‘TURN ON MENU SELECT TRAP
ON MENU GOSUB menus:MENU ON

‘SET UP WINDOWS and PRINT INFO

WINDOW 1,”Window 1",(2,40)-(252,190)
GOSUB printwindowinfo
WINDOW 2,”Window 2",
                  (260,40)-(510,190)
GOSUB printwindowinfo
WINDOW 3,”Window 3",
                  (2,195)-(252,345)
GOSUB printwindowinfo
WINDOW 4,”Window 4",
                  (260,195)-(510,345)
GOSUB printwindowinfo
DIALOG ON

‘ENABLE EVENT TRAP

ON DIALOG GOSUB Event
pause:GOTO pause

Event:
    
d=DIALOG(0)    ‘EVENT OCCURED
    ‘d=3  USER CLICKED INACTIVE WINDOW
    IF d=3 THEN window.picked=
        DIALOG(3):WINDOW window.picked
    ‘d=4  USER CLICKED GO-AWAY BOX
    IF d=4 THEN window.closed=
        DIALOG(4):WINDOW CLOSE
        window.closed
    ‘d=5  WINDOW NEEDS TO BE REFRESHED
    IF d=5 THEN WINDOW OUTPUT
          DIALOG(5):GOSUB printwindowinfo
RETURN

menus: 

‘THIS HANDLES MENUS

menunumber=MENU(0)
menuitem=MENU(1):MENU
IF menunumber<>4 THEN menu5
‘MENU 4 QUITS
MENU RESET:END
menu5:IF menunumber<>5 THEN menu6    ‘MENU 5 SELECTS OUTPUT WINDOW

IF menuitem=1 THEN WINDOW OUTPUT 1
IF menuitem=3 THEN WINDOW OUTPUT 2
IF menuitem=5 THEN WINDOW OUTPUT 3
IF menuitem=7 THEN WINDOW OUTPUT 4
GOSUB printwindowinfo
RETURN

menu6:

IF menunumber<>6 THEN RETURN    ‘MENU 6 SELECTS ACTIVE WINDOW
menuitem=MENU(1):MENU
IF menuitem=1 THEN WINDOW  1
IF menuitem=3 THEN WINDOW  2
IF menuitem=5 THEN WINDOW  3
IF menuitem=7 THEN WINDOW  4
GOSUB printwindowinfo
RETURN

printwindowinfo:

LOCATE 1,1
PRINT”Current active window is “;
           WINDOW(0)
PRINT”Current output window is “;
           WINDOW(1)
PRINT”Window width is “;WINDOW(2)
PRINT”Window height is “;WINDOW(3)
RETURN
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

OmniOutliner Pro 4.2 - Pro version of th...
OmniOutliner Pro is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually designed to help you think. It's... Read more
VLC Media Player 2.2.1 - Popular multime...
VLC Media Player is a highly portable multimedia player for various audio and video formats (MPEG-1, MPEG-2, MPEG-4, DivX, MP3, OGG, ...) as well as DVDs, VCDs, and various streaming protocols. It... Read more
Nisus Writer Pro 2.1.1 - Multilingual wo...
Nisus Writer Pro is a powerful multilingual word processor, similar to its entry level products, but brings new features such as table of contents, indexing, bookmarks, widow and orphan control,... Read more
Tinderbox 6.2.0 - Store and organize you...
Tinderbox is a personal content management assistant. It stores your notes, ideas, and plans. It can help you organize and understand them. And Tinderbox helps you share ideas through Web journals... Read more
OmniOutliner 4.2 - Organize your ideas,...
OmniOutliner is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually designed to help you think. It's... Read more
Things 2.5.4 - Elegant personal task man...
Things is a task management solution that helps to organize your tasks in an elegant and intuitive way. Things combines powerful features with simplicity through the use of tags and its intelligent... Read more
NeoOffice 2014.10 - Mac-tailored, OpenOf...
NeoOffice is a complete office suite for OS X. With NeoOffice, users can view, edit, and save OpenOffice documents, PDF files, and most Microsoft Word, Excel, and PowerPoint documents. NeoOffice 3.x... Read more
iPhoto Library Manager 4.2 - Manage mult...
iPhoto Library Manager allows you to organize your photos among multiple iPhoto libraries, rather than having to store all of your photos in one giant library. You can browse the photos in all your... Read more
Web Snapper 3.3.8 - Capture entire Web p...
Web Snapper lets you capture Web pages exactly as they appear in your browser. You can send them to a file as images or vector-based, multi-page PDFs. It captures the whole Web page - eliminating the... Read more
TeamViewer 10.0.41404 - Establish remote...
TeamViewer gives you remote control of any computer or Mac over the Internet within seconds, or can be used for online meetings. Find out why more than 200 million users trust TeamViewer! Free for... Read more

Chainsaw Warrior: Lords of the Night has...
It's time to put the Darkness back in its place now that Chainsaw Warrior: Lords of the Night has officially made it to iOS. | Read more »
A World of Ice and Fire Lets You Stalk 2...
George R. R. Martin’s A World of Ice and Fire, by Random House, is a mobile guide to the epic series. The new update gives you the Journeys map feture that will let you track the movements of 25 different characters. But don't worry, you can protect... | Read more »
Gameloft Announces Battle Odyssey, a New...
Battle Odyssey, Gameloft's newest puzzle RPG, is coming to the App Store next week. Set in the world of Pondera, you will need to control the power of the elements to defend the world from evil. You'll be able to entlist over 500 allies to aid you... | Read more »
Fusion - HDR Camera (Photography)
Fusion - HDR Camera 1.0.0 Device: iOS Universal Category: Photography Price: $1.99, Version: 1.0.0 (iTunes) Description: Fusion creates HDR (high dynamic range) photos by capturing different exposures and then combining them into one... | Read more »
Sago Mini Toolbox (Education)
Sago Mini Toolbox 1.1 Device: iOS Universal Category: Education Price: $2.99, Version: 1.1 (iTunes) Description: Come build with the Sago Mini friends! Use a wrench, try a saw, or hammer some nails. From sewing hand puppets to... | Read more »
You Should Probably Grab Hitman GO While...
Hitman GO is a surprisingly cool (yet also incredibly drastic) departure from the Hitman series. It's well worth playing for any puzzle game fans out there, and at the moment you can get your hands - or garrotte if you will - on it for a mere $0.99... | Read more »
IFTTT is Bringing Do Button and Do Note...
IFTTT has announced Do Button and Do Note for the Apple Watch. Do Button lets you make your own personalized button that can connect to things like your Google Drive, control the temperature in your home with Nest Thermostat, or turn the lights on... | Read more »
How Many Days, Hours, and Minutes Are Le...
Countdown, by Yves Tscherry, is now available on the App Store. The app keeps track of countdowns to your favorite things such as someones birthday or days till the New Year. You can display the time in seconds, minutes, hours, days, weeks, months,... | Read more »
The All-New Misfit 2.0 App is Available...
Misfit has just given their app a complete overhaul. Misfit 2.0 now has a brand new interface with a sleek design and is easier to navigate. You'll be able to sync your Misfit device and look up health and fitness information faster than ever before... | Read more »
Halo: Spartan Strike (Games)
Halo: Spartan Strike 1.0 Device: iOS Universal Category: Games Price: $5.99, Version: 1.0 (iTunes) Description: Delve into 30 challenging missions through cities and jungles using a devastating arsenal of weapons, abilities and... | Read more »

Price Scanner via MacPrices.net

TigerText Introduces First Secure Enterprise...
TigerText, a provider of secure, real-time messaging for the enterprise, has announced the launch of TigerText for the Apple Watch. TigerText for the Apple Watch enables users to securely send and... Read more
The Conservation Fund Partners with Apple To...
The Conservation Fund has announced that it will partner with Apple to help protect working forests in the United States. The Apple initiative will conserve more than 36,000 acres of working... Read more
Clearance 13-inch 2.6GHz Retina MacBook Pro a...
B&H Photo has clearance 2014 13″ 2.6GHz/128GB Retina MacBook Pros now available for $1099, or $200 off original MSRP. Shipping is free, and B&H charges NY sales tax only. Read more
Apple refurbished 2014 13-inch Retina MacBook...
The Apple Store has Apple Certified Refurbished 2014 13″ Retina MacBook Pros available for up to $400 off original MSRP, starting at $979. An Apple one-year warranty is included with each model, and... Read more
iMacs on sale for up to $205 off MSRP, NY tax...
B&H Photo has 21″ and 27″ iMacs on sale for up to $205 off MSRP including free shipping plus NY sales tax only: - 21″ 1.4GHz iMac: $1019 $80 off - 21″ 2.7GHz iMac: $1189 $110 off - 21″ 2.9GHz... Read more
Sale! 16GB iPhone 5S for $1 with service
Best Buy is offering 16GB iPhone 5Ss for $1.00 with 2-year activation at a participating cellular provider. Choose free home shipping and activation, or buy online and activate during in-store pickup... Read more
Apple refurbished 2014 MacBook Airs available...
The Apple Store has Apple Certified Refurbished 2014 MacBook Airs available starting at $679. An Apple one-year warranty is included with each MacBook, and shipping is free. These are currently the... Read more
27-inch 3.5GHz 5K iMac on sale for $2349, sav...
 Adorama has the 27″ 3.5GHz 5K iMac in stock today and on sale for $2349 including free shipping plus NY & NJ sales tax only. Their price is $150 off MSRP. For a limited time, Adorama will... Read more
Save up to $380 on an iMac with Apple refurbi...
The Apple Store has Apple Certified Refurbished iMacs available for up to $380 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 27″ 3.5GHz 5K iMac – $2119 $... Read more
iFixIt Teardown Awards 12-IInch Retina MacBoo...
iFixIt has posted its illustrated teardown of the new 12-inch MacBook Retina. They note that this new MacBook is less than half the thickness of the last Apple notebook called just “MacBook” back in... Read more

Jobs Board

*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
*Apple* Watch SW Application Project Manager...
**Job Summary** The Apple Watch software team is looking for an Application Engineering Project Manager to work on new projects for Apple . The successful candidate Read more
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.