TweetFollow Us on Twitter

Easy FKEY
Volume Number:8
Issue Number:2
Column Tag:Pascal Workshop

Related Info: File Manager Event Manager

FKEYs in THINK Pascal, Easy

Have you ever had to restart because a file was left open? No more! Read on.

By Roy Lovejoy, Sunnyvale, California

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

About the author

Roy Lovejoy is a Software Engineer at Calera Recognition Systems. He was previously working at Claris Corporation as one of the MacWrite II engineers. This is his first article for MacTutor. What do you think?

A Bit of History

When the Macintosh arrived on the scene in February of 1984, the world knew it was unique; its profile, screen, and keyboard were all different from the then-standard IBM PC. One of the attributes that IBM-ers scoffed at was the lack of "Function keys". You know function keys, those funky little buttons that do an infinitely many different things (depending on which program you are running). Well, we have news for the scoffers. The Macintosh has had function keys, or FKEY’s as they are called, since its inception.

The FKEY’s that were included were ones to eject the internal and external floppy disk, take a snapshot of the screen and save it to a MacPaint file, and print the screen, or the front window. These FKEY’s were assigned numbers 1 , 2, 3, and 4 respectively and were triggered by the Command key followed by the associated digit. Since the introduction of different size and depth screens, and printers, they of course had to be modified. Many people have written other useful FKEY's, and some have become very well known (i.e., switch-a-roo).

FKEY's are a pretty safe bet. Since they are trapped during a GetNextEvent or WaitNextEvent, they are available in a large percentage of applications. Since Desk Accessories are going the way of the brontosaurus, or so they say, FKEY’s are (hopefully) a safe utility feature in the future.

General

Now these function keys are in no way difficult to code. They are just simply different to code. I have found that if I need a utility, an FKEY is always my first choice, then comes a Desk Accessory, then an Application. (You don’t have all of the DRVR problems that are inherent in a desk accessory.) Basically an FKEY is a procedure that has no true globals (true globals are ones that are referenced off of the 68000 register A5) and is compiled to an 'FKEY' resource. There are many safe, and many sneaky ways to have a 'global' area, but that will be good subject matter for a future article.

An FKEY can be completely Modal - it might simply bring up a Dialog and let you set/reset a value, or it can have a robust user interface, complete with menus and windows. This article will describe the former.

In THINK Pascal, an FKEY is simply a unit that is compiled into a resource, of type FKEY. See figure for Project Setup. The unit must have the entry procedure be called ‘main’ and have no parameters. There must not be a ‘program’. See Figure 1.

Figure 1: Set Project Dialog (set for FKEY #5)

Why did I write this?

As an applications programmer I have many times (read > 300) written file I/O routines that save and retrieve program’s data structures. Naturally, in the course of human events, errors happen, sunspots appear, neutrinos expire, all after you open a data file, but before you get a chance to close it properly. This problem leads to a file, on your storage device, that is marked busy. This file can not be closed by your program (your variables have since committed electronic suicide, and your FileRefNum has gone with them), and you can not throw the file out, (because the busy bit is set). So, what do you do? Well, the busy bit is reset when the volume gets dismounted. That is acceptable for a floppy disk, but if it is your currently-booted hard disk, that poses a problem. What I wanted to do was an FSClose on the file, regardless of how it got opened. I was very frustrated, logged countless hours on networks looking for a utility to ease my woes. Finally I said, forget it, I’ll do it myself. Here it is.

What does it do?

Basically, when you (or any application) do an FSOpen or equivalent, memory is allocated for the file’s information. This FKEY simply tries to open the file; if the file is already open, it makes a parameter block call to get the file reference number, then uses that to close the file. If the file was not open originally, it is now because of the FSOpen, and so the FKEY goes ahead and closes it. A diagnostic dialog makes everything friendly.

A Bit of Style

The final resting place of an FKEY is either the System File or an exterior resource opened by a Suitcase-like program. This does not mean you can’t debug it elegantly. Oh, sure. “It’s a code resource. Those are hard to debug!!” I have some Arizona beach front property for you, too. What I do is have two Think projects. One has the standard Runtime.Lib and an extra file that is just a program stub that calls ‘Main’. I can then go on and debug in the glorious THINK environment. The other project has the DRVRruntime.lib and no ‘program’ file. This one has debugging turned off and the project type set to code resource. See Figures 2 and 3.

Figure 2: Project Set Up for debugging

Figure 3: Project Set Up for compiling

Listing

{======================}
unit FKEY;
{======================}
interface
{======================}
 procedure Main;
{======================}
implementation
{======================}
 procedure Main;
 var
 dlgOrigin: Point; {Top-left corner of dialog box}
 theReply: SFReply;{Data returned by SFGet dialog}
 theFile: INTEGER; {Reference number of file}
 resultCode: OSErr;{I/O error code}
 TypeList: SFTypeList;  {Type List to search for }
 Block: ParamBlockRec;  {Used to get file ref number}
 WIND: WindowPtr;{Display Window }
 bounds: Rect; {window rectangle Rectangle }
 OldPort: GrafPtr; {Graf Port set upon entry}
 dummy: LONGINT; {parameter of Delay}
{======================}
{ CenterDraw}
{ Input: String to Draw , line number to draw on.}
{ (String is centered horizontally on the window.)}
{======================}
 procedure CenterDraw (s: Str255; y: INTEGER);
 var
 x: INTEGER;
 begin
 with WIND^.portRect do
 begin
 x := (right + left) div 2 - StringWidth(s) div 2;
 MoveTo(x, y * 16);
 end;
 DrawString(s);
 end;
{======================}
 begin
 GetPort(OldPort);
 SetRect(bounds, 85, 40, 420, 100);
 WIND := NewWindow(nil, bounds, '', TRUE, dBoxProc, pointer(-1), FALSE, 
0);
 SetPort(WIND);
 TextFace([underline]);
 CenterDraw('Close File FKEY', 1);
 TextFace([]);
 CenterDraw('Select the file you wish to close.', 2);

 SetPt(dlgOrigin, 85, 120);         {Set up dialog origin}
 SFGetFile(dlgOrigin, '', nil, -1, TypeList, nil, TheReply);

 with TheReply do
 if good then
 begin
{Try to open file}
 resultCode := FSOpen(fname, vRefNum, theFile);
{if it was already open, get the file ref number}
 if resultCode = opWrErr then
 with Block do
 begin
 ioNamePtr := @fName;
 ioVRefNum := vRefNum;
 ioFDirIndex := -1;
 resultCode := PBGetFInfo(@Block, false);  {Get Finder info}
 theFile := ioFRefNum;
 CenterDraw(Concat('“', fName, '” is now closed.'), 3);
 end
 else
 CenterDraw(Concat('“', fName, '” was not open.'), 3);
{Do the actual closing... regardless if it was open before the FKEY or 
not}
 ResultCode := fsClose(theFile);
 end;
 Delay(45, dummy);{Wait a while 3/4 of second}

 DisposeWindow(WIND); {Close up}
 SetPort(OldPort);
 end;
{======================}
end.
{======================}

program Test;
 uses
 FKEY;
begin
 Main;
end.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Apple GarageBand 10.1.5 - Complete recor...
The new GarageBand is a whole music creation studio right inside your Mac -- complete with keyboard, synths, orchestral and percussion instruments, presets for guitar and voice, an entirely... Read more
Adobe Audition CC 2017 10.0.2 - Professi...
Audition CC 2017 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous Audition customer). Adobe Audition CC 2017 empowers you to create and... Read more
Adobe After Effects CC 2017 14.1 - Creat...
After Effects CC 2017 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous After Effects customer). The new, more connected After Effects CC... Read more
Adobe Premiere Pro CC 2017 11.0.2 - Digi...
Premiere Pro CC 2017 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous Premiere Pro customer). Adobe Premiere Pro CC 2017 lets you edit... Read more
WALTR 2 2.0.9 - $39.95
WALTR 2 helps you wirelessly drag-and-drop any music, ringtones, videos, PDF, and ePub files onto your iPhone, iPad, or iPod without iTunes. It is the second major version of Softorino's critically-... Read more
Yummy FTP Pro 1.11.14 - $14.99 (50% off)
Yummy FTP Pro is an advanced Mac file transfer app which provides a full-featured professional toolkit combined with blazing speeds and impeccable reliability, so whether you want to transfer a few... Read more
ExpanDrive 5.4.4 - Access cloud storage...
ExpanDrive builds cloud storage in every application, acts just like a USB drive plugged into your Mac. With ExpanDrive, you can securely access any remote file server directly from the Finder or... Read more
Dash 3.4.3 - Instant search and offline...
Dash is an API documentation browser and code snippet manager. Dash helps you store snippets of code, as well as instantly search and browse documentation for almost any API you might use (for a full... Read more
Civilization VI 1.0.2 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
TurboTax 2016 - Manage your 2016 U.S. ta...
TurboTax guides you through your tax return step by step, does all the calculations, and checks your return for errors and overlooked deductions. It lets you file your return electronically to get... Read more

Red's Kingdom (Games)
Red's Kingdom 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Mad King Mac has kidnapped your father and stolen your golden nut! Solve puzzles and battle goons as you explore and battle your... | Read more »
Turbo League Guide: How to tame the cont...
| Read more »
Fire Emblem: Heroes coming to Google Pla...
Nintendo gave us our first look at Fire Emblem: Heroes, the upcoming mobile Fire Emblem game the company hinted at last year. Revealed at the Fire Emblem Direct event held today, the game will condense the series' tactical RPG combat into bite-... | Read more »
ReSlice (Music)
ReSlice 1.0 Device: iOS Universal Category: Music Price: $9.99, Version: 1.0 (iTunes) Description: Audio Slice Machine Slice your audio samples with ReSlice and create flexible musical atoms which can be triggered by MIDI notes or... | Read more »
Stickman Surfer rides in with the tide t...
Stickson is back and this time he's taken up yet another extreme sport - surfing. Stickman Surfer is out this Thursday on both iOS and Android, so if you've been following the other Stickman adventures, you might be interested in picking this one... | Read more »
Z-Exemplar (Games)
Z-Exemplar 1.4 Device: iOS Universal Category: Games Price: $3.99, Version: 1.4 (iTunes) Description: | Read more »
5 dastardly difficult roguelikes like th...
Edmund McMillen's popular roguelike creation The Binding of Isaac: Rebirth has finally crawled onto mobile devices. It's a grotesque dual-stick shooter that tosses you into an endless, procedurally generated basement as you, the pitiable Isaac,... | Read more »
Last week on PocketGamer
Welcome to a weekly feature looking back on the past seven days of coverage on our sister website, PocketGamer. It’s taken a while for 2017 to really get going, at least when it comes to the world of portable gaming. Thank goodness, then, for... | Read more »
ROME: Total War - Barbarian Invasion set...
To the delight of mobile strategy fans, Feral Interactive released ROME: Total War just a few months ago. Now the game's expansion, Barbarian Invasion is marching onto iPads as a standalone release. [Read more] | Read more »
Yuri (Games)
Yuri 1.0 Device: iOS iPhone Category: Games Price: $3.99, Version: 1.0 (iTunes) Description: It's night. Yuri opens his eyes. He wakes up in a strange forest.The small, courageous explorer rides on his bed on casters in this... | Read more »

Price Scanner via MacPrices.net

Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free: -... Read more
4-core 3.7GHz Mac Pro on sale for $2290, save...
Guitar Center has the 3.7GHz 4-core Mac Pro (MD253LL/A) on sale for $2289.97 including free shipping or free local store pickup (if available). Their price is a $710 savings over standard MSRP for... Read more
128GB Apple iPad Air 2, refurbished, availabl...
Apple has Certified Refurbished 128GB iPad Air 2s WiFis available for $419 including free shipping. That’s an $80 savings over standard MSRP for this model. A standard Apple one-year warranty is... Read more
13-inch 2.7GHz Retina MacBook Pro on sale for...
B&H Photo has the 2015 13″ 2.7GHz/128GB Retina Apple MacBook Pro on sale for $100 off MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro (MF839LL/A): $... Read more
Laptop Market – Flight To Quality? – The ‘Boo...
Preliminary quarterly PC shipments data released by Gartner Inc. last week reveal an interesting disparity between sales performance of major name PC vendors as opposed to that of less well-known... Read more
IBM and Bell Transform Canadian Enterprise Mo...
IBM and Bell Canada have announced they are joining forces to offer IBM MobileFirst for iOS market-ready enterprise applications for iPad, iPhone or Apple Watch. Bell, Canada’s largest communications... Read more
Otter Products is Closing… For a Day of Givin...
On Thursday, Feb. 9, Otter Products is closing doors to open hearts. In partnership with the OtterCares Foundation, the company is pausing operations for a day so all employees can volunteer with... Read more
15-inch 2.2GHz Retina MacBook Pro on sale for...
Amazon has 2015 15″ 2.2GHz Retina MacBook Pros (MJLQ2LL/A) available for $1799.99 including free shipping. Apple charges $1999 for this model, so Amazon’s price is represents a $200 savings. Read more
Back in stock: Apple refurbished 13-inch Reti...
Apple has Certified Refurbished 2015 13″ Retina MacBook Pros available for up to $360 off original MSRP, starting at $1099. An Apple one-year warranty is included with each model, and shipping is... Read more
CalcTape for macOS 1.2 Adding Machine App for...
schoettler Software has announced CalcTape 1.2, an update to their desktop calculator for macOS. When it comes to adding long columns of numbers, doing complex calculations or playing around with... Read more

Jobs Board

*Apple* & PC Desktop Support Technician...
Apple & PC Desktop Support Technician job in Los Angeles, CA Introduction: We have immediate job openings for several Desktop Support Technicians with one of our Read more
*Apple* Retail - Multiple Positions - Apple,...
SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (Multi-L...
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* 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
*Apple* & PC Desktop Support Technician...
Apple & PC Desktop Support Technician job in Stamford, CT We have immediate job openings for several Desktop Support Technicians with one of our most well-known Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.