////////////////////////////////////////////////////////////////////
//
// kbdswitch
// an OSAX
// (1 line added to a shell made by butchering one of
// D.Olson's excellent examples)
//
// John Blackburne, johnb@tempest.net.hk, 14 August 1995
//
//
//////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
//
// main()
// The entry to our Scripting Addition.
// Remember to declare it pascal!!
//
//////////////////////////////////////////////////////////////////
pascal OSErr main( AppleEvent *theEvent,
AppleEvent *theReply,
long theRefCon)
{
OSErr theErr = noErr;
/*
Switch the keyboard
*/
KeyScript(smKeyNextKybd);
return theErr; // And return our error.
}
Intro * User Docs * Source * Project Notes * Download.
© John Blackburne, johnb@hk.super.net, 9th June 1996