| Re: Commons, Was: can i place a job advert [message #28199 is a reply to message #28198] |
Mon, 26 November 2001 18:44   |
Richard Younger
Messages: 43
Registered: November 2000
|
Member |
|
|
It occurs to me that I neglected some inheritance.
There. I feel better. Still, no warranties apply.
Rich
--
Richard Younger
FUNCTION Test::init, _Extra=extr
status = self->IDLgrModel::init(_Extra=extr)
CATCH, error
IF error NE 0 THEN BEGIN
catch, /cancel
table = Obj_New('IDL_container')
DEFSYSV, '!RYtable', table
ENDIF
IF status EQ 1 THEN BEGIN
table = !RYtable
table->add, self
ENDIF
RETURN, status
END
PRO Test::cleanup
table = !RYtable
table->remove, self
IF table->count() EQ 0 THEN BEGIN
Obj_destroy, table
!RYtable = OBJ_NEW()
ENDIF
self->IDLgrModel::cleanup
END
FUNCTION Test::get_others, _Extra=extr
table = !RYtable
RETURN, table->Get(/all, _Extra=extr)
END
PRO Test__define
self = {TEST, $
data_holder : ptr_new() , $
inherits IDLgrModel $
}
END
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
