given the following code:
Code: Select all
DeclareModule Currency
; procedures
Declare create(x, y)
EndDeclareModule
Module Currency
; canvas to draw on
Global gadget
; create the currency
Procedure create(x, y)
gadget = TextGadget(#PB_Any, x, y, 100, 100, "Stars: 0")
EndProcedure
EndModule
Code: Select all
oldcurr = Currency::create(50, 50)
;newcurr = Currency::create(100, 100)
Code: Select all
newcurrent = Currency::create(100, 100)
Thank you for your time,
Cyber Spider