Hallo,
Am currently working on a Console GUI module, and would be grateful if someone could test this small app on XP or Vista please, as I'm on Win2K here. (file is HERE)
This test is to show the UI running via Events.
When you run it, you should see a clock in the top-right, and a text entry field in the middle. To finish the edit you can use Escape, Enter or Tab.
This is the source :
Just let me know if it runs okay and if it flickers a lot or not.
Thanks muchly :-)
Am currently working on a Console GUI module, and would be grateful if someone could test this small app on XP or Vista please, as I'm on Win2K here. (file is HERE)
This test is to show the UI running via Events.
When you run it, you should see a clock in the top-right, and a text entry field in the middle. To finish the edit you can use Escape, Enter or Tab.
This is the source :
SuperStrict Framework BaH.Curses Import BRL.Timer Import BRL.EventQueue Local timer:TTimer Global timeLabel:TCursesLabel = TCursesLabel.Create(POS_RIGHT, POS_TOP, [CurrentTime()]) Local entry:TCursesEntry = TCursesEntry.Create(POS_CENTER, POS_CENTER, "<C>Enter some text.", .. "</U/5>Text:<!U!5>", A_NORMAL, ".", vMixed, 40, 0, 256) If timeLabel Then timeLabel.show() timer = CreateTimer(1) AddHook EmitEventHook, eventHook, timer ' entry will accept key input SetFocus(entry) While True WaitEvent() Select currentEvent.id Case EVENT_GADGETACTION Select currentEvent.data Case vNORMAL popupLabel(["<C>You typed", "", "<C>'" + entry.getValue() + "'"]) Case vESCAPE_HIT popupLabel(["<C> You aborted the entry by hitting escape!! "]) End Select Exit End Select Wend End If Function eventHook:Object(id%, data:Object, context:Object) If TEvent(data) Then If TEvent(data).id = EVENT_TIMERTICK timeLabel.setText([CurrentTime()]) timeLabel.getScreen().refresh() End If End If Return data End Function
Just let me know if it runs okay and if it flickers a lot or not.
Thanks muchly :-)