Thanks Antonio
My mistake. I have started putting up documentation on TSay so I get a fuller feel for what's required, best way to set it out etc. And I'm learning a lot (and learning just how much I don't know) in the process.
I have to go critically through the inherited properties and more particularly methods as they might be inherited by a class but be irrelevant or effectively non functional - for example if there is no signal connect for that class.
I did write the following little test program
- Code: Select all Expand view
// testsay2.prg
#include "FiveLinux.ch"
FUNCTION Main()
LOCAL oDlg
LOCAL oSay
DEFINE DIALOG oDlg TITLE "FiveLinux TSay Example 2"
@ 3, 1 SAY "Hello World" OF oDlg SIZE 120, 25
@ 6, 1 SAY oSay PROMPT "A" OF oDlg
oSay:bLClicked := { | | MsgInfo( "Clicked on Say" ) }
oDlg:bLClicked := { | | MsgInfo( "Clicked on Window" ) }
ACTIVATE DIALOG oDlg CENTERED
RETURN nil
I expected at least the oDlg:bLCicked to work. Should it? Maybe its the modifications I have made to the standard libraries (although I don't think so)
Speaking of my modifications I am documenting the classes in their standard form but there are a number of modifications I have made (with your help) that I think are very worthwhile and I suggest that should be added to the standard libraries. Most notably the methods for setting colors for controls and for controlling the alignment of TSays. Also I would like to see a CLASSDATA added to TWindow that says all NRow and nCol are to be taken as pixel values to save having to type PIXEL as part of every @ nRow, nCol command.
Regards
Doug