diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-06-27 11:27:31 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-06-27 11:27:31 +0000 |
| commit | d80b69c1f27f0dfb352c057ad2f42c89b31a437b (patch) | |
| tree | c680e97394a4a7a3f17f8ddb7779dac1249314aa /packages/fpgtk | |
| parent | 278b197e6367d3948e41bb610699fd10eead397e (diff) | |
| download | fpc-d80b69c1f27f0dfb352c057ad2f42c89b31a437b.tar.gz | |
* moved field definitions before method/property definitions (see mantis
#13971)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13330 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fpgtk')
| -rw-r--r-- | packages/fpgtk/src/fpgtk.pp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/packages/fpgtk/src/fpgtk.pp b/packages/fpgtk/src/fpgtk.pp index b2543bf8e3..7abed11420 100644 --- a/packages/fpgtk/src/fpgtk.pp +++ b/packages/fpgtk/src/fpgtk.pp @@ -606,9 +606,9 @@ TYPE Protected procedure CreateGtkObject; override; Public - function TheGtkObject : PGtkImage; FMask:PGdkBitMap; FImage:PGdkImage; + function TheGtkObject : PGtkImage; property Image : PGdkImage read GetImageProp write SetImageProp; property Mask : PGdkBitMap read GetMask write SetMask; procedure SetImage (anImage:PGdkImage; aMask:PGdkBitmap); @@ -629,9 +629,9 @@ TYPE Protected procedure CreateGtkObject; override; Public - function TheGtkObject : PGtkPixmap; FMask:PGdkBitMap; FPixMap:PGdkPixmap; + function TheGtkObject : PGtkPixmap; property BuildInsensitive : longbool read GetBuildInsensitive write SetBuildInsensitive; constructor Create; constructor CreateFromFile (Filename:string; Window:TFPgtkWidget); @@ -655,8 +655,8 @@ TYPE procedure SetBorder (TheValue : integer); function GetChildren : TFPgtkWidgetGroup; Public - function TheGtkObject : PGtkContainer; FChildren:TFPgtkWidgetGroup; + function TheGtkObject : PGtkContainer; property Border : integer read GetBorder write SetBorder; procedure Add (AWidget:TFPgtkWidget; IsVisible:boolean); Overload; procedure Add (AWidget:TFPgtkWidget); Overload; @@ -802,8 +802,8 @@ TYPE Protected procedure CreateGtkObject; Override; Public - function TheGtkObject : PGtkRadioButton; FGroup:TFPgtkRadioButtonGroup; + function TheGtkObject : PGtkRadioButton; constructor Create (AGroup:TFPgtkRadioButtonGroup); constructor CreateWithLabel (AGroup:TFPgtkRadioButtonGroup; aText:string); end; @@ -1957,8 +1957,8 @@ TYPE procedure GtkInsert (MenuItem:TFPgtkWidget; position:integer); Override; procedure GtkAppend (MenuItem:TFPgtkWidget); Override; Public - function TheGtkObject : PGtkMenu; FDetacher:TFPgtkMenuDetachFunction; + function TheGtkObject : PGtkMenu; procedure ReorderChild (MenuItem:TFPgtkWidget; position:integer); procedure Popup (button:guint); Overload; procedure Popup (ParentShell:TFPgtkWidget; ParentItem:TFPgtkWidget; func:TFPgtkMenuPosFunction; data:pointer; button:guint; ActivateTime:guint32); Overload; |