rickclark58 1212173723|%e %b %Y, %H:%M %Z|agohover
Hey Folks,
Still no internet connect yet I'm afraid. Hopefully, soon.
However, I haven't been just laying around. :) While working on a couple of programs, I decided that I needed an easy to use gui system for FB. Since there really isn't one (that I know of) that is written in pure FB, I decided to write my own. Right now I have the main desk object and menu object working. The desk object is the core gui object that is the container for the menu and window objects. The window object is a container for the different control objects such as a textbox, label, button, etc. The syntax is quite easy to use. For example:
sub MessageHandler (objID as integer, e as EVENT)
'handle message
end sub
dim mydesk as desk = desk([options])
CreatMenu [options]
AddNewMenuItem [options]
…
desk.menu.ShowMenu
desk.ProcessMessage = @MessageHandler
desk.ShowDesk
desk.Run
The run command enters into the gui message loop. The MessageHandler sub is a user defined sub that you would use to handle any messages generated by the system. The objID is the id of the object you used when you created the object and the e as EVENT is the FB ScreenEvent record that is passed from the desk message loop. You pass the address of your message handler to the desk ProcessMessage before you run the desk object.
Next time I can get online I'll post some screen shots.
