Extends

BlitzMax Forums/BlitzMax Beginners Area/Extends

Yue	(Posted 2015) [#1]


Type TVentana


	Field ventana:TGadGet
	Field tituloVentana:String
	
	Field posX:Short
	Field posY:Short
	Field ancho:Short
	Field alto:Short
	Field grupo:TGadget
	Field flags:Int 
	
	Global vLista:TList = New TList
	
	
	
	
	
	Function Constructor:TVentana(titulo:String = "app Linux",posX:Short=0,posY:Short= 0,ancho:Short=800,alto:Short = 600,grupo:TGadget = Null,flags:Int= WINDOW_DEFAULT:Int | WINDOW_TITLEBAR:Int |WINDOW_CENTER:Int)
		
		Local v:TVentana 			= New TVentana
		v.tituloVentana:String 		= titulo:String
		v.posX:Short 				= posX:Short
		v.posY:Short				= posY:Short
		v.ancho:Short				= ancho:Short
		v.alto:Short				= alto:Short
		v.grupo:TGadget				= grupo:TGadget
	    v.flags:Int 				= flags:Int
	
	
	  	v.Ventana:TGadGet = CreateWindow(v.TituloVentana:String, v.posX:Short,v.posY:Short,v.ancho:Short,v.alto:Short,v.grupo:TGadget,v.flags:Int)
	 	ListAddLast(vLista:TList,v:TVentana)
	    
	    Return v:TVentana
	End Function 
	
	
	Function Destructor:Int()

		For Local w:TVentana = EachIn TVentana.vLista 
	
	
	   			If w.ventana  Then 
					FreeGadget(w.ventana)
				ClearList(w.vLista)
				End If 
				
				If  ListIsEmpty(w.vLista) = True 
				
					w.vLista = Null 
				End If  
				
	
		Next 



	End Function 

	
	
	
	
End Type 

' Clase TextArea
Type TTextArea Extends TVentana

	Field textArea:TGadget 
		
	Global TALista:TList = New TList
	
	Function ConstructorTextArea:TTextArea(posX:Short,posY:Short,anchoT:Short, altoT:Short,grupo:TGadget=Null,flags:Int=TEXTAREA_WORDWRAP)
		
		Local TA:TTextArea 		= New TTextArea
		TA.posX:Short 			= posX:Short 
		TA.posY:Short			= posY:Short
		TA.ancho:Short 			= anchoT:Short
		TA.alto:Short			= altoT:Short
		TA.grupo:TGadget        = grupo:TGadget
		TA.flags:Int			= flags:Int
		
		
	    TA.TextArea:TGadget = CreateTextArea(TA.posX:Short,TA.posY:Short,ClientWidth(TA.grupo:TGadget),ClientHeight(TA.grupo:TGadget),TA.grupo:TGadget,TA.flags:Int)
        ListAddLast(TALista:TList,TA:TTextArea)    


       Return TA:TTextArea

    End Function 


    Function DestructorTextArea:Int()


		For Local TA:TTextArea = EachIn TTextArea.TALista 
	
	
	   			If TA.TextArea  Then 
					FreeGadget(TA.TextArea)
				 	ClearList(TA.TALista)
				End If 
				
				If  ListIsEmpty(TA.TALista) = True 
					
					TA.TALista = Null 
				End If  
				
	
		Next 



	End Function 


    
End Type

Hi, I'm trying to understand the heritage and want to know if you can inherit a method or function to serve as a constructor with the same name, only to receive a parameter to set that object is what starts.

In my case, I play to create the window TVentana guy by the name dle constructor method later to create the TTextArea object method called ConstructorTextArea, and I wonder if you can have one inherited method from a parent class to build an object where a parameter is set if you create the vetnana or textarea.

Any suggestions?

grable

(Posted 2015) [#2]

So long as the function/method has the same prototype it can be overridden. You can even change the return type if it is a sub-class of its parent.