*---------------------------------------- * Example *---------------------------------------- LOCAL loBar loBar = CREATEOBJECT("SQLBar") SELECT * ; FROM MyTable ; INTO CURSOR MyCursor RELEASE loBar *---------------------------------------- * Begin Class definition *---------------------------------------- DEFINE CLASS SQLBar AS CUSTOM PROTECTED lSetTalk, lWindows lSetTalk = "" lWindow = "" NAME = "SQLBar" PROCEDURE INIT THIS.lSetTalk = SET("TALK") THIS.lWindow = SYS(2015) DEFINE WINDOW (THIS.lWindow) FROM 0,0 TO 1,1 SET TALK WINDOW (THIS.lWindow) SET TALK ON ENDPROC PROCEDURE DESTROY LOCAL lThisSetTalk lThisSetTalk = THIS.lSetTalk SET TALK &lThisSetTalk RELEASE WINDOW (THIS.lWindow) ENDPROC ENDEFINE *---------------------------------------- * End Class definition *----------------------------------------