08b930d6d7
* contrib/hbide/ideskeletons.prg
! Meta concept enhanced further.
<-NAME=PROMPT> ; then NAME will be the meta and string
returned by PROMPT dialog will be assigned to <-NAME>
for next occurances. The assignment is done only with
<-PROMPT> meta.
This feature is especially useful when skeleton is built
defining a class:
--- SKELETON ---
#include "common.ch"
/*------------------------------*/
CLASS <-NAME=PROMPT> INHERIT IdeObject
DATA oUI
METHOD new( oIde )
METHOD create( oIde )
METHOD destroy()
ENDCLASS
/*------------------------------*/
METHOD <-NAME>:new( oIde )
::oIde := oIde
RETURN Self
/*------------------------------*/
METHOD <-NAME>:create( oIde )
DEFAULT oIde TO ::oIde
::oIde := oIde
RETURN Self
/*------------------------------*/
--- INSERTION ( after input "MyNewClass" in the dialog ) ---
#include "common.ch"
/*------------------------------*/
CLASS MyNewClass INHERIT IdeObject
DATA oUI
METHOD new( oIde )
METHOD create( oIde )
METHOD destroy()
ENDCLASS
/*------------------------------*/
METHOD MyNewClass:new( oIde )
::oIde := oIde
RETURN Self
/*------------------------------*/
METHOD MyNewClass:create( oIde )
DEFAULT oIde TO ::oIde
::oIde := oIde
RETURN Self
/*------------------------------*/