Re: GSoft BASIC Free Version

["Jeff Blakeney" <jeff.blakeney@a2central.com.remove-9l8-this>]

  To: Michael Kent
On Sat, 1 Sep 2007 19:29:36 +0000, Michael Kent wrote:

> In comp.sys.apple2 limtc <thyechean@gmail.com> wrote:
> 
> I seem to recall that creating a desktop program was surprisingly easy
> with GSoft BASIC.  So easy that even I might be tempted to take it up if
> you can put together a decent set of sample codes.

Here is a pretty simple framework for a desktop application in GSoft
BASIC.  You still need a resource file as well and this has no error or
event handling in it so it won't actually work but it gives you an idea
of what is required at least:

TLStartup
MyID = MMStartup
startStopRefRet = StartupTools(MyID, 2, Tool_Startup_Table)
MenuBarHandle = NewMenuBar2(2, Main_Menu_Bar, 0)
SetSysBar MenuBarHandle
SetMenuBar(0)
RefreshDesktop(0)
FixAppleMenu(mainApple_Menu)
MenuHeight = FixMenuBar
DrawMenuBar
InitCursor

Done = 0
do
	TaskMaster(taskMask, taskData)
	! do event handling here
loop until Done

ShutDownTools(1, startStopRefRet)
MMShutDown(MyID)
TLShutDown
--- Synchronet 3.14a-Win32 NewsLink 1.85
A2Central.com - Your total source for Apple II computing.