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

BBEdit 11.6.1 - Powerful text and HTML e...
BBEdit is the leading professional HTML and text editor for the Mac. Specifically crafted in response to the needs of Web authors and software developers, this award-winning product provides a... Read more
OmniGraffle Pro 6.6.1 - Create diagrams,...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more
OmniGraffle 6.6.1 - Create diagrams, flo...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
Dropbox 8.4.21 - Cloud backup and synchr...
Dropbox is an application that creates a special Finder folder that automatically syncs online and between your computers. It allows you to both backup files and keep them up-to-date between systems... Read more
BetterTouchTool 1.84 - Customize Multi-T...
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
ScreenFlow 6.1 - Create screen recording...
ScreenFlow is powerful, easy-to-use screencasting software for the Mac. With ScreenFlow you can record the contents of your entire monitor while also capturing your video camera, microphone and your... Read more
f.lux 37.7 - Adjusts the color of your d...
f.lux makes the color of your computer's display adapt to the time of day, warm at night and like sunlight during the day. Ever notice how people texting at night have that eerie blue glow? Or wake... Read more
BetterTouchTool 1.84 - Customize Multi-T...
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
Dropbox 8.4.21 - Cloud backup and synchr...
Dropbox is an application that creates a special Finder folder that automatically syncs online and between your computers. It allows you to both backup files and keep them up-to-date between systems... Read more
OmniGraffle Pro 6.6.1 - Create diagrams,...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more

Become the King of Avalon in FunPlus’ la...
King Arthur is dead. Considering the legend dates back to the 5th century, it would be surprising if he wasn’t. But in the context of real-time MMO game King of Avalon: Dragon Warfare, Arthur’s death plunges the kingdom into chaos. Evil sorceress... | Read more »
Nightgate (Games)
Nightgate 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: *** Launch Sale: 25% OFF for a limited time! *** In the year 2398, after a great war, a network of intelligent computers known as... | Read more »
3 best fantasy football apps to get you...
Last season didn't go the way you wanted it to in fantasy football. You were super happy following your drafts or auctions, convinced you had outsmarted everyone. You were all set to hustle on the waiver wire, work out some sweet trades, and make... | Read more »
Pokemon GO update: Take me to your leade...
The Team Leaders in Pokemon GO have had it pretty easy up until now. They show up when players reach level 5, make their cases for joining their respective teams, and that's pretty much it. Light work, as Floyd Mayweather might say. [Read more] | Read more »
Ruismaker FM (Music)
Ruismaker FM 1.0 Device: iOS Universal Category: Music Price: $4.99, Version: 1.0 (iTunes) Description: Following up on the success of Ruismaker, here's her crazy twin-sister, designed for people who want to design their own... | Read more »
Space Marshals 2 (Games)
Space Marshals 2 1.0.15 Device: iOS iPhone Category: Games Price: $5.99, Version: 1.0.15 (iTunes) Description: The sci-fi wild west adventure in outer space continues with Space Marshals 2. This tactical top-down shooter puts you in... | Read more »
Dungeon Warfare (Games)
Dungeon Warfare 1.0 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0 (iTunes) Description: Dungeon Warfare is a challenging tower defense game where you become a dungeon lord to defend your dungeon against greedy... | Read more »
Solitairica (Games)
Solitairica 1.0.7 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0.7 (iTunes) Description: Solitairica takes RPG combat and challenging rogue-like progression to a fresh new place—the world of solitaire! | Read more »
Bowmasters tips, tricks and hints
At least for this writer, archery was one of the more pleasant surprises of the 2016 Rio Olympics. As opposed to target shooting with guns, which was dreadfully boring, watching people shoot arrows at targets was pretty darn cool. [Read more] | Read more »
Best apps for watching live TV
The Olympics have come and gone, leaving nearly everyone in a temporary state of "What the heck am I going to watch on TV right now?" Besides old reruns of Golden Girls, but that goes without saying. [Read more] | Read more »

Price Scanner via MacPrices.net

27-inch iMacs on sale for up to $220 off MSRP
B&H Photo has 27″ Apple iMacs on sale for up to $200 off MSRP including free shipping plus NY sales tax only: - 27″ 3.3GHz iMac 5K: $2099 $200 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $1899 $100... Read more
Apple refurbished 13-inch MacBook Airs availa...
Apple has Certified Refurbished 2016 and 2015 13″ MacBook Airs now available starting at $849. An Apple one-year warranty is included with each MacBook, and shipping is free: - 2016 13″ 1.6GHz/8GB/... Read more
Apple refurbished iPad mini 2s available for...
Apple is offering Certified Refurbished iPad mini 2s for up to $80 off the cost of new minis. An Apple one-year warranty is included with each model, and shipping is free: - 16GB iPad mini 2 WiFi: $... Read more
Save up to $600 with Apple refurbished Mac Pr...
Apple has Certified Refurbished Mac Pros available for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The following... Read more
Mac Pros on sale for $200 off MSRP
B&H Photo has Mac Pros on sale for $200 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2799, $200 off MSRP - 3.5GHz 6-core Mac Pro: $3799, $200... Read more
Will We See A 10.5″ iPad Pro in 2017? – The ‘...
A MacRumors report, cites a research note from KGI Securities analyst Ming-Chi Kuo, saying a new size iPad model is in the works. According to the highly respected Cho, who has a strong track record... Read more
IOGEAR USB-C Docking Station Transforms Lapto...
IOGEAR has announced the launch of its innovative USB-C Docking Station with Power Delivery which turns USB-C enabled laptops into desktop workstations. The new IOGEAR USB-C Docking Station features... Read more
12-inch Retina MacBooks on sale for up to $10...
Amazon has 2016 12″ Apple Retina MacBooks on sale for $100 off MSRP. Shipping is free: - 12″ 1.1GHz Space Gray Retina MacBook: $1199 $100 off MSRP - 12″ 1.1GHz Silver Retina MacBook: $1224.99 $75 off... Read more
13-inch 2.5GHz MacBook Pro (Apple refurbished...
Apple has Certified Refurbished 13″ 2.5GHz MacBook Pros available for $829, or $270 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 13″ 2.5GHz MacBook Pros... Read more
21-inch iMacs on sale for up to $120 off MSRP
B&H Photo has 21″ iMacs on sale for up to $120 off MSRP including free shipping plus NY sales tax only: - 21″ 3.1GHz iMac 4K: $1379 $120 off MSRP - 21″ 2.8GHz iMac: $1199.99 $100 off MSRP - 21″ 1... Read more

Jobs Board

*Apple* Mobile Master - Best Buy (United Sta...
What does a Best Buy Apple Mobile Master do? At Best Buy, our mission is to leverage the unique talents and passions of our employees to inspire, delight, and enrich Read more
*Apple* Retail - Multiple Positions Akron, O...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Simply Mac *Apple* Specialist- Repair Techn...
…The Technician is a master at working with our customers to diagnose and repair Apple devices in a manner that exceeds the expectations set forth by Apple Read more
*Apple* Retail - Multiple Positions Germanto...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Professional Learning Specialist - A...
# Apple Professional Learning Specialist Job Number: 51234379 Portland, Maine, Maine, United States Posted: Aug. 18, 2016 Weekly Hours: 40.00 **Job Summary** The Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.