fb:porticula NoPaste
warning 4(1): Suspicious pointer assignment
Uploader: | ThePuppetMaster |
Datum/Zeit: | 03.11.2007 06:59:43 |
Type C4Kernel_Type
C4A_Add as Sub (as String)
C4A_AddEx as Sub (as String, as Integer)
End Type
'-----------------------------------------------------------------------------------------------------
Declare Sub C4A_AddEx (ByRef V_Text as String, ByRef V_Color as Integer)
'-----------------------------------------------------------------------------------------------------
Sub C4A_Add (ByRef V_Text as String)
Print V_Text;
End Sub
'-----------------------------------------------------------------------------------------------------
Sub C4A_AddEx (ByRef V_Text as String, ByRef V_Color as Integer)
Color V_Color
Print V_Text;
End Sub
'-----------------------------------------------------------------------------------------------------
Dim Shared C4Kernel as C4Kernel_Type
C4Kernel.C4A_Add = @C4A_Add
C4Kernel.C4A_AddEx = @C4A_AddEx