ProgInfo changes
Tom Hughes
tom at compton.nu
Sat Mar 4 16:25:33 GMT 2000
The attached patch implements the ProgInfo changes requested by Alex
Thoukydides. I also added descriptions to all the SWIs while I was
at it.
Tom
--
Tom Hughes (tom at compton.nu)
http://www.compton.nu/
...The best way to keep your friends is not to give them away.
-------------- next part --------------
Index: ProgInfo
===================================================================
RCS file: /home/cvs/riscos/oslib/Source/Toolbox/ProgInfo,v
retrieving revision 1.1.1.1
diff -c -r1.1.1.1 ProgInfo
*** ProgInfo 2000/02/14 22:36:10 1.1.1.1
--- ProgInfo 2000/03/04 16:20:56
***************
*** 8,14 ****
CONST
ProgInfo_GenerateAboutToBeShown = ProgInfo_Flags: 0x00000001,
ProgInfo_GenerateDialogueCompleted = ProgInfo_Flags: 0x00000002,
! ProgInfo_IncludeLicenceType = ProgInfo_Flags: 0x00000004;
TYPE ProgInfo_Flags = .Bits;
TYPE ProgInfo_Licence = .Int;
--- 8,16 ----
CONST
ProgInfo_GenerateAboutToBeShown = ProgInfo_Flags: 0x00000001,
ProgInfo_GenerateDialogueCompleted = ProgInfo_Flags: 0x00000002,
! ProgInfo_IncludeLicenceType = ProgInfo_Flags: 0x00000004,
! ProgInfo_IncludeWebPageButton = ProgInfo_Flags: 0x00000008,
! ProgInfo_GenerateWebPageClicked = ProgInfo_Flags: 0x00000010;
TYPE ProgInfo_Flags = .Bits;
TYPE ProgInfo_Licence = .Int;
***************
*** 29,35 ****
ProgInfo_PurposeLabel = Toolbox_C: 0x82B406,
ProgInfo_AuthorLabel = Toolbox_C: 0x82B407,
ProgInfo_LicenceLabel = Toolbox_C: 0x82B408,
! ProgInfo_VersionLabel = Toolbox_C: 0x82B409;
CONST
ProgInfo_LicencePublicDomain = ProgInfo_Licence: 0,
--- 31,38 ----
ProgInfo_PurposeLabel = Toolbox_C: 0x82B406,
ProgInfo_AuthorLabel = Toolbox_C: 0x82B407,
ProgInfo_LicenceLabel = Toolbox_C: 0x82B408,
! ProgInfo_VersionLabel = Toolbox_C: 0x82B409,
! ProgInfo_WebSite = Toolbox_C: 0x80B40A;
CONST
ProgInfo_LicencePublicDomain = ProgInfo_Licence: 0,
***************
*** 41,47 ****
CONST
Action_ProgInfoAboutToBeShown = .Bits: 0x82b40,
! Action_ProgInfoDialogueCompleted = .Bits: 0x82b41;
TYPE
ProgInfo_Full = Toolbox_Full,
--- 44,51 ----
CONST
Action_ProgInfoAboutToBeShown = .Bits: 0x82b40,
! Action_ProgInfoDialogueCompleted = .Bits: 0x82b41,
! Action_ProgInfoLaunchWebPage = .Bits: 0x82b42;
TYPE
ProgInfo_Full = Toolbox_Full,
***************
*** 71,77 ****
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 0*
),
EXIT
( R0! = Toolbox_O: window
--- 75,81 ----
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 0 "Gets the ID of the underlying window object"
),
EXIT
( R0! = Toolbox_O: window
***************
*** 81,87 ****
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 1*,
R3 -> .String: version
) ),
ProgInfo_GetVersion =
--- 85,91 ----
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 1 "Sets the version string displayed in the ProgInfo window",
R3 -> .String: version
) ),
ProgInfo_GetVersion =
***************
*** 89,95 ****
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 2*,
R3 = .Ref .String: buffer,
R4 = .Int: size
),
--- 93,99 ----
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 2 "Gets the version string displayed in the ProgInfo window",
R3 = .Ref .String: buffer,
R4 = .Int: size
),
***************
*** 101,107 ****
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 3*,
R3 = ProgInfo_Licence: licence_type
) ),
ProgInfo_GetLicenceType =
--- 105,111 ----
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 3 "Sets the licence type displayed in the ProgInfo window",
R3 = ProgInfo_Licence: licence_type
) ),
ProgInfo_GetLicenceType =
***************
*** 109,115 ****
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 4*
),
EXIT
( R0! = ProgInfo_Licence: licence_type
--- 113,119 ----
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 4 "Gets the licence type displayed in the ProgInfo window"
),
EXIT
( R0! = ProgInfo_Licence: licence_type
***************
*** 119,125 ****
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 5*,
R3 -> .String: title
) ),
ProgInfo_GetTitle =
--- 123,129 ----
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 5 "Sets the title of the ProgInfo window",
R3 -> .String: title
) ),
ProgInfo_GetTitle =
***************
*** 127,136 ****
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 6*,
R3 = .Ref .String: buffer,
R4 = .Int: size
),
EXIT
( R4! = .Int: used
) )
--- 131,178 ----
ENTRY
( R0 = .Bits: flags,
R1 = Toolbox_O: prog_info,
! R2 # 6 "Gets the title of the ProgInfo window",
R3 = .Ref .String: buffer,
R4 = .Int: size
),
EXIT
( R4! = .Int: used
+ ) ),
+ ProgInfo_SetURI =
+ ( NUMBER 0x44EC6,
+ ENTRY
+ ( R0 = .Bits: flags,
+ R1 = Toolbox_O: prog_info,
+ R2 # 7 "Sets the URI to be launched after a click on the Web Page button",
+ R3 -> .String: uri
+ ) ),
+ ProgInfo_GetURI =
+ ( NUMBER 0x44EC6,
+ ENTRY
+ ( R0 = .Bits: flags,
+ R1 = Toolbox_O: prog_info,
+ R2 # 8 "Gets the URI to be launched after a click on the Web Page button",
+ R3 = .Ref .String: buffer,
+ R4 = .Int: size
+ ),
+ EXIT
+ ( R4! = .Int: used
+ ) ),
+ ProgInfo_GetWebEvent =
+ ( NUMBER 0x44EC6,
+ ENTRY
+ ( R0 = .Bits: flags,
+ R1 = Toolbox_O: prog_info,
+ R2 # 9 "Gets the event number returned for a click on the Web Page button"
+ ),
+ EXIT
+ ( R0! = .Bits: action
+ ) ),
+ ProgInfo_SetWebEvent =
+ ( NUMBER 0x44EC6,
+ ENTRY
+ ( R0 = .Bits: flags,
+ R1 = Toolbox_O: prog_info,
+ R2 # 10 "Sets the event number returned for a click on the Web Page button",
+ R3 = .Bits: action
) )
More information about the oslib-team
mailing list