Skip to content

Commit 935689b

Browse files
author
MaximDude
committed
Fixed setting joint markers in canvas graphics
1 parent 80d9653 commit 935689b

File tree

1 file changed

+5
-9
lines changed

1 file changed

+5
-9
lines changed

cccp-bender-main.bmx

Lines changed: 5 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -262,10 +262,7 @@ Type TAppOutput
262262
'Create output window and draw assets
263263
Function FOutputBoot()
264264
SetGraphicsDriver GLMax2DDriver()
265-
'outputWindow = Graphics(768,480,0,0,0)
266-
267265
SetGraphics CanvasGraphics(TAppGUI.editCanvas)
268-
269266
'Window background color
270267
SetClsColor(BACKGROUND_RED,BACKGROUND_GREEN,BACKGROUND_BLUE)
271268
SetMaskColor(255,0,255)
@@ -300,6 +297,8 @@ Type TAppGUI
300297
Global mainAboutTextbox:TGadget
301298
'Editor Window
302299
Global editWindow:TGadget
300+
'Editor Window Canvas Graphics
301+
Global editCanvas:TGadget
303302
'Editor Window Buttons
304303
Global editWindowButtonPanel:TGadget
305304
Global editLoadButton:TGadget
@@ -324,8 +323,6 @@ Type TAppGUI
324323
'Textboxes content
325324
Global aboutTextboxContent:String[7]
326325
Global helpTextboxContent:String[15]
327-
328-
Global editCanvas:TGadget
329326

330327
'Create Main App Window
331328
Function FAppMain()
@@ -349,10 +346,9 @@ Type TAppGUI
349346

350347
'Create Editor Window
351348
Function FAppEditor()
349+
EnablePolledInput()
352350
editWindow = CreateWindow("CCCP Bender v"+appversion+" - Editor",DesktopWidth()/2-700,DesktopHeight()/2-240,300+768,430+50,Null,WINDOW_TITLEBAR|WINDOW_CLIENTCOORDS)
353-
354351
editCanvas = CreateCanvas(300,0,768,480,editWindow)
355-
356352
editWindowButtonPanel = CreatePanel(10,7,280,57,editWindow,PANEL_GROUP)
357353
editLoadButton = CreateButton("Load",6,0,80,30,editWindowButtonPanel,BUTTON_PUSH)
358354
editSaveButton = CreateButton("Save",96,0,80,30,editWindowButtonPanel,BUTTON_PUSH)
@@ -420,15 +416,15 @@ Rem
420416
------- EVENT HANDLING ------------------------------------------------------------------------------------------------
421417
EndRem
422418

423-
While True
419+
While True
424420
If Not TAppGUI.mainToEdit Then
425421
TAppGUI.FAppUpdate()
426422
Else
427423
TAppOutput.FOutputUpdate()
428424
EndIf
429425

430426
WaitEvent
431-
Print CurrentEvent.ToString()
427+
'Print CurrentEvent.ToString()
432428

433429
'Event Responses
434430
'In Main Window

0 commit comments

Comments
 (0)