@@ -262,10 +262,7 @@ Type TAppOutput
262
262
'Create output window and draw assets
263
263
Function FOutputBoot ()
264
264
SetGraphicsDriver GLMax2DDriver()
265
- 'outputWindow = Graphics(768,480,0,0,0)
266
-
267
265
SetGraphics CanvasGraphics(TAppGUI.editCanvas)
268
-
269
266
'Window background color
270
267
SetClsColor(BACKGROUND_RED,BACKGROUND_GREEN,BACKGROUND_BLUE)
271
268
SetMaskColor(255 ,0 ,255 )
@@ -300,6 +297,8 @@ Type TAppGUI
300
297
Global mainAboutTextbox:TGadget
301
298
'Editor Window
302
299
Global editWindow:TGadget
300
+ 'Editor Window Canvas Graphics
301
+ Global editCanvas:TGadget
303
302
'Editor Window Buttons
304
303
Global editWindowButtonPanel:TGadget
305
304
Global editLoadButton:TGadget
@@ -324,8 +323,6 @@ Type TAppGUI
324
323
'Textboxes content
325
324
Global aboutTextboxContent:String [7 ]
326
325
Global helpTextboxContent:String [15 ]
327
-
328
- Global editCanvas:TGadget
329
326
330
327
'Create Main App Window
331
328
Function FAppMain ()
@@ -349,10 +346,9 @@ Type TAppGUI
349
346
350
347
'Create Editor Window
351
348
Function FAppEditor ()
349
+ EnablePolledInput()
352
350
editWindow = CreateWindow(" CCCP Bender v" + appversion+ " - Editor" ,DesktopWidth()/2 - 700 ,DesktopHeight()/2 - 240 ,300 + 768 ,430 + 50 ,Null ,WINDOW_TITLEBAR| WINDOW_CLIENTCOORDS)
353
-
354
351
editCanvas = CreateCanvas(300 ,0 ,768 ,480 ,editWindow)
355
-
356
352
editWindowButtonPanel = CreatePanel(10 ,7 ,280 ,57 ,editWindow,PANEL_GROUP)
357
353
editLoadButton = CreateButton(" Load" ,6 ,0 ,80 ,30 ,editWindowButtonPanel,BUTTON_PUSH)
358
354
editSaveButton = CreateButton(" Save" ,96 ,0 ,80 ,30 ,editWindowButtonPanel,BUTTON_PUSH)
@@ -420,15 +416,15 @@ Rem
420
416
------- EVENT HANDLING ------------------------------------------------------------------------------------------------
421
417
EndRem
422
418
423
- While True
419
+ While True
424
420
If Not TAppGUI.mainToEdit Then
425
421
TAppGUI.FAppUpdate()
426
422
Else
427
423
TAppOutput.FOutputUpdate()
428
424
EndIf
429
425
430
426
WaitEvent
431
- Print CurrentEvent.ToString()
427
+ ' Print CurrentEvent.ToString()
432
428
433
429
'Event Responses
434
430
'In Main Window
0 commit comments