This code, is also working in Harbour juste replacing init() with new.
// here we create a classe with inherit from two classes
CREATE CLASS XbpComboBox INHERIT XbpSLE, XbpListBox
ENDCLASS
METHOD XbpComboBox:new( ... )
::XbpSLE:New( ... ) // could also be written Super:New(...) as in harbour
Super will call the first inherited super class
// this code _is_ valid in harbour
RETURN Self
METHOD XbpComboBox:create( ... )
::XbpSLE:create( ... ) // same here, this is just the same as calling
Super:Create(..)
RETURN Self
Function Main()
Local oCombo
oCombo := XbpComboBox( ... )
oCombo:xbpSLE:callSomeFunOrProperty() // and always the same here
// oCombo:Super:callSomeFunOrProperty()
^^^^^^^^^^^^^^^^^^^^^^^^^
Best regards,
JF,
-----Message d'origine-----
De : harbour-boun...@harbour-project.org
[mailto:harbour-boun...@harbour-project.org] De la part de Pritpal Bedi
Envoyé : dimanche 21 juin 2009 4:26
À : harbour@harbour-project.org
Objet : [Harbour] CLASSES - What this mean ?
Hello All
Please look at this code
CREATE CLASS XbpComboBox INHERIT XbpSLE, XbpListBox
ENDCLASS
METHOD XbpComboBox:new( ... )
::XbpSLE:init( ... )
RETURN Self
METHOD XbpComboBox:create( ... )
::XbpSLE:create( ... )
RETURN Self
Function Main()
Local oCombo
oCombo := XbpComboBox( ... )
oCombo:xbpSLE:callSomeFunOrProperty()
^^^^^^^^^^^^^^^^^^^^^^^^^
// Where IS the instance of <oCombo:xbpSLE> called above.
// I need to know can I manage this instance.
Return nil
My query may not be well-explained!
Regards
Pritpal Bedi
--
View this message in context:
http://www.nabble.com/CLASSES---What-this-mean---tp24131028p24131028.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
