I'm kind of stuck. I'm tearing apart the event TApplet example that comes with MAXGUI and I can't compile due to setTarget not being found.
Is SetTarget no more? What could I use in it's place?
' rendering a canvas using an EventHook based Applet Type
Strict
Type TApplet
Field window:TGadget
Field canvas:TGadget
Field timer:TTimer
Method Render()
Local x,y,width,height,t,i
width=GraphicsWidth()
height=GraphicsHeight()
t=MilliSecs()
SetBlend ALPHABLEND
SetViewport 0,0,width,height
SetClsColor 0,0,0
SetOrigin width/2,height/2
Cls
For x=-width/2 To width/2 Step 2
y=Sin(t*0.3+x)*height/2
DrawLine 0,0,x,y
Next
End Method
Method OnEvent(event:TEvent)
Select event.id
Case EVENT_WINDOWCLOSE
End
Case EVENT_TIMERTICK
RedrawGadget canvas
Case EVENT_GADGETPAINT
SetGraphics CanvasGraphics(canvas)
Render
Flip
End Select
End Method
Function eventhook:Object(id,data:Object,context:Object)
Local event:TEvent
Local app:TApplet
event=TEvent(data)
app=TApplet(context)
app.OnEvent event
End Function
Method Create:TApplet(name$)
Local a:TApplet
Local w,h
window=CreateWindow(name,20,20,512,512)
window.SetTarget Self
w=ClientWidth(window)
h=ClientHeight(window)
canvas=CreateCanvas(0,0,w,h,window)
canvas.SetLayout 1,1,1,1
canvas.SetTarget Self
timer=CreateTimer(100)
AddHook EmitEventHook,eventhook,Self
Return Self
End Method
End Type
AutoMidHandle True
Local applet:TApplet
applet=New TApplet.Create("Render Applet")
While True
WaitEvent
Wend
|