TweetFollow Us on Twitter

Stack Translators
Volume Number:10
Issue Number:3
Column Tag:Hypercard

Related Info: File Manager Apple Event Manager Resource Manager

Stack Translators for Hypercard 2.2

Transmogrification, another trick up your sleeve

By Kevin Calhoun, Apple Computer, Inc.

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

About the author

Kevin is a member of the HyperCard team at Apple. In his spare time, oh, wait a minute, what spare time?

HyperCard developers have frequently asked, reasonably and rightly, for a version of HyperCard which could build standalone applications, often calling it a “HyperCard compiler”. They have also asked for a cross-platform version of HyperCard, particularly one for Microsoft Windows. Recently, they have requested versions that can build QuickTime movies, Newton applications, and ScriptX projects. Perhaps soon I’ll be hearing about HyperCard for OpenDoc, Magic Cap, and Taligent.

HyperCard’s ease of use and breadth of functionality make it an attractive choice among software development tools. Until recently, HyperCard’s ease of use has also carried the limitation of only running on Macintosh. Ideally, software developers could develop with HyperCard and avoid the limitations imposed by HyperCard’s runtime requirements. Why should HyperCard be present in order to run stackware? Furthermore, why should a Macintosh be required?

While HyperCard 2.2 doesn’t directly target other platforms and technologies, it can get you closer. It still only builds stacks, and they require HyperCard to run. However, it offers an open interface for add-on components, called “stack translators,” which can translate stacks into other forms. Given the appropriate stack translators, you can use HyperCard 2.2 as a development tool for runtime environments other than its own. In addition, HyperCard 2.2 ships with a stack translator that builds standalone Macintosh applications, called StackToApp.

You can create your own stack translators to turn HyperCard stackware into running applications for any of the platforms and runtime environments I’ve mentioned above. You can also use them to extract data from HyperCard stacks and store them in alternate forms for use by other applications or platforms. For example, you could put styled text from text fields into word processing documents. You might extract AppleScript scripts from stacks and save them as script files on the desktop. Anything that a stack might contain - data, links between data, interface objects, configurations of interface objects, scripted functionality, etc. - can be extracted by stack translators and munged and transformed into just about any form you can imagine. As for me, I’d like to see a stack translator that takes my various stacks and merges data within them into the data stored on my Newton.

The User Experience

HyperCard’s stack translators are Component Manager components. HyperCard 2.2 finds translators any of three ways. First, the System registers all components (files of type 'thng' in the System Folder or the Extensions folder) during startup. Second, HyperCard registers components it finds in files of type 'thng' and type 'STAK'. These can be in the HyperCard folder, or a sub-folder called “Stack Translators”. Third, XCMDs can also register and unregister a component, so you can choose when it’s available.

The names of all registered stack translators appear in a popup menu in the standard file dialog HyperCard displays when the user chooses “Save a copy...” from the File menu.

When the user chooses a stack translator from the popup menu and clicks the “Save” button in that dialog, HyperCard calls the appropriate stack translator to translate the current stack. HyperCard passes the component the data and resource forks reference numbers, as well as an FSSpec for the destination file.

To write a stack translator, there’s not much you need to know about the Component Manager. It helps to have some experience in writing standalone code resources, and you can read much more about components in Inside Macintosh QuickTime Components.

Components are standalone code resources with a single entry point, and have the calling interface defined by the Component Manager, as follows:

  FUNCTION ComponentEntrypoint(VAR params:ComponentParameters;
 storage: Handle): ComponentResult;

Every component has this entry point, and uses the parameters to dispatch to the right subroutine. The ComponentParameters record contains everything you need to know to decide how to respond to a call to your component. In particular, the what field of a ComponentParameters record is the selector for your component routines. If what is negative, it represents one of the standard selectors defined by the Component Manager, of which six are currently defined: selectors for 1) opening, 2) closing, and 3) registering the component, 4) inquiring whether a component supports a given selector value, 5) requesting the version number of the component, and 6) informing the component that it has been “captured” by a descendent component. Routines for handling each of these selectors also have calling interfaces defined by the Component Manager.

If the what field of a ComponentParameters record is non-negative, it represents a selector defined by the component. The Component Manager leaves wide open both what your component does with these selectors and the data it expects to be passed in order to do it. However, for each standard type of component, each of which is identified by a four-character code, there is a set of selectors and a corresponding set of routines with calling interfaces that all components of that type are expected to support. Each component of a particular type has a subtype, which is also a four-character code, which should be unique among components of the same type.

The code resource that contains the implementation of a component must be accompanied by several additional resources. The most important of these is of type 'thng', which identifies the component’s type, subtype, and manufacturer . It also tells the Component Manager where to look to find the component’s code, name, description, and icon (if any).

The Stack Translation Interface

The component type for stack translators is 'STRN'. In addition to the standard component routines, each stack translator must implement a routine for the selector CONST kTranslateStack = 0. Subtypes 'STKP' and 'SCFT' are already defined, so don’t use these.

When HyperCard calls you with selector kTranslateStack, it passes parameters as follows:

FUNCTION TranslateStack (componentSubtype: OSType;
 stackFile: INTEGER;
 stackResFile: INTEGER;
 fileSpecPtr: FSSpecPtr): ComponentResult;

componentSubtype is useful if you use the same code resource for more than one stack translator.

stackFile is the stack’s data fork file reference number, which is open and usable for File Manager routines.

stackResFile is the stack’s resource fork file reference number, which is open and usable for Resource Manager routines.

fileSpecPtr is a pointer to an FSSpec that describes the location of the file your translator should write to. The file is not open, and may or may not already exist. If it does exist, the user will already have confirmed that the file is to be replaced, and you should overwrite it.

A Sample Stack Translator

StackToText is an example of a stack translator. In addition to demonstrating the calling conventions for stack translators, it introduces a technique for implementing the main portion of a stack translator in HyperTalk. HyperTalk contains all of the necessary constructs for iterating through all of the elements of a stack, and it has the necessary commands for putting text into a text file, so why do all of that in Pascal or C? Instead, StackToText tells HyperCard (via AppleEvents from the translator to HyperCard) to go to the stack in which its HyperTalk script is stored, and then it invokes the script, passing parameters along that tell the script which stack to translate and where the resulting text file should reside on disk. StackToText expects its resources to be stored in the same stack resource fork where its HyperTalk script resides.

The sole entry point for the code resource is the routine TranslatorComponent. It’s the routine the Component Manager calls to talk to our component. TranslatorComponent examines the what field of the ComponentParameters record and dispatches to its internal routines depending on the value of what. The Component Manager uses CallComponentFunction and CallComponentFunctionWithStorage to do the dispatching. DoTranslatorOpen demonstrates how to allocate storage for the component and how to inform the Component Manager about it. DoTranslatorClose demonstrates how to pass the component’s storage handle to a component function. It also deallocates the storage before the Component Manager closes the component. Because our component relies on System 7 and the Apple Event Manager, DoTranslatorRegister demonstrates the way a component tells the Component Manager whether it’s safe to register itself.

The meat of the component is in the routine DoTranslateStack. DoTranslateStack doesn’t actually translate a stack - instead it collects the necessary data for invoking the HyperTalk script that does the translation, wraps the data into Apple events, and sends the Apple events to HyperCard.

First, DoTranslateStack needs to know what file HyperCard is calling the component to translate. That’s easy - HyperCard passes it an access path reference number for the data fork of the stack. However, File Manager reference numbers aren’t very helpful in HyperTalk scripts, which are more at home with full path names for files. Therefore, DoTranslateStack calls our handy utility routine, FRefToFSSpec, which returns a file specification for a file given its access path reference number.

DoTranslateStack needs to know where the stack that contains its HyperCard script is on disk. Even though the component’s resources reside in the stack, finding out where the stack is on disk is a little tricky. The Component Manager doesn’t give you direct access to this information. After some pondering, I decided to use the Component Manager call OpenComponentResFile to get a resource file reference number for the component’s resource file and to go from there. I don’t need to look at anything in that resource file; I just need to know where the file is so I can construct my Apple events. Also, you might be interested in the method I use to determine whether a call to open a resource file opens a new access path to it. This is useful for knowing whether to close it. I won’t take credit for this trick. I learned it from the good folks in Developer Technical Services when I asked them, back in 1989, how to do this.

Now that DoTranslateStack knows everything it needs to know to call the HyperTalk script, it creates and sends an Apple event that causes HyperCard to open the stack that contains the script. It uses the standard “open documents” Apple event for this purpose. While the component is running, HyperCard is the current process but isn’t in its main event loop, and therefore the Apple event ought to be addressed to the current process and not to HyperCard by its TargetID or its actual ProcessSerialNumber. Using an address descriptor that contains the generic ProcessSerialNumber for the current process causes the Apple Event Manager to jump directly to the application’s event handler when the event is sent instead of putting the event in a queue, where it would await a call to WaitNextEvent. This is good for us; we can’t afford to wait until HyperCard calls WaitNextEvent in order to process our Apple event, because it won’t do that until after we’ve left the component and returned control to HyperCard!

I should mention before I go on that although StackToText does a reasonable job of checking errors, it doesn’t work very hard to determine what went wrong when an error is reported. For example, it doesn’t ask for a reply event from HyperCard when it sends Apple events - if it did, it could look in the reply for a descriptive error string when an error occurs. To keep the sample code small I didn’t include complete error handling.

Once DoTranslateStack sends the “open documents” event to HyperCard, it creates and send the Apple event that will invoke our custom script. The name of the message we want to send is “translatestack”, and we want it to be sent with parameters that describe the stack to be translated, the file to be created, and the type of file to create. Fortunately, an Apple event for this purpose has been defined and is supported by HyperCard 2.2. It allows Apple event clients to invoke handlers in scripts by name with parameters. It’s called the “subroutine event”, and its class, ID, and keywords are defined in the interface files for OSA and for AppleScript, which are available from Apple in the latest interface files for MPW and also from Symantec with THINK C 6.0. The name of the handler is given in the parameter with keyword keyASSubroutineName. The direct object of the event is a list of parameters, in first-to-last order.

You might note that even though our HyperTalk script expects to receive full path names for the stack to be translated and the file to create, DoTranslateStack adds those parameters to its “subroutine event” as FSSpecs. That’s because HyperCard automatically converts several types of Apple event descriptors to text in order to allow HyperTalk scripts to work with them, including numeric forms and forms that describe files on disk.

These sources are compatible with MPW Pascal 3.3. Build it like this:


/* 1 */
Pascal "StackTranslatorComponent.p"
Link -o "StackToText" "StackTranslatorComponent.p.o" 
        "{Libraries}Interface.o" 
        -sg StackTranslator -rt PROC=128 -t STAK 
        -c WILD -m TRANSLATORCOMPONENT

StackTranslatorComponent.p
©Kevin Calhoun 1993.  All Rights Reserved.

UNIT StackBasedStackTranslator;
{$N+}
{$R-}
{$D-}
INTERFACE

USES Types, Memory, Files, Resources, Errors, Packages, AppleEvents, 
ASRegistry, OSA, Components, GestaltEqu, SysEqu;

FUNCTION  TranslatorComponent(VAR params: ComponentParameters;
               storage: Handle): ComponentResult;

IMPLEMENTATION

TYPE StorageHandle = ^StoragePtr; { Our private storage }
     StoragePtr = ^StorageRecord;
     StorageRecord = RECORD      
       self: ComponentInstance;   { We don't need much }
     END;
     HandlePtr = ^Handle;

CONST kComponentVersion = $01000100; { Our version number }
      kTranslateStack = 0; { our stack translation component selector}

{ Forward declarations for our private routines. }
FUNCTION  DoTranslatorCanDo(selector: INTEGER):
 ComponentResult; FORWARD;  
FUNCTION  DoTranslatorClose(storageHndl: Handle;
           self: ComponentInstance): ComponentResult; FORWARD;
FUNCTION  DoTranslatorOpen(self: ComponentInstance):
 ComponentResult; FORWARD;
FUNCTION  DoTranslatorRegister: ComponentResult; FORWARD;
FUNCTION  DoTranslateStack(storageHndl: StorageHandle;
           componentSubType: OSType;
           stackFile: INTEGER;
           stackResFile: INTEGER;
           fileSpecPtr: FSSpecPtr): ComponentResult; FORWARD;
FUNCTION  FRefToFSSpec(fRefNum: INTEGER;
 VAR spec: FSSpec): OSErr; FORWARD;
PROCEDURE MyDisposeDesc(VAR desc: AEDesc); FORWARD;
PROCEDURE MyDisposHandle(VAR hndl: Handle); FORWARD;

FUNCTION TranslatorComponent(VAR params: ComponentParameters;
                 storage: Handle): ComponentResult;
{ The sole entrypoint for the component. }
BEGIN
  IF params.what < 0 THEN  { component manager values}
    CASE params.what OF
      kComponentRegisterSelect: TranslatorComponent :=
 CallComponentFunction(params,
 ComponentRoutine(@DoTranslatorRegister));
      kComponentVersionSelect: TranslatorComponent := 
 kComponentVersion;
      kComponentCanDoSelect: TranslatorComponent :=
 CallComponentFunction(params,
 ComponentRoutine(@DoTranslatorCanDo));
      kComponentCloseSelect: TranslatorComponent :=
 CallComponentFunctionWithStorage(storage,params,
 ComponentRoutine(@DoTranslatorClose));
      kComponentOpenSelect: TranslatorComponent :=
 CallComponentFunction(params,
 ComponentRoutine(@DoTranslatorOpen));
      OTHERWISE
        TranslatorComponent := badComponentSelector;
    END
  ELSE  { Our component-specific routines }
    BEGIN
      IF params.what = kTranslateStack
      THEN TranslatorComponent :=
 CallComponentFunctionWithStorage(storage,
 params,ComponentRoutine(@DoTranslateStack))
      ELSE TranslatorComponent := badComponentSelector;
    END;
END;

FUNCTION DoTranslatorCanDo(selector: INTEGER): ComponentResult;
{ Called  when the component is asked whether it supports a particular 
selector. }
BEGIN
  IF (selector >= kComponentRegisterSelect) 
 & (selector <= kTranslateStack)
  THEN DoTranslatorCanDo := 1   { valid request }
  ELSE DoTranslatorCanDo := 0;  { invalid request }
END;

FUNCTION DoTranslatorClose(storageHndl: Handle;
              self: ComponentInstance): ComponentResult;
{Called when the component is closed.
 We allocate global storage when we're opened, so we'll deallocate it 
here. }
BEGIN
  MyDisposHandle(storageHndl);
  DoTranslatorClose := noErr;
END;

FUNCTION DoTranslatorOpen(self:ComponentInstance):
 ComponentResult; 
{Called when the component is opened.
 This component uses global storage, so we allocate it here. }
VAR storageHndl: Handle;
BEGIN
  DoTranslatorOpen := noErr;
  storageHndl := NewHandle(SizeOf(StorageRecord));
  StorageHandle(storageHndl)^^.self := self; { Remember it }
  { Tell the Component Mgr to remember our storage handle. }
  SetComponentInstanceStorage(self,storageHndl);
END;

FUNCTION DoTranslatorRegister: ComponentResult;
{ Return FALSE if it's OK to register this component. }
VAR theWorld:   SysEnvRec;
    gestaltInfo: LongInt;
    dummyResult: INTEGER;
    registerOK: BOOLEAN;
BEGIN
  { this component needs System 7 and the Apple Event Manager. }
  dummyResult := SysEnvirons(1,theWorld);
  registerOK := (theWorld.systemVersion >= $0700)   { 7.x system }
   & (Gestalt(gestaltAppleEventsAttr,gestaltInfo) = noErr)  
   & BTST(gestaltInfo,gestaltAppleEventsPresent);{ AEM is present }
  DoTranslatorRegister := ORD(NOT registerOK);
END;

FUNCTION DoTranslateStack(storageHndl: StorageHandle;
                     componentSubType: OSType;
                     stackFile: INTEGER;
                     stackResFile: INTEGER;
                     fileSpecPtr: FSSpecPtr): ComponentResult;
{ Handles requests for translating stacks. }
VAR thisComponent: Component;
    saveTopMapHndl: Handle;
    hyperPSN: ProcessSerialNumber;
    addressDesc: AEDesc;
    appleEvt: AppleEvent;
    replyEvt: AppleEvent;
    fileList: AEDescList;
    paramList: AEDescList;
    msgStr: Str255;
    compFSSpec: FSSpec;
    stackFSSpec: FSSpec;
    compResFile: INTEGER;
    result: OSErr;
    ignoreResult: OSErr;

  PROCEDURE CleanExit;
  { Dispose of everything we allocated before exiting. }
  BEGIN
    MyDisposeDesc(addressDesc);
    MyDisposeDesc(appleEvt);
    MyDisposeDesc(replyEvt);
    MyDisposeDesc(fileList);
    MyDisposeDesc(paramList);
    EXIT(DoTranslateStack);
  END;

  PROCEDURE CheckError(err: LongInt);
  { If an error occurred, set our return value and call CleanExit. } 

  BEGIN
    IF err <> noErr THEN 
      BEGIN
        DoTranslateStack := err;
        CleanExit;
      END
  END;
  
BEGIN
  DoTranslateStack := noErr;  { assume success }

  {Set everything to nil now that we need to allocate later.  This will 
tell us on an
 error exit what we've allocated and what we haven't. }
  addressDesc.dataHandle := NIL;
  appleEvt. dataHandle := NIL;
  replyEvt.dataHandle := NIL;
  fileList.dataHandle := NIL;
  paramList.dataHandle := NIL;
  
 { Get FSSpec of stack to be translated. }
  CheckError(FRefToFSSpec(stackFile,stackFSSpec));

 { Get FSSpec of the stack that contains the HyperTalk script; this is 
the same
    as the FSSpec for the component resource file. }

 { Open the component's resource fork. }
 { We saved this little nugget in DoTranslatorOpen. }
 thisComponent := Component(storageHndl^^.self);  
  IF thisComponent = NIL THEN CheckError(badComponentInstance);
 { Remember what TopMapHndl is just before we open the resource file. 
}
  saveTopMapHndl := HandlePtr(TopMapHndl)^;
  compResFile := OpenComponentResFile(thisComponent);
  CheckError(ResError);
  IF compResFile = -1 THEN CheckError(resFNotFound);
 { Get file spec for this component and close the resource file. }
  result := FRefToFSSpec(compResFile,compFSSpec);
 { If TopMapHndl changed when the component's resource file was opened,
    then we opened a new access path to it, and therefore we should close 
it. }
  IF saveTopMapHndl <> HandlePtr(TopMapHndl)^
  THEN ignoreResult := CloseComponentResFile(compResFile);
  CheckError(result);
  
  { We've got our FSSpecs; now use Apple events to make HyperCard go 
to the
    stack in which this component resides and, once the stack is opened,
    execute the custom 'translatestack' handler stored within the stack. 
}

{ Create address descriptor for HyperCard (which is the current process) 
and then
  create an "open documents" Apple event for sending to the current process. 
}
  hyperPSN.highLongOfPSN := 0;
  hyperPSN.lowLongOfPSN := kCurrentProcess;
  CheckError(AECreateDesc(typeProcessSerialNumber,@hyperPSN,
 SizeOf(hyperPSN),addressDesc));
  CheckError(AECreateAppleEvent(kCoreEventClass,
 kAEOpenDocuments,addressDesc,kAutoGenerateReturnID,
 kAnyTransactionID,appleEvt));
{ Create list of documents to open and put it into the direct parameter. 
}
  CheckError(AECreateList(NIL,0,FALSE,fileList));
  CheckError(AEPutPtr(fileList,1,typeFSS,@compFSSpec,
 SizeOf(compFSSpec)));
  CheckError(AEPutParamDesc(appleEvt,keyDirectObject,fileList));
  MyDisposeDesc(fileList); { AEPutParamDesc copied it into the Apple
   event, so we don't need this anymore. }
{ Send "open documents" Apple event to HyperCard. }
  CheckError(AESend(appleEvt,replyEvt,
 kAENoReply + kAEDontRecord,
 kAENormalPriority,kAEDefaultTimeout,NIL,NIL));

  MyDisposeDesc(appleEvt);
  MyDisposeDesc(replyEvt);{ desc should be null but can't hurt to make 
sure }


 { Now create &send our custom scripting message, "translatestack", with 
parameters. }
CheckError(AECreateAppleEvent(kOSASuite,
  kASSubroutineEvent,addressDesc,
  kAutoGenerateReturnID,
  kAnyTransactionID,appleEvt));
  { Put message name into "subroutine name" parameter. }
  msgStr := 'translatestack';
  CheckError(AEPutParamPtr(appleEvt,keyASSubroutineName,
 typeChar,Ptr(ORD4(@msgStr)+1),Length(msgStr)));
  { Create list of parameters to "translate stack" message. }
  CheckError(AECreateList(NIL,0,FALSE,paramList));
  CheckError(AEPutPtr(paramList,1,typeFSS,@stackFSSpec,
   SizeOf(stackFSSpec)));
  CheckError(AEPutPtr(paramList,2,typeFSS,Ptr(fileSpecPtr),
   SizeOf(FSSpec)));
  CheckError(AEPutPtr(paramList,3,typeType,@componentSubType,
   SizeOf(componentSubType)));
  CheckError(AEPutParamDesc(appleEvt,keyDirectObject,
  paramList));
  MyDisposeDesc(paramList);
  { Send subroutine event to HyperCard }
  CheckError(AESend(appleEvt,replyEvt,
 kAENoReply+kAEDontRecord,
 kAENormalPriority,kAEDefaultTimeout,NIL,NIL));
  CleanExit;
END;

FUNCTION FRefToFSSpec(fRefNum:INTEGER; VAR spec:FSSpec):OSErr;
{ Convert a file reference number for an open access path to an FSSpec 
for the file.
  Returns a file spec for a currently open file. }
VAR fcbPBlock:  FCBPBRec;
    nameStr:    Str255;
    result:     INTEGER;
BEGIN
 WITHfcbPBlock DOBEGIN
    ioCompletion := NIL;
    ioNamePtr := @nameStr;
    ioVRefNum := 0;
    ioRefNum := fRefNum;
    ioFCBIndx := 0;
  END;
  result := PBGetFCBInfo(@fcbPBlock,FALSE);
  IF result = noErr THEN
    BEGIN
      spec.vRefNum := fcbPBlock.ioFCBVRefNum;
      spec.parID := fcbPBlock.ioFCBParID;
      spec.name := nameStr;
    END;
  FRefToFSSpec := result;
END;

PROCEDURE MyDisposeDesc(VAR desc: AEDesc);
{ Dispose of an Apple event descriptor, if it's non-nil, and then set 
the dataHandle 
  field to nil.  Prevents accidental double-disposals of handles. }
VAR result: OSErr;
BEGIN
  IF desc.dataHandle <> NIL THEN result:=AEDisposeDesc(desc);
  desc.dataHandle := NIL;
  desc.descriptorType := typeNull;
END;

PROCEDURE MyDisposHandle(VAR hndl: Handle);
{ Dispose of a handle, if it's non-nil, and then set it to nil.  Prevents 
accidental 
  double-disposals of handles. }
BEGIN
  IF hndl = NIL THEN EXIT(MyDisposHandle);
  DisposHandle(hndl);
  hndl := NIL;
END;

END.

Rez Source For StackToText

Every component requires a 'thng' resource to tell the Component Manager about our component’s type, subtype, manufacturer, executable code resource, name, description string, and icon. We also want to tell the Component Manager to check with us before the component is registered. The 'thng' resource allows us to do all of this. HyperCard gets the string for the popup in Standard File from the componentName fields. The strings and icon can be marked purgeable.


/* 2 */
data 'thng' (129, "StackToText") {
   "STRN" /* componentType: 'STRN' */
   "STTT" /* componentSubType: 'STTT' */
   "KCAL" /* componentManufacturer: 'KCAL' */
   $"80000000" /* componentFlags: cmpWantsRegisterMessage */
   $"00000000" /* componentFlagsMask: 0 */
   "PROC" /* component Type: 'PROC' */
   $"0080"/* component ID: 128 */
   "STR " /* componentName Type: 'STR ' */
   $"0080"/* componentName ID: 128 */
   "STR " /* componentInfo Type: 'STR ' */
   $"0081"/* componentInfo ID: 129 */
   "ICON" /* componentIcon Type: 'ICON' */
   $"0080"/* componentIcon ID: 128 */
};

HyperTalk Source For StackToText

Our translatestack handler loops through all of the cards in the stack to be translated, writing the text of all of the card fields and the background fields on each card. It could do a great deal more - add headers for each field, for example. But this is enough for illustrative purposes.


/* 3 */
on translateStack stackName,newFileName,componentSubType
  open file newFileName
  if the result is not empty then
    answer the result
    exit translateStack
  end if
  
  lock screen
  lock messages
  lock recent
  push card
  go stack stackName
  if the result is not empty then exit translateStack
  
  push card
  repeat with i = 1 to the number of cards
    go card i
    repeat with j = 1 to the number of card fields
      write card field j & return & return to file newFileName
    end repeat
    repeat with k = 1 to the number of bg fields
      write bg field k & return & return to file newFileName
    end repeat
  end repeat
  close file newFileName
  pop card
  pop card
  unlock recent
  unlock messages
  unlock screen
  close card window
end translateStack

Beyond StackToText

StackToText demonstrates a simple stack translator, but it doesn’t show how to extract more than text from HyperCard stacks. You can do more with XCMDs than with HyperTalk, but even that doesn’t get you all the way there. Many other pieces of information about objects stored within stacks are not easily available either via HyperTalk or the XCMD interface. So how is it possible for stack translators to extract all of the relevant data from stacks?

The answer, I hope, has already been suggested to you by StackToText. As you’ve seen, stack translators can communicate with HyperCard via Apple events. And HyperCard 2.2 supports a generous Apple event interface, through which the contents and properties of all objects stored within HyperCard stacks are available in their richest formats, including styled text and compiled OSA scripts. Therefore stack translators can obtain their data via Apple events. For a list of the Apple events and Apple event objects supported by HyperCard 2.2, open HyperCard's Apple event dictionary with the AppleScript Script Editor. For further examples of the use of Apple events and Apple event objects for communicating with HyperCard from standalone code resources, see the article tentatively entitled “Advanced XCMD Techniques: Apple Events”, coming soon to a MacTech issue near you.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

BBEdit 11.6.4 - 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
BBEdit 11.6.4 - 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
beaTunes 4.6.12 - Organize your music co...
beaTunes is a full-featured music player and organizational tool for music collections. How well organized is your music Library? Are your artists always spelled the same way? Any R.E.M. vs REM?... Read more
Tinderbox 7.0.1 - Store and organize you...
Tinderbox is a personal content management assistant. It stores your notes, ideas, and plans. It can help you organize and understand them. And Tinderbox helps you share ideas through Web journals... Read more
FotoMagico 5.4 - Powerful slideshow crea...
FotoMagico lets you create professional slideshows from your photos and music with just a few, simple mouse clicks. It sports a very clean and intuitive yet powerful user interface. High image... Read more
Direct Mail 4.3.9 - 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
Tinderbox 7.0.1 - Store and organize you...
Tinderbox is a personal content management assistant. It stores your notes, ideas, and plans. It can help you organize and understand them. And Tinderbox helps you share ideas through Web journals... Read more
Direct Mail 4.3.9 - 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
FotoMagico 5.4 - Powerful slideshow crea...
FotoMagico lets you create professional slideshows from your photos and music with just a few, simple mouse clicks. It sports a very clean and intuitive yet powerful user interface. High image... Read more
beaTunes 4.6.12 - Organize your music co...
beaTunes is a full-featured music player and organizational tool for music collections. How well organized is your music Library? Are your artists always spelled the same way? Any R.E.M. vs REM?... Read more

The best sales on the App Store this wee...
The App Store has quite an exciting lineup of discount games this week that range across a variety of genres. It's a great opportunity to catch up on some of the premium games you may have been holding off on -- and some you can even grab for free... | Read more »
The best new games we played this week
Ah, here we are again at the close of another busy week. Don't rest too easy, though. We had a lot of great new releases in mobile games this week, and now you're going to have to spend all weekend playing them. That shouldn't be too much of a... | Read more »
Rollercoaster Tycoon Touch Guide: How to...
| Read more »
Rabbids Crazy Rush Guide: How to unlock...
The Rabbids are back in a new endless running adventure, Rabbids Crazy Rush. It's more ridiculous cartoon craziness as you help the little furballs gather enough fuel (soda) to get to the moon. Sure, it's a silly idea, but everyone has dreams --... | Read more »
Tavern Guardians (Games)
Tavern Guardians 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Tavern Guardians is a Hack-and-Slash action game played in the style of a match-three. You can experience high pace action... | Read more »
Slay your way to glory in idle RPG Endle...
It’s a golden age for idle games on the mobile market, and those addictive little clickers have a new best friend. South Korean developer Ekkorr released Endless Frontier last year, and players have been idling away the hours in the company of its... | Read more »
Tiny Striker: World Football Guide - How...
| Read more »
Good news everyone! Futurama: Worlds of...
Futurama is finding a new home on mobile in TinyCo and Fox Interactive's new game, Futurama: Worlds of Tomorrow. They're really doing it up, bringing on board Futurama creator Matt Groening along with the original cast and writers. TinyCo wants... | Read more »
MUL.MASH.TAB.BA.GAL.GAL (Games)
MUL.MASH.TAB.BA.GAL.GAL 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: ENDLESS UPGRADES. CONSTANT DANGER. ANCIENT WISDOM. BOUNCY BALLS. Launch Sale, 40% OFF for a very limited time!!! MUL.... | Read more »
Dungeon Rushers (Games)
Dungeon Rushers 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Dungeon Rushers is a 2D tactical RPG combining dungeon crawler’s gameplay and turn based fights. Manage your team, loot dusty... | Read more »

Price Scanner via MacPrices.net

13-inch 2.0GHz Apple MacBook Pros on sale for...
B&H has the non-Touch Bar 13″ 2.0GHz MacBook Pros in stock today and on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.0GHz MacBook Pro Space Gray (... Read more
15-inch Touch Bar MacBook Pros on sale for up...
B&H Photo has the new 2016 15″ Apple Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.7GHz Touch Bar... Read more
12-inch Retina MacBooks on sale for $1150, $1...
B&H has 12″ 1.1GHz Retina MacBooks on sale for $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 12″ 1.1GHz Space Gray Retina MacBook: $1149 $150 off MSRP - 12″ 1.1GHz... Read more
Apple restocks refurbished 11-inch MacBook Ai...
Apple has Certified Refurbished 11″ MacBook Airs (the latest models recently discontinued by Apple), available for up to $170 off original MSRP. An Apple one-year warranty is included with each... Read more
Apple Park Opens to Employees in April With T...
Apple has announced that Apple Park, the company’s new 175-acre campus, will be ready for employees to begin occupying in April. The process of moving more than 12,000 people will take over six... Read more
Manhattan Neighbors for Safer Telecommunicati...
A new education and advocacy group focused on cell phone and wireless risks, Manhattan Neighbors for Safer Telecommunications, launched today at http://www.ManhattanNeighbors.org. Manhattan... Read more
Portable Dual DisplayPort Monitor Dock Enable...
IOGEAR has announced the launch of its USB-C Dual DisplayPort Monitor Portable Dock (GUC3CMST). The dock enables users to easily connect two DisplayPort monitors to a USB-C or Thunderbolt 3 laptop to... Read more
13-inch 2.7GHz Retina MacBook Pro on sale for...
Amazon.com has restocked the 13″ 2.7GHz/128GB Retina MacBook Pro (MF839LL/A) for $200 off MSRP including free shipping: - 13″ 2.7GHz/128GB Retina MacBook Pro: $1099 $200 off MSRP This model tends to... Read more
Apple’s New iPad Ads Don’t Address Pro Users’...
Apple launched a new tranche of iPad Pro TV ads last week addressing actual queries and challenges from the Twitterverse, albeit using actors for the visuals. That’s great. As an iPad fan and heavy... Read more
Free Verbum Catholic Bible Study App For iOS
The Verbum mobile app runs on Logos’ powerful Bible software and is an advanced resource for mobile Catholic study. The Verbum app surrounds the Bible with the Tradition. Verbum comes with 15 free... Read more

Jobs Board

*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* Retail - Multiple Positions- Chicago...
SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and 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
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.