[futurebasic] Problem with DoMenu

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : January 2010 : Group Archive : Group : All Groups

From: Brian Heibert <heibert@...>
Date: Tue, 19 Jan 2010 20:16:52 -0500
Here's my DoMenu I cannot figure out why File Open doesn't do anything  
right now
when it should display the Open dialog

local fn DoMenu
'~'1
dim as Long menuID, itemID

menuID = menu(_menuID)
itemID = menu(_itemID)

select menuID
case _FileMenu
select itemID
case _fileopen
window #2555
print "EDIT"
dim fileSpec as fsSpec
long if ( files$( _FSSpecOpen,, "FSSpecOpen", fileSpec ) )
open "I", 1, @fileSpec
/*while ( eof(1) == 0 )
line input #1, s
print s
wend*/
close
end if
case _resetMenu
WINDOW CLOSE #_mainwnd
WINDOW CLOSE #_toolWnd
WINDOW CLOSE #_statictextstamper
fn BuildToolWindow
fn Buildstatictextstamper
fn BuildMainWindow
window _mainWnd
window _toolWnd
window _statictextstamper
case _printMenu
fn PrintWindow (_mainWnd)
end select
case _appleMenu
select itemID
fn DoAboutMenu
end select
case _CommandMenu
select itemID
case _runmenu
Menu _CommandMenu, _runMenu, _disable
Menu _CommandMenu, _stop, _enable
window close #_statictextstamper
window close #_toolWnd
/*long if mouse(_down) = _true
fn PollMouseScribble
xelse

end if*/
case _stop
Menu _CommandMenu, _runMenu, _enable
Menu _CommandMenu, _stop, _disable
fn BuildToolWindow
fn Buildstatictextstamper
window _mainWnd
window _toolWnd
case _build1
case _build2
end select
case _ToolsMenu
select itemID
case _hidetools
menu _ToolsMenu,_hidetools,_disable, "Hide Tools"
menu _ToolsMenu,_showtools,_enable, "Show Tools"
window close #_toolWnd
case _showtools
menu _ToolsMenu,_hidetools,_enable, "Hide Tools"
menu _ToolsMenu,_showTools,_disable, "Show Tools"
fn BuildToolWindow
window #_toolWnd
case _hidestamper
window close #_statictextstamper
menu _ToolsMenu,_hidestamper,_disable, "Hide Stamper"
menu _ToolsMenu,_showstamper,_enable, "Show Stamper"
case _showstamper
menu _ToolsMenu,_hidestamper,_enable, "Hide Stamper"
menu _ToolsMenu,_showstamper,_disable, "Show Stamper"
fn Buildstatictextstamper
end select
case _gotomenu
select itemID
case _gotocard
case _gotoURL
fn Buildlocsheet
case _gotomacstorytellercom
open "UNIX", 2, "open "+"http://www.macstoryteller.com"
close #2
case _gotobrianheibertnet
open "UNIX", 2, "open "+"http://www.brianheibert.net"
close #2
end select
case _kHMHelpMenuID
select itemID
case 1
fn HBGotoPage( 0, 0 )
end select
end select
menu
end fn