TweetFollow Us on Twitter

ResEdit
Volume Number:3
Issue Number:5
Column Tag:Basic School

Windows with ResEdit

By Dave Kelly, MacTutor Editorial Board

Windows are a fundamental of the Macintosh user interface. Back in March of 1985, Vol. 1 No. 4 of MacTutor (for those of you who were around back then) or starting on page 307 in The Best of MacTutor, Vol 1, I cover the basics of creating windows with MS Basic. I refer you back to this reference for details. (You can get Best of MacTutor, Vol 1, through MacTutor for $24.95). Sorry to say, the new version of MS Basic and the MS Basic Compiler has only a small improvement to windows. MS Basic now allows six windows open at once instead of four. ZBasic has added window capabilities such as additional window types available including the ability to specify Zoom windows, go-away box, grow box, and rounded cornered windows. We can only hope that the next version of MS Basic will be more comprehensive. Notwithstanding this there are a few things that can be mentioned relating to windows.

If you recall, a few months back, during our Basic Wars review, PCMacBasic was the only Basic to allow you to use resources to program your application windows. This is still true, however I have come across a method which allows MS Basic to use window resources as a guide for the window that will be used in Basic. This method is very simple and only requires three calls from the ToolLib library. It does not extend the window creation capabilities, however. Languages which fully support the toolbox will usually allow you to create a window using the WIND (window resource) ID number.

Now you can create your own window resources using ResEdit and Basic will read the resource and create a window looking like the one described by the resource. Well, usually. There are still those types of windows that Basic doesn't support such as the ones with rounded corners of different curvatures. ZBasic does support these other types and a similar method could be used to read the WIND resources from ZBasic.

For now I'll explain what to do to implement this method. You might also get some ideas of other resources you could read and apply the same idea to.

First off, in case you don't know how ResEdit can be used to create your own windows I will briefly explain by walking you though an example. Open up ResEdit and choose 'NEW' from the File menu. I chose to use a separate resource file (named 'Window.rsc') for this example just to be safe. You could use any file to store your resource in just like the library CODE resources. Next (with the new file open) open up a new resource by selecting 'NEW' from the File menu. Create a resource of type 'WIND' by selecting or typing the proper type when asked.

At this point ResEdit gives you a default window which can be sized and placed where ever you want it. The move the window drag it near the title bar just like you would move a window when using the Finder. To resize the window you drag the lower right corner of the window to the size you want.

Now select Get Info from the File menu to adjust the window ID# if necessary. Usually you are safe to just use the number that ResEdit assigns the WIND resource. In this example I used 3041 through 3044 for the four windows that I created. You will have to create your own resources to use the example program. Be sure to use the same ID numbers in the program that you use as your resource ID.

There are two ways to view WIND resources with ResEdit. The first is graphically which is the mode you get when you first open a WIND resource. The second way is to display the WIND resource parameters as text. If you want different window types you can select Display text to show the actual window resource parameters.

The ProcID is the parameter which indicates the window type. The ProcID numbers are shown in Inside Macintosh as:

CONST documentProc = 0;
 dBoxProc = 1;
 plainDBox = 2;
 altDBoxProc = 3;
 noGrowDocProc = 4;
 rDocProc = 16;

Since not all of these are supported by MS Basic the example program will ignore those that it doesn't understand and use the default document window. You could probably try this same method using ZBasic and be able to implement all of the features. Another way to view the resource would be to open it up as General instead of using OPEN in the File menu. Using this we can see how the WIND is organized.

From this HEX representation of the WIND resource and Inside Macintosh (pg. I-302) we see:

$00 2E, the first two bytes represent the top of the window where HEX $00 2E = 46 decimal.

$00 0A, the 3rd and 4th bytes represent the left of the window where HEX $00 0A = 10 decimal.

$00 AC, the 5th and 6th bytes represent the bottom of the window where HEX $00 AC = 170 decimal.

$01 4E, the 7th and 8th bytes represent the right side of the window where HEX $01 4E = 202 decimal.

$00 00, the 9th and 10th bytes represent the ProcID parameter.

$01 00, the 11th and 12th bytes represent the visible parameter.

$01 00, the 13th and 14th bytes represent the goAwayFlag parameter.

$00 00 00 00, the 15th through 18th bytes is the refCon parameter.

$08, the 16th byte represents the length of the window title (the next 8 bytes) where $57 69 6E 64 6F 77 20 31 is 'Window 1' when converted via ASCII codes.

The only thing left to finish the new resources now is to close the resource file and quit ResEdit. The example Basic listing below will read the resource file and store it in and array where the information can be used to create a window that looks the same as the one created in ResEdit using the standard MS Basic window command. This is accomplished with the aid of three ToolLib calls. The first is OpenResFile, used to open the desired resource file. The last is CloseResFile, used to close the resource file. The trick comes in using LoadArray to read in data from an open resource and place it in a pre-dimensioned array. Since the data that is read is not in the same format that Basic expects for variables, it is necessary to read each by and decode or convert the data to MS Basic variables which we can use in the Window statement. The subroutine GetResWindow demonstrates which byte to peek to get the desired results. The variable pointer must be explicitly defined in each of the peek statements or the data may not come back correctly. You may only need to read back the parts that will be used in your program.

An optional way of doing this would be to manually write down what the window size and type etc. after creating the window with ResEdit (then you wouldn't need to actually save the window resources) and then use these numbers to create your new window. This would make the Basic code shorter, but might not be quite as accessible to modification after it is compiled (provided you intend to compile your application).

As mentioned last month, there are still some serious problems with HFS and MS Basic. Until this is fixed, the use of resources is somewhat restricted. Since a compiled MS Basic application does not have an automatic way (a way in which the user doesn't have to be aware of what is going on) to find the volume which itself is located, we will have to live with the problem until Microsoft releases an improved version. (Sooner the better).

'WIND Resource Demo ©MacTutor™ 1987 By Dave Kelly

Libname$="Hard Disk:Basic:MS ToolLib:ToolLib"  'full path name
LIBRARY Libname$
WINDResname$="Hard Disk:MacTutor™:May87:Window.rsc"
WIDTH 40
DIM a(40)
FOR i=1 TO 4
ID%=3040+i
CALL GetResWindow(WINDResname$,ID%,top,left,bottom, right,     ProcID, 
TitleLength, Title$)
type=1
IF ProcID= 0 THEN type=1
IF ProcID=1 THEN type=2
IF ProcID=2 THEN type=3
IF ProcID=3 THEN type=4
WINDOW i,Title$,(left,top)-(right,bottom),type
PRINT "Top= ";top,"Left= ";left,"Bottom= ";bottom,"Right=      
 ";right
PRINT "ProcID = ";ProcID
PRINT "TitleLength = ";TitleLength
PRINT "Title = ";Title$
PRINT "Click mouse to continue"
WHILE MOUSE(0)<>1:WEND
NEXT i
END
SUB GetResWindow (WINDResname$,ID%, top,left,bottom,right,     ProcID, 
TitleLength, Title$) STATIC
ref%=0
type$="WIND"
openresfile WINDResname$,ref%
loadArray ref%,ID%,a(1),type$
top=PEEK(VARPTR(a(1)))*256+PEEK(VARPTR(a(1))+1)
left=PEEK(VARPTR(a(1))+2)*256+PEEK(VARPTR(a(1))+3)
bottom=PEEK(VARPTR(a(1))+4)*256+PEEK(VARPTR(a(1))+5)
right=PEEK(VARPTR(a(1))+6)*256+PEEK(VARPTR(a(1))+7)
ProcID=PEEK(VARPTR(a(1))+8)*256+PEEK(VARPTR(a(1))+9)
TitleLength=PEEK(VARPTR(a(1))+18)
closeResFile ref%
Title$=""
FOR i=1 TO TitleLength
    Title$=Title$+CHR$(PEEK(VARPTR(a(1))+i+18))
NEXT
END SUB

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Duplicate Annihilator 5.7.5 - Find and d...
Duplicate Annihilator takes on the time-consuming task of comparing the images in your iPhoto library using effective algorithms to make sure that no duplicate escapes. Duplicate Annihilator... Read more
BusyContacts 1.0.2 - Fast, efficient con...
BusyContacts is a contact manager for OS X that makes creating, finding, and managing contacts faster and more efficient. It brings to contact management the same power, flexibility, and sharing... Read more
Capture One Pro 8.2.0.82 - RAW workflow...
Capture One Pro 8 is a professional RAW converter offering you ultimate image quality with accurate colors and incredible detail from more than 300 high-end cameras -- straight out of the box. It... Read more
Backblaze 4.0.0.872 - 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
Little Snitch 3.5.2 - Alerts you about o...
Little Snitch gives you control over your private outgoing data. Track background activity As soon as your computer connects to the Internet, applications often have permission to send any... Read more
Monolingual 1.6.4 - Remove unwanted OS X...
Monolingual is a program for removing unnecesary language resources from OS X, in order to reclaim several hundred megabytes of disk space. If you use your computer in only one (human) language, you... Read more
CleanApp 5.0 - Application deinstaller a...
CleanApp is an application deinstaller and archiver.... Your hard drive gets fuller day by day, but do you know why? CleanApp 5 provides you with insights how to reclaim disk space. There are... Read more
Fantastical 2.0 - Create calendar events...
Fantastical is the Mac calendar you'll actually enjoy using. Creating an event with Fantastical is quick, easy, and fun: Open Fantastical with a single click or keystroke Type in your event details... Read more
Cocktail 8.2 - General maintenance and o...
Cocktail is a general purpose utility for OS X that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
Direct Mail 4.0.4 - Create and send grea...
Direct Mail is an easy-to-use, fully-featured email marketing app purpose-built for OS X. It lets you create and send great looking email campaigns. Start your newsletter by selecting from a gallery... Read more

Appy to Have Known You - Lee Hamlet Look...
Being at 148Apps these past 2 years has been an awesome experience that has taught me a great deal, and working with such a great team has been a privilege. Thank you to Rob Rich, and to both Rob LeFebvre and Jeff Scott before him, for helping me... | Read more »
MLB Manager 2015 (Games)
MLB Manager 2015 5.0.14 Device: iOS Universal Category: Games Price: $4.99, Version: 5.0.14 (iTunes) Description: Guide your favorite MLB franchise to glory! MLB Manager 2015, officially licensed by MLB.com and based on the award-... | Read more »
Breath of Light (Games)
Breath of Light 1.0.1421 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1421 (iTunes) Description: Hold a quiet moment. Breath of Light is a meditative and beautiful puzzle game with a hypnotic soundtrack by... | Read more »
WWE WrestleMania Tags into the App Store
Are You ready to rumble? The official WWE WrestleMania app, by World Wrestling Entertainment, is now available. Now you can get all your WrestleMania info in one place before anyone else. The app offers details on superstar signings, interactive... | Read more »
Bio Inc's New Expansion is Infectin...
Bio Inc., by DryGin Studios, is the real time strategy game where you infect a human body with the worst virus your evil brain can design. Recently, the game was updated to add a whole lot of new features. Now you can play the new “Lethal”... | Read more »
The Monocular Minion is Here! Despicable...
Despicable Me: Minion Rush, by Gameloft, is introducing a new runner to the mix in their latest update. Now you can play as Carl, the prankster minion. Carl has a few new abilities to play with, including running at a higher speed from the start.... | Read more »
Dungeon of Madness (Games)
Dungeon of Madness 1.0.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.0 (iTunes) Description: Dungeon of Madness is an action game where you rotate tiles to create our own route. Help the hero by connecting the... | Read more »
Filters for iPhone (Photography)
Filters for iPhone 1.0 Device: iOS iPhone Category: Photography Price: $.99, Version: 1.0 (iTunes) Description: | Read more »
Jump'N'Shoot Attack (Games)
Jump'N'Shoot Attack 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: A mobile game for gamers! Join Louise Lightfoot, the legendary "Master of Jumping and Shooting", on her mission to save... | Read more »
Space Bounties Inc. (Games)
Space Bounties Inc. 1.4 Device: iOS Universal Category: Games Price: $1.99, Version: 1.4 (iTunes) Description: SuperGameDroid: 4/5 "Satisfying futuristic RPG combat, high replay value, and a heavy dose of nostalgia make Space... | Read more »

Price Scanner via MacPrices.net

13-inch 2.5GHz MacBook Pro (refurbished) avai...
The Apple Store has Apple 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.... Read more
Save up to $80 on iPad Air 2s, NY tax only, f...
 B&H Photo has iPad Air 2s on sale for $80 off MSRP including free shipping plus NY sales tax only: - 16GB iPad Air 2 WiFi: $469.99 $30 off - 64GB iPad Air 2 WiFi: $549.99 $50 off - 128GB iPad... Read more
iMacs on sale for up to $205 off MSRP
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
Färbe Technik Offers iPhone Battery Charge LI...
Färbe Technik, which manufactures and markets of mobile accessories for Apple, Blackberry and Samsung mobile devices, is offering tips on how to keep your iPhone charged while in the field: •... Read more
Electronic Recyclers International CEO Urges...
Citing a recent story on CNBC about concerns some security professionals have about the forthcoming Apple Watch, John Shegerian, Chairman and CEO of Electronic Recyclers International (ERI), the... Read more
Save up to $380 with Apple refurbished iMacs
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
Mac minis on sale for up to $75 off, starting...
MacMall has Mac minis on sale for up to $75 off MSRP including free shipping. Their prices are the lowest available for these models from any reseller: - 1.4GHz Mac mini: $459.99 $40 off - 2.6GHz Mac... Read more
College Student Deals: Additional $50 off Mac...
Take an additional $50 off all MacBooks and iMacs at Best Buy Online with their College Students Deals Savings, valid through April 11, 2015. Anyone with a valid .EDU email address can take advantage... Read more
Mac Pros on sale for up to $260 off MSRP
B&H Photo has Mac Pros on sale for up to $260 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: $3719.99... Read more
13-inch 2.5GHz MacBook Pro on sale for $100 o...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more

Jobs Board

DevOps Software Engineer - *Apple* Pay, iOS...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring 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
Sr. Technical Services Consultant, *Apple*...
**Job Summary** Apple Professional Services (APS) has an opening for a senior technical position that contributes to Apple 's efforts for strategic and transactional Read more
Lead *Apple* Solutions Consultant - Retail...
**Job Summary** Job Summary The Lead ASC is an Apple employee who serves as the Apple business manager and influencer in a hyper-business critical Reseller's store Read more
*Apple* Pay - Site Reliability Engineer - Ap...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.