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@...
>
>



-- 
P. Zippi
Using FB 4.4.3 (moving FB2 code to FB4.4.3)