3782l1.orig100664 777 330 1223 7056776640 12154 0ustar ljeditorljedit3782l1 Listing 1. Building a Form # cat /usr/local/example/hw.rcp #include "resid.h" FORM ID MainFormId AT (2 2 156 156) USABLE FRAME MODAL HELPID MainFormHelpId MENUID MainFormMenuId BEGIN TITLE "Hello-World Pilot III" FORMBITMAP AT (10 20) BITMAP 10 END MENU ID MainFormMenuId BEGIN PULLDOWN "Options" BEGIN MENUITEM "About..." ID AboutId "a" END END STRING ID MainFormHelpId "Hello world" ALERT ID alertID_about INFORMATION BEGIN TITLE "About Hello world" MESSAGE " Hello To the World " BUTTONS "Done" END STRING ID main_form_help_string "This is an example for the palm pilot\n"\ "Application gcc programming" 3782l2.orig100664 777 330 2717 7056776647 12175 0ustar ljeditorljedit3782l2 Listing 2. Hello World #include "./resid.h" #include #include #include static Word StartApplication(void); static void EventLoop(void); static Boolean MainFrmHandler(EventPtr p); DWord PilotMain(Word cmd, Ptr cmdPBP, Word launchflags) { Word error; if (cmd == sysAppLaunchCmdNormalLaunch) { error = StartApplication(); if (error) return error; EventLoop(); } return 0; } static Word StartApplication(void) { FrmGotoForm(MainFormId); return 0; } void EventLoop(void) { short err; int formID; FormPtr form; EventType event; do { EvtGetEvent(&event, 200); if (SysHandleEvent(&event)) continue; if (MenuHandleEvent((void *)0,&event, &err)) continue; if (event.eType == frmLoadEvent) { formID = event.data.frmLoad.formID; form = FrmInitForm(formID); FrmSetActiveForm(form); switch (formID) { case MainFormId: FrmSetEventHandler(form, &MainFrmHandler); break; } } FrmDispatchEvent(&event); } while(event.eType != appStopEvent); } static Boolean MainFrmHandler(EventPtr event) { int handled = 0; FormPtr form; int i; switch (event->eType) { case frmOpenEvent: form = FrmGetActiveForm(); FrmDrawForm(form); handled = 1; WinDrawChars((char *) "Hello World",11,100,50); break; case menuEvent: FrmAlert(alertID_about); handled = 1; break; } return handled; }