Here's my code, I can't seem to get the apple help system to open with my
help pages.

#if def _FBtoC
include resources "Info.plist"
include resources "SpeakAssist.icns"
#endif
include "Tlbx LSOpen.incl"


toolbox fn HIAboutBox( CFDictionaryRef inOptions ) = OSStatus
include "Tlbx CarbonEvents.incl"

include "Util_AppleHelp.incl"


stringlist on

kill resources "ICN#",128
kill resources "ICN#",129

include "constants.incl"

DEF FN SpeechEngine



output file "SpeakAssist 2009r3"

include "Tlbx ControlDefinitions.incl"

def fn Welcome

fn Welcome

Local FN BuildMenus
APPLE MENU "About SpeakAssist 2009r3..."
_File = 1
_Speak = 1
_helpmenu = 4
_speakassisthelp    = 1
_gotoimaginateware  = 2
_gotospeakassistnet = 3
_sharewaremenu      = 4


_hearbtnEsp = 2
_hearbtnEsp1 = 3
menu _File,0,1, "File"
menu _File,_Speak,1, "/SSpeak..."
edit menu 2

end fn

dim menuID,itemID,result as long
LOCAL FN doMenu
menuID = MENU(_menuID)
itemID = MENU(_itemID)
SELECT CASE menuID
case _KHMHelpMenuID
select itemID
case _speakassisthelp
include "Util_AppleHelp.incl"
fn HBRegister()
fn HBGotoPage( 0, 0 )
select case itemID
case 1
include "Util_AppleHelp.incl"
fn HBRegister()
fn HBGotoPage( 0, 0 )
end select

case _kHMHelpMenuID
include "Util_AppleHelp.incl"
fn HBRegister()
fn HBGotoPage( 0, 0 )
select case itemID
case 1
include "Util_AppleHelp.incl"
fn HBRegister()
fn HBGotoPage( 0, 0 )
end select

case _gotoimaginateware
open "UNIX",2, "open "+"http://www.imaginateware.com"
close #2
case _gotospeakassistnet
open "UNIX",2, "open "+"http://www.speakassist.net"
close #2
case _sharewaremenu
open "UNIX",2, "open "+"http://www.imaginateware.com/store.php"
close #2
end select

case _File
select itemID
case _Speak
fn SpeechEngine
end select



case _applemenu
select itemID
case 1
call HIAboutBox( 0 )
result = _noErr
end select
end select
end fn

FN BuildMenus


local fn BuildspazEnglish
'~'1
dim as Str255                 s
dim as ControlFontStyleRec    cfs, tfs
dim as Rect                   r
dim as WindowAttributes       wa, fb
dim as short                @ setVal
dim as Boolean              @ bool

cfs.flags = _kControlUseFontMask _kControlUseJustMask
wa = _kWindowCloseBoxAttribute¬
     _kWindowCollapseBoxAttribute¬
     _kWindowCompositingAttribute
fb = _updateVisRgn

def NewWindowPositionMethod( _kWindowCenterOnMainScreen )
SetRect( r, 370, 318, 1509, 926 )
appearance window -_spaz, "SpeakAssist 2009r3", @r, _kDocumentWindowClass,
wa, fb
def NewWindowPositionMethod( 0 )
def SetWindowBackground( _kThemeActiveDialogBackgroundBrush, _zTrue )


SetRect( r, 347, 25, 856, 48 )
appearance button _menutitle,,,,,, @r, _kControlStaticTextProc
def SetButtonTextString( _menutitle, "Type in something to say or use the
on-screen keyboard and click Assist Me..." )

SetRect( r, 337, 72, 873, 88 )
appearance button _assist,,,,,, @r, _kControlEditTextProc

SetRect( r, 797, 99, 876, 116 )
appearance button _cBtn,,,,, "Assist Me...", @r, _kControlPushButtonProc
bool = _zTrue
def SetButtonData( _cBtn, _kControlEntireControl,
_kControlPushButtonDefaultTag, sizeof( Boolean ), bool )
cfs.font = _kControlFontSmallSystemFont
def SetButtonFontStyle( _cBtn, cfs )

SetRect( r, 339, 178, 367, 202 )
appearance button _exlaim,, 0,,, "!", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _exlaim, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 377, 178, 405, 202 )
appearance button _at,, 0,,, "@", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _at, _kControlEntireControl, _kControlBevelButtonKindTag,
sizeof( short ), setVal )

SetRect( r, 415, 178, 443, 202 )
appearance button _numbersign,, 0,,, "#", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _numbersign, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 438, 516, 937, 532 )
appearance button _cStat,,,,,, @r, _kControlStaticTextProc
def SetButtonTextString( _cStat, "© Copyright 2009 by Brian Heibert &
ImaginateWare, Ltd. All Rights Reserved. " )

SetRect( r, 453, 178, 481, 202 )
appearance button _dollar,, 0,,, "$", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _dollar, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 491, 178, 519, 202 )
appearance button _percent,, 0,,, "%", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _percent, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 529, 178, 557, 202 )
appearance button _carrot,, 0,,, "^", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _carrot, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 567, 178, 595, 202 )
appearance button _and,, 0,,, "&", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _and, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 605, 178, 633, 202 )
appearance button _asterick,, 0,,, "*", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _asterick, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 643, 178, 671, 202 )
appearance button _parenthesisOpen,, 0,,, "(", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _parenthesisOpen, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 681, 178, 709, 202 )
appearance button _parenthesisClosed,, 0,,, ")", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _parenthesisClosed, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 719, 178, 747, 202 )
appearance button _dash,, 0,,, "-", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _dash, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 757, 178, 785, 202 )
appearance button _dash2,, 0,,, "_", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _dash2, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 795, 178, 823, 202 )
appearance button _plus,, 0,,, "+", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _plus, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 833, 178, 861, 202 )
appearance button _equal,, 0,,, "=", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _equal, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 339, 214, 367, 238 )
appearance button _oneSP,, 0,,, "1", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _oneSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 377, 214, 405, 238 )
appearance button _twoSP,, 0,,, "2", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _twoSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 415, 212, 443, 236 )
appearance button _threeSP,, 0,,, "3", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _threeSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 51, 516, 147, 538 )
appearance button _shareware,, 0,,, "Shareware $1.00", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _shareware, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 157, 516, 265, 538 )
appearance button _imaginateware,, 0,,, "Imaginateware.com", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _imaginateware, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 275, 516, 383, 538 )
appearance button _speakassist,, 0,,, "speakassist.net", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _speakassist, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 994, 516, 1102, 538 )
appearance button _quitprogram,, 0,,, "Quit", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _quitprogram, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 453, 214, 481, 238 )
appearance button _fourSP,, 0,,, "4", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _fourSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 797, 43, 833, 59 )
appearance button _hearbtn,, 0,,, "Hear", @r,
_kControlBevelButtonNormalBevelProc

SetRect( r, 891, 532, 927, 548 )
appearance button _hearbtn1,, 0,,, "Hear", @r,
_kControlBevelButtonNormalBevelProc

SetRect( r, 491, 214, 519, 238 )
appearance button _fiveSP,, 0,,, "5", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _fiveSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 529, 214, 557, 238 )
appearance button _sixSP,, 0,,, "6", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _sixSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 567, 214, 595, 238 )
appearance button _sevenSP,, 0,,, "7", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _sevenSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 605, 214, 633, 238 )
appearance button _eightSP,, 0,,, "8", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _eightSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 643, 214, 671, 238 )
appearance button _nineSP,, 0,,, "9", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _nineSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 681, 214, 709, 238 )
appearance button _zeroSP,, 0,,, "0", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _zeroSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 359, 250, 388, 274 )
appearance button _qSP,, 0,,, "Q", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _qSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 397, 250, 425, 274 )
appearance button _WSP,, 0,,, "W", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _WSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 435, 250, 463, 274 )
appearance button _ESP,, 0,,, "E", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _ESP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 473, 250, 501, 274 )
appearance button _RSP,, 0,,, "R", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _RSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 511, 250, 539, 274 )
appearance button _TSP,, 0,,, "T", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _TSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 549, 250, 577, 274 )
appearance button _YSP,, 0,,, "Y", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _YSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 587, 250, 615, 274 )
appearance button _USP,, 0,,, "U", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _USP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 625, 250, 653, 274 )
appearance button _ISP,, 0,,, "I", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _ISP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 663, 250, 691, 274 )
appearance button _OSP,, 0,,, "O", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _OSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 701, 250, 729, 274 )
appearance button _PSP,, 0,,, "P", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _PSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 387, 286, 415, 310 )
appearance button _ASP,, 0,,, "A", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _ASP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 425, 286, 453, 310 )
appearance button _SSP,, 0,,, "S", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _SSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 463, 286, 491, 310 )
appearance button _DSP,, 0,,, "D", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _DSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 501, 284, 529, 308 )
appearance button _FSP,, 0,,, "F", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _FSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 539, 286, 567, 310 )
appearance button _GSP,, 0,,, "G", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _GSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 577, 286, 605, 310 )
appearance button _HSP,, 0,,, "H", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _HSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 615, 286, 643, 310 )
appearance button _JSP,, 0,,, "J", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _JSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 653, 286, 681, 310 )
appearance button _KSP,, 0,,, "K", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _KSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 691, 286, 719, 310 )
appearance button _LSP,, 0,,, "L", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _LSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 435, 323, 463, 347 )
appearance button _ZSP,, 0,,, "Z", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _ZSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 473, 323, 501, 347 )
appearance button _XSP,, 0,,, "X", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _XSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 511, 323, 539, 347 )
appearance button _CSP,, 0,,, "C", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _CSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 549, 323, 577, 347 )
appearance button _VSP,, 0,,, "V", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _VSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 587, 322, 615, 346 )
appearance button _BSP,, 0,,, "B", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _BSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 625, 323, 653, 347 )
appearance button _NSP,, 0,,, "N", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _NSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 663, 323, 691, 347 )
appearance button _MSP,, 0,,, "M", @r, _kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _MSP, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

SetRect( r, 345, 373, 808, 401 )
appearance button _SpaceBar,, 0,,, "Space Bar", @r,
_kControlBevelButtonNormalBevelProc
setVal = _kThemeRoundedBevelButton
def SetButtonData( _SpaceBar, _kControlEntireControl,
_kControlBevelButtonKindTag, sizeof( short ), setVal )

window _spaz
end fn

dim ignore as long
local fn ShowError
dim message$,extrainfo$
message$ = "No text found to speak."
extrainfo$ = "Please try again!"
ignore = FN StandardAlert( _kAlertNoteAlert, message$, extraInfo$, 0, #0 )
open "UNIX",2, "say -v Alex "+" No text found to speak. Please try again!"
close #2
end fn

local fn SpeechEngine
dim ev$
ev$ = EDIT$(_assist)
if ev$ = "" then fn ShowError
open "UNIX",2, "say -v Alex "+ev$
close #2
end fn 

local fn Welcome
open "UNIX",2, "say -v Alex Welcome to SpeakAssist 2009 Release 3"
close #2// {20090222}
end fn


// Fonts.h
#define FMFontFamily as SInt16
toolbox fn FMGetFontFamilyFromName( Str255 iName ) = FMFontFamily

// MacApplication.h

local fn DoDialog
'~'1
dim as long ev, id

ev = dialog( 0 )
id = dialog( ev )
select ( ev )
case _wndClick : window id
case _wndClose 
end
case _wndRefresh
case _wndResized
case _wndActivate
case _cursOverEF
cursor _ibeamcursor
case _cursOverBtn
cursor _kThemePointingHandCursor


case _cursOverNothing
cursor _kThemeArrowCursor
case _btnClick
select ( window( _outputWnd ) )
case _spaz
select ( id )
case _cBtn
FN SpeechEngine
case _exlaim
'FN GETBUTTONTEXTSTRING$

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"!")

case _at

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"@")
case _numbersign
 
ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"#")
case _dollar

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"$")
case _percent

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"%")
case _carrot

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"^")
case _and

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"&")
case _asterick

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"*")
case _parenthesisOpen

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"(")
case _parenthesisClosed
 
ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+")")
case _dash
 
ev1$ = EDIT$(_dash)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"-")
case _dash2

ev1$ = EDIT$(_dash2)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"_")
case _plus
 
ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"+")
case _equal
 
ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"=")
case _oneSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"1")
case _twoSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"2")
case _threeSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"3")
case _shareware
OPEN "UNIX",2, "open "+"http://www.imaginateware.com/store.php"
CLOSE #2
case _imaginateware
OPEN "UNIX",2, "open "+"http://www.imaginateware.com"
CLOSE #2

case _speakassist
OPEN "UNIX",2, "open "+"http://www.speakassist.net"
CLOSE #2

case _quitprogram
gFBQuit = _zTrue
end
case _fourSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"4")
case _hearbtn
Open "UNIX",2, "say -v Alex "+"Type in something to say or use the on-screen
keyboard and click Assist Me..."
close #2
 
case _fiveSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"5")
case _sixSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"6")
case _sevenSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"7")
case _eightSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"8")
case _nineSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"9")
case _zeroSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"0")
case _qSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"Q")
case _WSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"W")
case _ESP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"E")
case _RSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"R")
case _TSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"T")
case _YSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"Y")
case _USP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"U")
case _ISP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"I")
case _OSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"O")
case _PSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"P")
case _ASP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"A")
case _SSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"S")
case _DSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"D")
case _FSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"F")
case _GSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"G")
case _HSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"H")
case _JSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"J")
case _KSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"K")
case _LSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"L")
case _ZSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"Z")
case _XSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"X")
case _CSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"C")
case _VSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"V")
case _BSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"B")
case _NSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"N")
case _MSP

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+"M")

case _SpaceBar

ev1$ = EDIT$(_assist)
DEF SETBUTTONTEXTSTRING(_assist,ev1$+" ")


case _hearBtn1
Open "UNIX",2, "say -v Alex "+"Copyright 2009 by Brian Heibert and
ImaginateWare, Ltd. All Rights Reserved."
close #2

end select
end select
case _preview
select ( id )
case _preMenuClick
case _preWndGrow
end select
end select
end fn

fn BuildSPAZEnglish
FN BuildMenus

ON DIALOG FN doDialog
on menu fn DoMenu

include "Util_AppleHelp.incl"
fn HBRegister()
RunApplicationEventLoop()

poke long event - 8, 0xFFFFFFFF
do
handleevents
until gFBQuit



    




On 2/28/09 11:58 AM, "Pierre Zippi" <pierrezippi@...> wrote:

> Try adding this line below the INCLUDE "Tlbx LSOpen.incl"
> TOOLBOX FN CFURLCreateWithString ( CFAllocatorRef allocator,¬
>                                       CFStringRef URLString,¬
>                               CFURLRef baseURL ) = CFURLRef
> ALSO watch out for the email wrap of this line
>> urlRef = fn CFURLCreateWithString( _kCFAllocatorDefault, fn CFSTR ( urlStr
>> ), 0 )
> 
> 
> On Sat, Feb 28, 2009 at 10:15 AM, Brian Heibert <bheibert@...> wrote:
>> I copied most of everything over
>> FB doesn't seem to like the LaunchURL you provided
>> 
>> local fn LaunchURL( urlStr as str255 )
>> '~'1
>> dim as CFURLRef urlRef
>> 
>> urlRef = fn CFURLCreateWithString( _kCFAllocatorDefault, fn CFSTR ( urlStr
>> ), 0 )
>> long if ( urlRef )
>> fn LSOpenCFURLRef( urlRef, #0 )
>> CFRelease( urlRef )
>> end if
>> 
>> end fn
>> 
>> But then again my FB has been acting strangely lately, maybe I need to
>> re-install.
>> 
>> Thanks,
>> 
>> Brian
>> 
>> 
>> On 2/28/09 1:01 AM, "Ken Shmidheiser" <kshmidheiser@...> wrote:
>> 
>>> Brian asked:
>>> 
>>>> And I am trying to get my help menu to open my helpbook when the
>>>> help menuitem is clicked on
>>>> Why isn¹t this working?
>>> 
>>> 
>>> HHhhmmm... slow night here. But this works for me.
>>> 
>>> Ken
>>> 
>>> include "Tlbx LSOpen.incl"
>>> 
>>> _speakassisthelp    = 1
>>> _gotoimaginateware  = 2
>>> _gotospeakassistnet = 3
>>> _sharewaremenu      = 4
>>> 
>>> local fn BuildMenus
>>> menu 1,0,_enable,"File"
>>> end fn
>>> 
>>> local fn BuildHelpMenu
>>> '~'1
>>> dim as MenuRef       @ HMenuRef
>>> dim as MenuItemIndex @ HMenuItem
>>> dim as Str255        s
>>> dim as OSStatus        err
>>> 
>>> err = fn HMGetHelpMenu( HMenuRef, HMenuItem )
>>> long if ( err == _noErr )
>>> long if ( HMenuRef )
>>> s = "SpeakAssist Help"
>>> InsertMenuItem ( HMenuRef, s, _speakassisthelp )
>>> s = "Imaginateware.com"
>>> InsertMenuItem ( HMenuRef, s, _gotoimaginateware )
>>> s = "Speakassist.net"
>>> InsertMenuItem ( HMenuRef, s, _gotospeakassistnet )
>>> s = "Web Store"
>>> InsertMenuItem ( HMenuRef, s, _sharewaremenu )
>>> end if
>>> end if
>>> 
>>> end fn
>>> 
>>> local fn LaunchURL( urlStr as str255 )
>>> '~'1
>>> dim as CFURLRef urlRef
>>> 
>>> urlRef = fn CFURLCreateWithString( _kCFAllocatorDefault, fn CFSTR
>>> ( urlStr ), 0 )
>>> long if ( urlRef )
>>> fn LSOpenCFURLRef( urlRef, #0 )
>>> CFRelease( urlRef )
>>> end if
>>> 
>>> end fn
>>> 
>>> local fn DoMenus
>>> '~'1
>>> dim as long menuID, itemID
>>> 
>>> menuID = menu( _MenuID )
>>> itemID = menu( _ItemID )
>>> 
>>> select case ( menuID )
>>> case _KHMHelpMenuID
>>> select itemID
>>> case _speakassisthelp
>>> print "You selected Speakassist Help"
>>> case _gotoimaginateware
>>> print "Going to Imaginateware.com..."
>>> fn LaunchURL( "http://www.imaginateware.com" )
>>> case _gotospeakassistnet
>>> print "Going to SpeakAssist.net..."
>>> fn LaunchURL( "http://www.speakassist.net" )
>>> case _sharewaremenu
>>> print "Going to Web Store..."
>>> fn LaunchURL( "http://www.imaginateware.com/webstore.php" )
>>> end select
>>> end select
>>> menu
>>> 
>>> end fn
>>> 
>>> fn BuildMenus
>>> fn BuildHelpMenu
>>> 
>>> appearance window 1
>>> 
>>> print "Select something from the Help menu..."
>>> 
>>> on menu fn DoMenus
>>> 
>>> do
>>> handleevents
>>> until gFBQuit
>>> 
>>> --
>>> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>>> 
>> 
>> --
>> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>> 
>> 
> 
>