[ro-oslib-commits] OSLib/!OsLib/Source/Toolbox/oslib OptionButton.swi,1.2,1.3 ToolAction.swi,1.2,1.3

[<th...@us...>]

Update of /cvsroot/ro-oslib/OSLib/!OsLib/Source/Toolbox/oslib
In directory sc8-pr-cvs1:/tmp/cvs-serv26909/Source/Toolbox/oslib

Modified Files:
	OptionButton.swi ToolAction.swi 
Log Message:
Toolbox fixes from Dave Appleby. 20030927-1.


Index: OptionButton.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Toolbox/oslib/OptionButton.swi,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** OptionButton.swi	9 Mar 2002 18:20:43 -0000	1.2
--- OptionButton.swi	27 Sep 2003 12:13:23 -0000	1.3
***************
*** 19,22 ****
--- 19,26 ----
     );
  
+ CONST
+    OptionButton_GenerateStateChanged = Gadget_Flags: 0x1,
+    OptionButton_On                   = Gadget_Flags: 0x4;
+ 
  SWI
     OptionButton_SetLabel =

Index: ToolAction.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Toolbox/oslib/ToolAction.swi,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ToolAction.swi	11 Mar 2002 14:13:45 -0000	1.2
--- ToolAction.swi	27 Sep 2003 12:13:23 -0000	1.3
***************
*** 13,19 ****
     ToolAction_Gadget = .Struct
     (
!       Toolbox_MsgReference: off_text,
        .Int: off_text_limit,
!       Toolbox_MsgReference: on_text,
        .Int: on_text_limit,
        .Bits: click_action,
--- 13,19 ----
     ToolAction_Gadget = .Struct
     (
!       Toolbox_StringReference: off_text,
        .Int: off_text_limit,
!       Toolbox_StringReference: on_text,
        .Int: on_text_limit,
        .Bits: click_action,
***************
*** 21,25 ****
        .Bits: adjust_action,
        Toolbox_StringReference: adjust_show,
!       Toolbox_MsgReference: fade_text,
        .Int: fade_text_limit
     ),
--- 21,25 ----
        .Bits: adjust_action,
        Toolbox_StringReference: adjust_show,
!       Toolbox_StringReference: fade_text,
        .Int: fade_text_limit
     ),
***************
*** 27,33 ****
     ToolAction_Object = .Struct: Gadget_Object
     (
!       Toolbox_MsgReference: off_text,
        .Int: off_text_limit,
!       Toolbox_MsgReference: on_text,
        .Int: on_text_limit,
        .Bits: click_action,
--- 27,33 ----
     ToolAction_Object = .Struct: Gadget_Object
     (
!       Toolbox_StringReference: off_text,
        .Int: off_text_limit,
!       Toolbox_StringReference: on_text,
        .Int: on_text_limit,
        .Bits: click_action,
***************
*** 35,39 ****
        .Bits: adjust_action,
        Toolbox_StringReference: adjust_show,
!       Toolbox_MsgReference: fade_text,
        .Int: fade_text_limit
     );
--- 35,39 ----
        .Bits: adjust_action,
        Toolbox_StringReference: adjust_show,
!       Toolbox_StringReference: fade_text,
        .Int: fade_text_limit
     );