TweetFollow Us on Twitter

Updating Windows
Volume Number:4
Issue Number:3
Column Tag:Basic School

Updating Windows in Basic

By Dave Kelly, MacTutor Editorial Board

Dave Kelly is an electrical engineer for General Dynamics in Pomona, where he is involved in using work stations for hardware design. He is a founding editorial board member and currently an active board member for MacTutor.

A fresh window lets you see things more clearly. (I like mine in color, but black & white mode on the Macintosh II sure is faster). I received the following request from one of our readers which I’m sure others of you would also like to know about:

Q. I am working on an application in ZBasic 4.00 that I hope to release commercially. Previously I never had to worry about handling update events in a “correct” manner (in the past I have always reprinted everything on the screen when I’ve encountered an update event). ZBasic does provide a WINDOW PICTURE statement that I have not gotten to work to my satisfaction. I have also tried GET and PUT without much success. I’m obviously doing something wrong. could you show various ways to handle update events that involve DAs and multiple windows? My application has Edit Fields and displayed text (i.e. displaying results obtained from values entered in the edit fields).

A. Yes, there can be some tricky problems associated with refreshing windows which use edit fields. There is a standard way that refreshing should work. In Pascal the application should respond by calling BeginUpdate, drawing the window, then call EndUpdate. The Window Manager section of Inside Macintosh explains how to do this. That’s fine when using the Macintosh standard GetNextEvent loop, but in ZBasic the approach must be modified.

The object is to restore any window which gets covered up by another window. If window 1 is dragged over window 2, then if window 2 is selected it should automatically be redrawn. Or if only part of window 2 is covered up and window 1 is removed then window 2 should be refreshed. This means that you as a programmer are responsible to determine all of the possible ways the window could be erased and be sure to set up event handling to cover all the possibilities.

There are 3 options we have for screen refresh with ZBasic.

1. Redraw the picture in response to a DIALOG event.

2. Use the WINDOW PICTURE statement.

3. Use GET and PUT in response to a DIALOG event.

By the end of this discussion you will know when to use each method in different circumstances. Directly redrawing the window is probably used most often by those that don’t know about the other two methods (or don’t know how they work). Redrawing is what I think of as the “brute force” method. It is usually the method used for “quick and dirty” screen refresh. The advantage is that you have control to force the update to occur whenever you feel like it. The disadvantage is that it is slower and you may find that the screen may get updated sometimes when it doesn’t need it (in order to catch every possible event).

Fig. 1 Our Multiple Window Example

To refresh by redrawing in the “brute force” mode a DIALOG(0)=5 event should effectively determine when a window needs to be refreshed. The window that needs to be refreshed is returned in the DIALOG(5) function. A quick call to the screen drawing routine when DIALOG event occurs is all that is needed to make this work.

The 2nd method of refreshing the screen is somewhat unique to ZBasic. Using the WINDOW PICTURE statement is the most automatic way to update the screen. A good example of using WINDOW PICTURE is given in the ZBasic manual on page E-158. The example at the end of this column also demonstrates its use. There are a few problems which you should be aware of. When using WINDOW PICTURE, all DIALOG events for the window involved are not passed to the DIALOG function, but instead are automatically handled by the WINDOW PICTURE statement. This is both good and bad. It is good because now any portion of the screen can be refreshed automatically without really trying. The problem comes when you use an EDIT FIELD in the window which you are using WINDOW PICTURE. When WINDOW PICTURE is active, the EDIT FIELD is not updated properly. Ordinarily the EDIT FIELD is automatically updated, but not with WINDOW PICTURE. This is one of those cases where the window should be refreshed with the “brute force” method. The process can be improved by setting up the screen information to be updated in a PICTURE so that it can be redrawn quickly. The demo shows how this is done. The “Set Window 1 Update” routine is called whenever an update event occurs. Also the EDIT FIELD value is re-read and the text displayed is obtained from the current contents of the EDIT FIELD. It is really too bad that in ZBasic the WINDOW PICTURE statement doesn’t update controls. [My guess is that WINDOW PICTURE is nothing more than the automatic window updating procedure of placing a quickdraw picture handle in the window record’s pic field, in which case, no controls or edit fields would be updated. This method was only intended for fairly static window contents, and never meant to be a true update procedure for dynamic windows. -Ed]

To use WINDOW PICTURE you first define the PICTURE which you want to print. This can be a combination of text and graphics. The PICTURE is pointed to by a variable which is used in the WINDOW PICTURE statement to initialize the automatic update routine. To stop the update or to modify it you can use WINDOW PICTURE #1,0 (if using window #1) and then KILL PICTURE to delete the picture from memory. If you don’t remove the pictures from memory, they may use up some of your memory and sooner or later if enough pictures are used, you could run out of memory.

I think the 3rd method is a bit more cumbersome than the first two. I call it the “GET/PUT” method. First, the window contents are drawn for the first time. Then the rectangle containing the contents of the window must be determined exactly. These coordinates are plugged in to an equation given on page 232 of the ZBasic manual. The equation determines the number of bytes to use in a DIM statement for the graphic image used in the GET and PUT statement. The equation is:

bytes = 6 + ((y2-y1)+1) * ((x2-x1)+1) * bpp + 7) / 8

where x1, y1 are the coordinates of the upper-left-corner of the graphic image on the screen; x2, y2 are the coordinates of the lower-right-corner of the image. The bits-per-pixel, bpp, depends on your Macintosh screen setup. Standard black & white Macintoshes have one bit per pixel, a Macintosh II with sixteen colors is 4 bpp and 256 colors is 8 bpp. Now divide the number of bytes by two for the integer (16 bit) array used in the DIM statement. This is the extent of the difficulty in using the “GET/PUT” method. The DIM statement should be executed only once at the beginning of your program and enough space should be allocated for whatever you plan to update. After the screen is drawn the first time, the GET statement is used to set the array to the screen image. If your array isn’t dimensioned big enough you can definitely expect a system bomb here. I would recommend that you only use the “GET/PUT” method when you are not going to change the window contents. The PUT statement is called by the DIALOG event routine whenever the window needs refreshing. (Mac II color users, notice that the PUT statement only refreshes in black & white; the color information is ignored. This is unfortunate. Maybe in a future release of ZBasic with 256 color support?????).

The demo program demonstrates the three methods discussed above. Try opening DAs and dragging a window on top of other windows and closing/opening them. I feel that this program should give you a good idea of how windows can be refreshed. I strongly recommend that most of your refreshing be done with the WINDOW PICTURE statement whenever possible. (NOTE: ‘whenever possible’ is just about always, except when controls are used on the same screen. Maybe this will get fixed someday too so that WINDOW PICTURE will work when EDIT FIELDs are active).

This has been a much more pleasant program to write as Zedcor has released version 4.01 with a much improved editor. The editor isn’t perfect, but if you remember to save your program often enough you can get by without exiting ZBasic. Also, they have added DIALOG(0)=17 for disk inserts. DIALOG(17) returns the disk drive which the disk was inserted. ZBasic is still the best Basic available today and keeps looking better each new release. Zedcor, keep up the good work.

Zedcor and True Basic have announced new versions at the San Francisco Expo. Watch for details on these new products. -Ed

‘ WINDOW UPDATE DEMO
‘ ©1988 MacTutor®
‘ By Dave Kelly

WINDOW OFF
COORDINATE WINDOW
DEF MOUSE=-1
DIM Wptr&(3)

APPLE MENU “About Updating ”
MENU 1,0,1,”File”
MENU 1,1,1,”Quit”
EDIT MENU 2
MENU 3,0,1,”Window”
MENU 3,1,1,”Show Window 1"
MENU 3,2,1,”Show Window 2"
MENU 3,3,1,”Show Window 3"
MENU 3,4,1,”Show All Windows”

‘Find out monitor size just in case we need it
CALL GETWMGRPORT(WMgrPort&)
PortTop=PEEK WORD(WMgrPort&+8)
PortLeft=PEEK WORD(WMgrPort&+10)
PortBottom=PEEK WORD(WMgrPort&+12)
PortRight=PEEK WORD(WMgrPort&+14)

WINDOW#1,”Window 1",(PortLeft+4,PortTop+42)-(300,300),5
Wptr&(1)=WINDOW(14)
TEXT 3,12
EDIT FIELD 1,”Read MacTutor!”,(50,200)-(270,225),1
GOSUB “Set Window 1 Update”

WINDOW#2,”Window 2",(PortLeft+24,PortTop+62)-(320,320),5
Wptr&(2)=WINDOW(14)
‘NOW... Create the picture for the first window
PICTURE ON
TEXT 2,24,1
COLOR=4
PRINT@(3,1)”MacTutor®”
COLOR=7
TEXT 3,12,0
PRINT@(6,4)”The Best in the West!”
PRINT@(5,6)”This is the second window”
PICTURE OFF,Pic2&
PICTURE, Pic2&:’ Draw the picture
WINDOW PICTURE #2,Pic2&

WINDOW#3,”Window 3",(PortLeft+44,PortTop+82)-(340,340),5
Wptr&(3)=WINDOW(14)
x1=0:x2=300:y1=0:y2=300
‘ bytes used = 6 + ((y2-y1)+1) * ((x2-x1+1)* bpp + 7) / 8)
DIM Pic3%(58293) :’ space for 32 bits-per-pixel (MAC II)
‘ NOW... Create the picture for the third window
TEXT 2,24,1
COLOR=4
PRINT@(3,1)”MacTutor®”
COLOR=7
TEXT 3,12,0
PRINT@(6,4)”The Best in the West!”
PRINT@(5,6)”This is the third window”
GET (x1,y1)-(x2,y2),Pic3%(1)
PUT (0,0),Pic3%(1),0

ON DIALOG GOSUB “DialogEvent”
ON MENU GOSUB “MenuEvent”
FLUSHEVENTS
MENU ON:DIALOG ON

“Loop”
GOTO “Loop”
MENU OFF:DIALOG OFF

“DialogEvent”
D=DIALOG(0)
SELECT D
 CASE 3
 WINDOW DIALOG(3)
 CASE 4
 CALL HIDEWINDOW(Wptr&(DIALOG(4)))
 CASE 5,6,7
 IF DIALOG(5)=3 THEN GOSUB”Window3 Update” ELSE GOSUB “Set Window 1 Update”
END SELECT
RETURN

“MenuEvent”
Menunumber=MENU(0)
Menuitem=MENU(1)
MENU
SELECT Menunumber
 CASE 255
 GOSUB “AppleMenu”
 CASE 1
 GOSUB “FileMenu”
 CASE 3
 GOSUB “WindowMenu”
END SELECT
RETURN

“AppleMenu”
WINDOW 4,””,(100,100)-(400,250),-2
PICTURE ON
TEXT 0,12,0,0
PRINT @(2,2) “(ZBASIC) Window Update Demo V1.0”
PRINT @(10,3)”by”
PRINT @(8,4)”Dave Kelly”
COLOR=6
PRINT @(7,6)”©MacTutor, 1988"
COLOR=7
PRINT @(7,7)”ZBasic version 4.01"
PICTURE OFF,Pic4&
PICTURE ,Pic4&
WINDOW PICTURE #4,Pic4&
MOUSE ON
DO
mous=MOUSE(0)
outsiderect=(MOUSE(1)<0 OR MOUSE(1)>300 OR MOUSE(2)<0 OR MOUSE(2)>150)
IF MOUSE(1)=0 AND MOUSE(2)=0 THEN “Stop”
UNTIL mous<>0 AND NOT (outsiderect)
MOUSE OFF
KILL PICTURE Pic4&:’ Delete the picture from memory
DIALOG ON
WINDOW CLOSE 4
DIALOG OFF
RETURN

“Window3 Update”
ActiveWindow=WINDOW(0)
WINDOW OUTPUT 3
PUT (0,0),Pic3%(1),0
WINDOW OUTPUT ActiveWindow
RETURN

“Set Window 1 Update”
ActiveWindow=WINDOW(0)
WINDOW OUTPUT 1
‘NOW... Create the picture for the first window
 KILL PICTURE Pic1&
 PICTURE ON
 TEXT 2,24,1
 COLOR=4
 PRINT@(3,1)”MacTutor®”
 COLOR=7
 TEXT 3,12,0,0
 PRINT@(6,4)”The Best in the West!”
 PRINT@(5,6)”This is the first window”
 Editvariable$=EDIT$(1)
 PRINT@(5,8)”The edit field = “;Editvariable$
 PICTURE OFF,Pic1&
PRINT@(5,8);SPC(100)
PICTURE, Pic1&:’ Draw the picture
WINDOW OUTPUT ActiveWindow
RETURN

“FileMenu”
IF Menuitem=1 THEN “Stop”
RETURN

“WindowMenu”
SELECT Menuitem
 CASE 1
 CALL SHOWWINDOW(Wptr&(1)):WINDOW 1
 CASE 2
 CALL SHOWWINDOW(Wptr&(2)):WINDOW 2
 CASE 3
 CALL SHOWWINDOW(Wptr&(3)):WINDOW 3
 CASE 4
 FOR i=1 TO 3
 CALL SHOWWINDOW(Wptr&(i))
 WINDOW i
 NEXT i
END SELECT
RETURN

“Stop”
WINDOW PICTURE #1,0:’Don’t update the first window anymore
KILL PICTURE Pic1&:’ Delete the picture from memory
WINDOW PICTURE #2,0:’Don’t update the second window anymore
KILL PICTURE Pic2&:’ Delete the picture from memory
END
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

GarageSale 7.0.8 - Create outstanding eB...
GarageSale is a slick, full-featured client application for the eBay online auction system. Create and manage your auctions with ease. With GarageSale, you can create, edit, track, and manage... Read more
Backblaze 5.0.0.116 - Online backup serv...
Backblaze is an online backup service designed from the ground-up for the Mac. With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more
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

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.