* property change for fpgui_toolkit package.

* Added some inline documentation for TfpgButton. Later this will move to fpdoc documentation.

3 files changed, 15 insertions, 10 deletions

diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index a346b2e1..775f5cdb 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -512,10 +512,6 @@ type
     FOwner: TfpgString;
     FGroup: TfpgString;
     FAttrString: TFileModeString;
-    {FMode: longword; // unix
-    FOwnerID: integer; // unix
-    FGroupID: integer; // unix
-    FAttributes: longword; // windows}
   public
     constructor Create;
     property    Name: string read FName write FName;
@@ -530,10 +526,6 @@ type
     property    Owner: TfpgString read FOwner write FOwner;
     property    Group: TfpgString read FGroup write FGroup;
     property    Attributes: TFileModeString read FAttrString write FAttrString;
-    {property    Attributes: longword read FAttributes write FAttributes;
-    property    Mode: longword read FMode write FMode;  // only used by unix OS's
-    property    OwnerID: integer read FOwnerID write FOwnerID;
-    property    GroupID: integer read FGroupID write FGroupID;}
   end;
 
 
diff --git a/src/corelib/x11/fpgui_toolkit.lpk b/src/corelib/x11/fpgui_toolkit.lpk
index d73a2e95..ddbd27b9 100644
--- a/src/corelib/x11/fpgui_toolkit.lpk
+++ b/src/corelib/x11/fpgui_toolkit.lpk
@@ -2,9 +2,10 @@
 <CONFIG>
   <Package Version="3">
     <Name Value="fpgui_toolkit"/>
+    <AddToProjectUsesSection Value="False"/>
     <Author Value="Graeme Geldenhuys"/>
     <CompilerOptions>
-      <Version Value="5"/>
+      <Version Value="8"/>
       <SearchPaths>
         <OtherUnitFiles Value="../;../../gui/;../../gui/db/"/>
         <UnitOutputDirectory Value="../../../lib"/>
@@ -18,7 +19,6 @@
       </Parsing>
       <CodeGeneration>
         <SmartLinkUnit Value="True"/>
-        <Generate Value="Faster"/>
       </CodeGeneration>
       <Other>
         <CompilerPath Value="$(CompPath)"/>
diff --git a/src/gui/gui_button.pas b/src/gui/gui_button.pas
index cd1ad1eb..6fa2c361 100644
--- a/src/gui/gui_button.pas
+++ b/src/gui/gui_button.pas
@@ -113,6 +113,19 @@ type
   end;
   
   
+  { A standard push button component.
+
+    If you want toolbar style buttons you need to set the following properties:
+    AllowAllUp = True; AllowDown = True;
+    and each button's GroupIndex must be greater than 0, but not the same as any
+    other button.
+
+    If you want toggle buttons - only one button my be down at a time:
+    Set AllowAllUp = False and AllowDown = True
+    AllowDown = True will automatically set the GroupIndex = 1. If you want more
+    than one set of toggle buttons in a Parent, you need to manually set the
+    GroupIndex property instead. All buttons with the same GroupIndex work
+    together. }
   TfpgButton = class(TfpgBaseButton)
   published
     property    AllowAllUp;