hi,
how to run Console App with QOut() under Fivewin
i try to use a Demo Sample which use Qout() but i got not "output" on Screen
i do have sane under HGM where i can add
- Code: Select all Expand view
REQUEST HB_GT_WIN_DEFAULT // Console
but this does not work with Fivewin while "unknown"
so how run this CODE so i can "see" Output
- Code: Select all Expand view
//// $Id: dynobj.prg 14676 2010-06-03 16:23:36Z vszakats $//// DynObj//// Implementation of dynamic objects in Harbour//// Date : 1999/05/12//// Written by Eddie Runia <eddie@runia.com>// www - http://harbour-project.org//// Placed in the public domain//function Main
() local oForm := TForm
():
New() local nSeq
QOut
( "What methods are in the class :" ) Debug
( __objGetMethodList
( oForm
) )/* Let's add an inline at run-time. Should already be possible */ QOut
( "Let's add inline 'CalcArea' at run-time to an already instanced class" ) __objAddInline
( oForm,
"CalcArea", ;
{|self|
( ::
nRight - ::
nLeft ) *
( ::
nBottom - ::
nTop ) } ) QOut
( "What methods are in the class :" ) Debug
( __objGetMethodList
( oForm
) ) QOut
( "What is the Form area ?" ) QOut
( oForm:
CalcArea() ) QOut
( "Let's add method 'Smile' at run-time to an already instanced class" ) __objAddMethod
( oForm,
"Smile", @Smile
() ) QOut
( "What methods are in the class :" ) Debug
( __objGetMethodList
( oForm
) ) QOut
( "Smile please " ) oForm:
Smile() Pause() QOut
( "Data items before" ) Debug
( oForm
) QOut
( "Let's add an additional data item" ) __objAddData
( oForm,
"cHelp" ) oForm:
cHelp :=
"This is a real tricky test" QOut
( "Data items after" ) Debug
( oForm
) Pause() QOut
( "Let's attach a bigger smile" ) __objModMethod
( oForm,
"Smile", @BigSmile
() ) QOut
( "Let's smile" ) oForm:
Smile() QOut
( "And CalcArea() will now give a result in square inches" ) __objModInline
( oForm,
"CalcArea", ;
{|self|
( ::
nRight - ::
nLeft ) *
( ::
nBottom - ::
nTop ) /
(2.54*
2.54) } ) QOut
( "What is the Form area ?" ) QOut
( oForm:
CalcArea() ) QOut
( "What methods are in the class :" ) Debug
( __objGetMethodList
( oForm
) ) QOut
( "Delete CalcArea" ) __objDelInline
( oForm,
"CalcArea" ) QOut
( "What methods are in the class :" ) Debug
( __objGetMethodList
( oForm
) ) QOut
( "Delete Smile" ) __objDelMethod
( oForm,
"Smile" ) QOut
( "What methods are in the class :" ) Debug
( __objGetMethodList
( oForm
) ) Pause() QOut
( "Data items before" ) Debug
( oForm
) QOut
( "Let's delete cHelp" ) __objDelData
( oForm,
"cHelp" ) QOut
( "Data items after" ) Debug
( oForm
)/* oForm:cHelp := "Please crash" */return nilfunction TForm
() static oClass
if oClass ==
nil oClass := HBClass
():
New( "TFORM" ) // starts a new class definition oClass:
AddData( "cText" ) // define this class objects datas oClass:
AddData( "nTop" ) oClass:
AddData( "nLeft" ) oClass:
AddData( "nBottom" ) oClass:
AddData( "nRight" ) oClass:
AddMethod( "New", @
New() ) // define this class objects methods oClass:
AddInline( "Show",
{|self| ::
cText } ) oClass:
Create() // builds this class endifreturn oClass:
Instance() // builds an object of this classstatic function New() local Self := QSelf
() ::
nTop :=
10 ::
nLeft :=
10 ::
nBottom :=
20 ::
nRight :=
40return Selfstatic function Smile
() local self := QSelf
() if ::
CalcArea() ==
300 QOut
( ":-)" ) else QOut
( ":-(" ) endifreturn selfstatic function BigSmile
() local self := QSelf
() QOut
( ":-)))" )return selffunction Pause() __Accept
( "Pause :" )return nil