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

Parallels Desktop 13.0.0 - Run Windows a...
Parallels allows you to run Windows and Mac applications side by side. Choose your view to make Windows invisible while still using its applications, or keep the familiar Windows background and... Read more
Mellel 4.0.0 - The word processor for sc...
Mellel is the leading word processor for OS X and has been widely considered the industry standard for long form documents since its inception. Mellel focuses on writers and scholars for technical... Read more
Adobe Muse CC 2017 2017.1.0 - Design and...
Muse CC 2017 is available as part of Adobe Creative Cloud for as little as $14.99/month (or $9.99/month if you're a previous Muse customer). Adobe Muse 2017 enables designers to create websites as... Read more
WhatsApp 0.2.5862 - Desktop client for W...
WhatsApp is the desktop client for WhatsApp Messenger, a cross-platform mobile messaging app which allows you to exchange messages without having to pay for SMS. WhatsApp Messenger is available for... Read more
WhatsApp 0.2.5862 - Desktop client for W...
WhatsApp is the desktop client for WhatsApp Messenger, a cross-platform mobile messaging app which allows you to exchange messages without having to pay for SMS. WhatsApp Messenger is available for... Read more
Things 3.1.3 - 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
BetterTouchTool 2.292 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Things 3.1.3 - 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
BetterTouchTool 2.292 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Bookends 12.8.3 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Bookends uses the cloud to sync reference libraries on all the Macs you use.... Read more

KORG iMono/Poly (Music)
KORG iMono/Poly 1.0.0 Device: iOS Universal Category: Music Price: $19.99, Version: 1.0.0 (iTunes) Description: *** Special Sale for a limited time to celebrate the debut of KORG iMono/Poly (33% OFF) until Sep 30! *** Reviving a... | Read more »
Super Phantom Cat 2 beginner's guid...
Super Phantom Cat 2 presents a whole new world of fun platforming challenges and perplexing puzzles. It's a well-designed platformer with a bright, neon aesthetic that brings the genre up to date. [Read more] | Read more »
Shadow Fight 2 Special Edition (Games)
Shadow Fight 2 Special Edition 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: ** New story chapter! **** No Ads! **** No energy! ** The best fighting series on mobile has returned and... | Read more »
4 RPGs like Final Fantasy XV that deserv...
Square Enix announced another Final Fantasy XV spin-off today - Final Fantasy XV Pocket Edition. This mobile, episodic version of the hit RPG gives the game a chibi-fied makeover. The first episode will be free, followed by 9 more premium episodes... | Read more »
Guild sieges and soul gems in latest upd...
Webzen’s MU Origin hit app stores last year, giving fans of fantasy hack-n-slash MMOs like Diablo a new fix to fixate on. This latest update introduces a competitive guild battle, a fresh dungeon challenge, a mini-game and some elemental gems to... | Read more »
Little Red Lie (Games)
Little Red Lie 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: ARE YOU MORE AFRAID OF POVERTY THAN DEATH? Little Red Lie is a narrative-focused, interactive fiction experience that reduces... | Read more »
You can now apply to be Clash of Clans...
Earlier this month, word got out that the Builder, the trusty handiman who tirelessly built every single building inevery singleClash of Clansbase had called it quits. Sick of seeing his work destroyed endless, the Builder has set out for our world... | Read more »
Meshi Quest beginner's guide - how...
Meshi Quest is Square Enix's newest free-to-play release, and it's a real charmer. You start off as the head of a sushi restaurant, upgrading your food and equipment as you serve visitors heaping helpings of your delicious meals. As you progress,... | Read more »
BUST-A-MOVE JOURNEY (Games)
BUST-A-MOVE JOURNEY 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: BUST-A-MOVE Features:- Shoot bubbles and match 3 or more bubbles of the same color to make them pop!- Complete your... | Read more »
The best card combos in Clash Royale
Clash Royale is all about building a deck of units that synergise well. To help you get off to a flying start, we've put together a list of unit combinations that are incredibly effective. Looking for some choice 2v2 combos? Check out our guide. [... | Read more »

Price Scanner via MacPrices.net

Clearance 2016 13-inch MacBook Airs, Apple re...
Apple has Certified Refurbished 2016 13″ MacBook Airs available starting at $809. An Apple one-year warranty is included with each MacBook, and shipping is free: – 13″ 1.6GHz/8GB/128GB MacBook Air: $... Read more
2017 13-inch MacBook Airs on sale for $100 of...
B&H Photo new 2017 13″ MacBook Airs on sale today for $100 off MSRP, starting at $899: – 13″ 1.8GHz/128GB MacBook Air (MQD32LL/A): $899, $100 off MSRP – 13″ 1.8GHz/256GB MacBook Air (MQD42LL/A... Read more
Sale! 13-inch 2.3GHz MacBook Pros for $100 of...
B&H Photo has 13″ 2.3GHz MacBook Pros in stock today and on sale for $100 off MSRP including free shipping plus NY & NJ sales tax only: – 13-inch 2.3GHz/128GB Space Gray MacBook Pro (MPXQ2LL... Read more
2016 MacBook Pros, Apple refurbished, availab...
Apple has Certified Refurbished 2016 15″ and 13″ MacBook Pros available starting at $1189. An Apple one-year warranty is included with each model, and shipping is free: – 15″ 2.7GHz Touch Bar Space... Read more
Apple offers Certified Refurbished iPhone 6s...
Apple has Certified Refurbished unlocked iPhone 6s’s and 6s Plus’s available starting at $449. An Apple one-year warranty is included with each phone, and shipping is free: – 16GB iPhone 6s: $449, $... Read more
Apple offers Certified Refurbished Pencils fo...
Apple has Certified Refurbished Apple Pencils available for $85 including free shipping. Their price is $14 off MSRP, and it’s the lowest price available for a Pencil. Read more
2016 15-inch 2.6GHz Touch Bar MacBook Pro ava...
B&H Photo has clearance 2016 15″ 2.6GHz MacBook Pros in stock today and on sale for $500 off original MSRP. Shipping is free, and B&H charges NY & NJ sales tax only: – 15″ 2.6GHz Touch... Read more
21-inch 2.3GHz iMac on sale for $999, save $1...
Amazon has the new 2017 21″ 2.3GHz iMac (MMQA2LL/A) in stock and on sale for $999.99 including free shipping. Their price is $100 off MSRP, and it’s the lowest price available for this model. Read more
Free Instant Translator 2.0 App For iOS Relea...
Mobile application development company, Neoappz has announced the release and immediate availability of Instant Translator 2.0 for iOS devices. Instant Translator is a user-friendly application which... Read more
2017 15-inch MacBook Pros on sale for $200 of...
Amazon has 2017 15″ MacBook Pros on sale for $200 off MSRP. Shipping is free: – 15″ 2.8GHz MacBook Pro Space Gray: $2199.99, $200 off MSRP – 15″ 2.8GHz MacBook Pro Silver: $2296, $103 off MSRP – 15″... Read more

Jobs Board

Development Operations and Site Reliability E...
Development Operations and Site Reliability Engineer, Apple Payment Gateway Job Number: 57572631 Santa Clara Valley, California, United States Posted: Jul. 27, 2017 Read more
Frameworks Engineering Manager, *Apple* Wat...
Frameworks Engineering Manager, Apple Watch Job Number: 41632321 Santa Clara Valley, California, United States Posted: Jun. 15, 2017 Weekly Hours: 40.00 Job Summary Read more
Development Operations and Site Reliability E...
Development Operations and Site Reliability Engineer, Apple Payment Gateway Job Number: 57572631 Santa Clara Valley, California, United States Posted: Jul. 27, 2017 Read more
Frameworks Engineering Manager, *Apple* Wat...
Frameworks Engineering Manager, Apple Watch Job Number: 41632321 Santa Clara Valley, California, United States Posted: Jun. 15, 2017 Weekly Hours: 40.00 Job Summary Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.