:= operator mods. entry_ref and app_info changes.
This commit is contained in:
oscarl-2
@@ -1,5 +1,6 @@
|
||||
{ BePascal - A pascal wrapper around the BeOS API
|
||||
Copyright (C) 2002 Olivier Coursiere
|
||||
{ BePascal - A pascal wrapper around the BeOS API
|
||||
Copyright (C) 2002 - 2003 Olivier Coursiere
|
||||
Oscar Lesta
|
||||
|
||||
This library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public
|
||||
@@ -15,362 +16,289 @@
|
||||
License along with this library; if not, write to the Free
|
||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
}
|
||||
|
||||
unit appdefs;
|
||||
unit AppDefs2;
|
||||
|
||||
interface
|
||||
|
||||
const
|
||||
// System Messages Codes
|
||||
_B_ABOUT_REQUESTED : array[0..3] of Char = ('_', 'A', 'B', 'R');
|
||||
_B_WINDOW_ACTIVATED : array[0..3] of Char = ('_', 'A', 'C', 'T');
|
||||
_B_APP_ACTIVATED : array[0..3] of Char = ('_', 'A', 'C', 'T'); //* Same as B_WINDOW_ACTIVATED */
|
||||
_B_ARGV_RECEIVED : array[0..3] of Char = ('_', 'A', 'R', 'G');
|
||||
_B_QUIT_REQUESTED : array[0..3] of Char = ('_', 'Q', 'R', 'Q');
|
||||
_B_CLOSE_REQUESTED : array[0..3] of Char = ('_', 'Q', 'R', 'Q'); //* Obsolete; use B_QUIT_REQUESTED */
|
||||
_B_CANCEL : array[0..3] of Char = ('_', 'C', 'N', 'C');
|
||||
_B_KEY_DOWN : array[0..3] of Char = ('_', 'K', 'Y', 'D');
|
||||
_B_KEY_UP : array[0..3] of Char = ('_', 'K', 'Y', 'U');
|
||||
_B_UNMAPPED_KEY_DOWN : array[0..3] of Char = ('_', 'U', 'K', 'D');
|
||||
_B_UNMAPPED_KEY_UP : array[0..3] of Char = ('_', 'U', 'K', 'U');
|
||||
_B_MODIFIERS_CHANGED : array[0..3] of Char = ('_', 'M', 'C', 'H');
|
||||
_B_MINIMIZE : array[0..3] of Char = ('_', 'W', 'M', 'N');
|
||||
_B_MOUSE_DOWN : array[0..3] of Char = ('_', 'M', 'D', 'N');
|
||||
_B_MOUSE_MOVED : array[0..3] of Char = ('_', 'M', 'M', 'V');
|
||||
_B_MOUSE_ENTER_EXIT : array[0..3] of Char = ('_', 'M', 'E', 'X');
|
||||
_B_MOUSE_UP : array[0..3] of Char = ('_', 'M', 'U', 'P');
|
||||
_B_MOUSE_WHEEL_CHANGED : array[0..3] of Char = ('_', 'M', 'W', 'C');
|
||||
_B_OPEN_IN_WORKSPACE : array[0..3] of Char = ('_', 'O', 'W', 'S');
|
||||
_B_PRINTER_CHANGED : array[0..3] of Char = ('_', 'P', 'C', 'H');
|
||||
_B_PULSE : array[0..3] of Char = ('_', 'P', 'U', 'L');
|
||||
_B_READY_TO_RUN : array[0..3] of Char = ('_', 'R', 'T', 'R');
|
||||
_B_REFS_RECEIVED : array[0..3] of Char = ('_', 'R', 'R', 'C');
|
||||
_B_RELEASE_OVERLAY_LOCK : array[0..3] of Char = ('_', 'R', 'O', 'V');
|
||||
_B_ACQUIRE_OVERLAY_LOCK : array[0..3] of Char = ('_', 'A', 'O', 'V');
|
||||
_B_SCREEN_CHANGED : array[0..3] of Char = ('_', 'S', 'C', 'H');
|
||||
_B_VALUE_CHANGED : array[0..3] of Char = ('_', 'V', 'C', 'H');
|
||||
_B_VIEW_MOVED : array[0..3] of Char = ('_', 'V', 'M', 'V');
|
||||
_B_VIEW_RESIZED : array[0..3] of Char = ('_', 'V', 'R', 'S');
|
||||
_B_WINDOW_MOVED : array[0..3] of Char = ('_', 'W', 'M', 'V');
|
||||
_B_WINDOW_RESIZED : array[0..3] of Char = ('_', 'W', 'R', 'S');
|
||||
_B_WORKSPACES_CHANGED : array[0..3] of Char = ('_', 'W', 'C', 'G');
|
||||
_B_WORKSPACE_ACTIVATED : array[0..3] of Char = ('_', 'W', 'A', 'C');
|
||||
_B_ZOOM : array[0..3] of Char = ('_', 'W', 'Z', 'M');
|
||||
__APP_MENU_ : array[0..3] of Char = ('_', 'A', 'M', 'N');
|
||||
__BROWSER_MENUS_ : array[0..3] of Char = ('_', 'B', 'R', 'M');
|
||||
__MENU_EVENT_ : array[0..3] of Char = ('_', 'M', 'E', 'V');
|
||||
__PING_ : array[0..3] of Char = ('_', 'P', 'B', 'L');
|
||||
__QUIT_ : array[0..3] of Char = ('_', 'Q', 'I', 'T');
|
||||
__VOLUME_MOUNTED_ : array[0..3] of Char = ('_', 'N', 'V', 'L');
|
||||
__VOLUME_UNMOUNTED_ : array[0..3] of Char = ('_', 'V', 'R', 'M');
|
||||
__MESSAGE_DROPPED_ : array[0..3] of Char = ('_', 'M', 'D', 'P');
|
||||
__DISPOSE_DRAG_ : array[0..3] of Char = ('_', 'D', 'P', 'D');
|
||||
__MENUS_DONE_ : array[0..3] of Char = ('_', 'M', 'N', 'D');
|
||||
__SHOW_DRAG_HANDLES_ : array[0..3] of Char = ('_', 'S', 'D', 'H');
|
||||
__EVENTS_PENDING_ : array[0..3] of Char = ('_', 'E', 'V', 'P');
|
||||
__UPDATE_ : array[0..3] of Char = ('_', 'U', 'P', 'D');
|
||||
__UPDATE_IF_NEEDED_ : array[0..3] of Char = ('_', 'U', 'P', 'N');
|
||||
__PRINTER_INFO_ : array[0..3] of Char = ('_', 'P', 'I', 'N');
|
||||
__SETUP_PRINTER_ : array[0..3] of Char = ('_', 'S', 'U', 'P');
|
||||
__SELECT_PRINTER_ : array[0..3] of Char = ('_', 'P', 'S', 'L');
|
||||
// System Messages Codes
|
||||
_B_ABOUT_REQUESTED = '_ABR';
|
||||
_B_WINDOW_ACTIVATED = '_ACT';
|
||||
_B_APP_ACTIVATED = '_ACT'; // Same as B_WINDOW_ACTIVATED
|
||||
_B_ARGV_RECEIVED = '_ARG';
|
||||
_B_QUIT_REQUESTED = '_QRQ';
|
||||
_B_CLOSE_REQUESTED = '_QRQ'; // Obsolete; use B_QUIT_REQUESTED
|
||||
_B_CANCEL = '_CNC';
|
||||
_B_KEY_DOWN = '_KYD';
|
||||
_B_KEY_UP = '_KYU';
|
||||
_B_UNMAPPED_KEY_DOWN = '_UKD';
|
||||
_B_UNMAPPED_KEY_UP = '_UKU';
|
||||
_B_MODIFIERS_CHANGED = '_MCH';
|
||||
_B_MINIMIZE = '_WMN';
|
||||
_B_MOUSE_DOWN = '_MDN';
|
||||
_B_MOUSE_MOVED = '_MMV';
|
||||
_B_MOUSE_ENTER_EXIT = '_MEX';
|
||||
_B_MOUSE_UP = '_MUP';
|
||||
_B_MOUSE_WHEEL_CHANGED = '_MWC';
|
||||
_B_OPEN_IN_WORKSPACE = '_OWS';
|
||||
_B_PRINTER_CHANGED = '_PCH';
|
||||
_B_PULSE = '_PUL';
|
||||
_B_READY_TO_RUN = '_RTR';
|
||||
_B_REFS_RECEIVED = '_RRC';
|
||||
_B_RELEASE_OVERLAY_LOCK = '_ROV';
|
||||
_B_ACQUIRE_OVERLAY_LOCK = '_AOV';
|
||||
_B_SCREEN_CHANGED = '_SCH';
|
||||
_B_VALUE_CHANGED = '_VCH';
|
||||
_B_VIEW_MOVED = '_VMV';
|
||||
_B_VIEW_RESIZED = '_VRS';
|
||||
_B_WINDOW_MOVED = '_WMV';
|
||||
_B_WINDOW_RESIZED = '_WRS';
|
||||
_B_WORKSPACES_CHANGED = '_WCG';
|
||||
_B_WORKSPACE_ACTIVATED = '_WAC';
|
||||
_B_ZOOM = '_WZM';
|
||||
__APP_MENU_ = '_AMN';
|
||||
__BROWSER_MENUS_ = '_BRM';
|
||||
__MENU_EVENT_ = '_MEV';
|
||||
__PING_ = '_PBL';
|
||||
__QUIT_ = '_QIT';
|
||||
__VOLUME_MOUNTED_ = '_NVL';
|
||||
__VOLUME_UNMOUNTED_ = '_VRM';
|
||||
__MESSAGE_DROPPED_ = '_MDP';
|
||||
__DISPOSE_DRAG_ = '_DPD';
|
||||
__MENUS_DONE_ = '_MND';
|
||||
__SHOW_DRAG_HANDLES_ = '_SDH';
|
||||
__EVENTS_PENDING_ = '_EVP';
|
||||
__UPDATE_ = '_UPD';
|
||||
__UPDATE_IF_NEEDED_ = '_UPN';
|
||||
__PRINTER_INFO_ = '_PIN';
|
||||
__SETUP_PRINTER_ = '_SUP';
|
||||
__SELECT_PRINTER_ = '_PSL';
|
||||
|
||||
// Other Commands
|
||||
_B_SET_PROPERTY : array[0..3] of Char = ('P', 'S', 'E', 'T');
|
||||
_B_GET_PROPERTY : array[0..3] of Char = ('P', 'G', 'E', 'T');
|
||||
_B_CREATE_PROPERTY : array[0..3] of Char = ('P', 'C', 'R', 'T');
|
||||
_B_DELETE_PROPERTY : array[0..3] of Char = ('P', 'D', 'E', 'L');
|
||||
_B_COUNT_PROPERTIES : array[0..3] of Char = ('P', 'C', 'N', 'T');
|
||||
_B_EXECUTE_PROPERTY : array[0..3] of Char = ('P', 'E', 'X', 'E');
|
||||
_B_GET_SUPPORTED_SUITES : array[0..3] of Char = ('S', 'U', 'I', 'T');
|
||||
_B_UNDO : array[0..3] of Char = ('U', 'N', 'D', 'O');
|
||||
_B_CUT : array[0..3] of Char = ('C', 'C', 'U', 'T');
|
||||
_B_COPY : array[0..3] of Char = ('C', 'O', 'P', 'Y');
|
||||
_B_PASTE : array[0..3] of Char = ('P', 'S', 'T', 'E');
|
||||
_B_SELECT_ALL : array[0..3] of Char = ('S', 'A', 'L', 'L');
|
||||
_B_SAVE_REQUESTED : array[0..3] of Char = ('S', 'A', 'V', 'E');
|
||||
_B_MESSAGE_NOT_UNDERSTOOD : array[0..3] of Char = ('M', 'N', 'O', 'T');
|
||||
_B_NO_REPLY : array[0..3] of Char = ('N', 'O', 'N', 'E');
|
||||
_B_REPLY : array[0..3] of Char = ('R', 'P', 'L', 'Y');
|
||||
_B_SIMPLE_DATA : array[0..3] of Char = ('D', 'A', 'T', 'A');
|
||||
_B_MIME_DATA : array[0..3] of Char = ('M', 'I', 'M', 'E');
|
||||
_B_ARCHIVED_OBJECT : array[0..3] of Char = ('A', 'R', 'C', 'V');
|
||||
_B_UPDATE_STATUS_BAR : array[0..3] of Char = ('S', 'B', 'U', 'P');
|
||||
_B_RESET_STATUS_BAR : array[0..3] of Char = ('S', 'B', 'R', 'S');
|
||||
_B_NODE_MONITOR : array[0..3] of Char = ('N', 'D', 'M', 'N');
|
||||
_B_QUERY_UPDATE : array[0..3] of Char = ('Q', 'U', 'P', 'D');
|
||||
_B_ENDORSABLE : array[0..3] of Char = ('E', 'N', 'D', 'O');
|
||||
_B_COPY_TARGET : array[0..3] of Char = ('D', 'D', 'C', 'P');
|
||||
_B_MOVE_TARGET : array[0..3] of Char = ('D', 'D', 'M', 'V');
|
||||
_B_TRASH_TARGET : array[0..3] of Char = ('D', 'D', 'R', 'M');
|
||||
_B_LINK_TARGET : array[0..3] of Char = ('D', 'D', 'L', 'N');
|
||||
_B_INPUT_DEVICES_CHANGED : array[0..3] of Char = ('I', 'D', 'C', 'H');
|
||||
_B_INPUT_METHOD_EVENT : array[0..3] of Char = ('I', 'M', 'E', 'V');
|
||||
_B_WINDOW_MOVE_TO : array[0..3] of Char = ('W', 'D', 'M', 'T');
|
||||
_B_WINDOW_MOVE_BY : array[0..3] of Char = ('W', 'D', 'M', 'B');
|
||||
_B_SILENT_RELAUNCH : array[0..3] of Char = ('A', 'R', 'E', 'L');
|
||||
_B_OBSERVER_NOTICE_CHANGE : array[0..3] of Char = ('N', 'T', 'C', 'H');
|
||||
_B_CONTROL_INVOKED : array[0..3] of Char = ('C', 'I', 'V', 'K');
|
||||
_B_CONTROL_MODIFIED : array[0..3] of Char = ('C', 'M', 'O', 'D');
|
||||
// Other Commands
|
||||
_B_SET_PROPERTY = 'PSET';
|
||||
_B_GET_PROPERTY = 'PGET';
|
||||
_B_CREATE_PROPERTY = 'PCRT';
|
||||
_B_DELETE_PROPERTY = 'PDEL';
|
||||
_B_COUNT_PROPERTIES = 'PCNT';
|
||||
_B_EXECUTE_PROPERTY = 'PEXE';
|
||||
_B_GET_SUPPORTED_SUITES = 'SUIT';
|
||||
_B_UNDO = 'UNDO';
|
||||
_B_CUT = 'CCUT';
|
||||
_B_COPY = 'COPY';
|
||||
_B_PASTE = 'PSTE';
|
||||
_B_SELECT_ALL = 'SALL';
|
||||
_B_SAVE_REQUESTED = 'SAVE';
|
||||
_B_MESSAGE_NOT_UNDERSTOOD = 'MNOT';
|
||||
_B_NO_REPLY = 'NONE';
|
||||
_B_REPLY = 'RPLY';
|
||||
_B_SIMPLE_DATA = 'DATA';
|
||||
_B_MIME_DATA = 'MIME';
|
||||
_B_ARCHIVED_OBJECT = 'ARCV';
|
||||
_B_UPDATE_STATUS_BAR = 'SBUP';
|
||||
_B_RESET_STATUS_BAR = 'SBRS';
|
||||
_B_NODE_MONITOR = 'NDMN';
|
||||
_B_QUERY_UPDATE = 'QUPD';
|
||||
_B_ENDORSABLE = 'ENDO';
|
||||
_B_COPY_TARGET = 'DDCP';
|
||||
_B_MOVE_TARGET = 'DDMV';
|
||||
_B_TRASH_TARGET = 'DDRM';
|
||||
_B_LINK_TARGET = 'DDLN';
|
||||
_B_INPUT_DEVICES_CHANGED = 'IDCH';
|
||||
_B_INPUT_METHOD_EVENT = 'IMEV';
|
||||
_B_WINDOW_MOVE_TO = 'WDMT';
|
||||
_B_WINDOW_MOVE_BY = 'WDMB';
|
||||
_B_SILENT_RELAUNCH = 'AREL';
|
||||
_B_OBSERVER_NOTICE_CHANGE = 'NTCH';
|
||||
_B_CONTROL_INVOKED = 'CIVK';
|
||||
_B_CONTROL_MODIFIED = 'CMOD';
|
||||
|
||||
//* Media Kit reserves all reserved codes starting in 'TRI' */
|
||||
// Media Kit reserves all reserved codes starting in 'TRI'
|
||||
|
||||
var
|
||||
B_ABOUT_REQUESTED : Cardinal;
|
||||
B_WINDOW_ACTIVATED : Cardinal;
|
||||
B_APP_ACTIVATED : Cardinal;
|
||||
B_ARGV_RECEIVED : Cardinal;
|
||||
B_QUIT_REQUESTED : Cardinal;
|
||||
B_CLOSE_REQUESTED : Cardinal;
|
||||
B_CANCEL : Cardinal;
|
||||
B_KEY_DOWN : Cardinal;
|
||||
B_KEY_UP : Cardinal;
|
||||
B_UNMAPPED_KEY_DOWN : Cardinal;
|
||||
B_UNMAPPED_KEY_UP : Cardinal;
|
||||
B_MODIFIERS_CHANGED : Cardinal;
|
||||
B_MINIMIZE : Cardinal;
|
||||
B_MOUSE_DOWN : Cardinal;
|
||||
B_MOUSE_MOVED : Cardinal;
|
||||
B_MOUSE_ENTER_EXIT : Cardinal;
|
||||
B_MOUSE_UP : Cardinal;
|
||||
B_MOUSE_WHEEL_CHANGED : Cardinal;
|
||||
B_OPEN_IN_WORKSPACE : Cardinal;
|
||||
B_PRINTER_CHANGED : Cardinal;
|
||||
B_PULSE : Cardinal;
|
||||
B_READY_TO_RUN : Cardinal;
|
||||
B_REFS_RECEIVED : Cardinal;
|
||||
B_RELEASE_OVERLAY_LOCK : Cardinal;
|
||||
B_ACQUIRE_OVERLAY_LOCK : Cardinal;
|
||||
B_SCREEN_CHANGED : Cardinal;
|
||||
B_VALUE_CHANGED : Cardinal;
|
||||
B_VIEW_MOVED : Cardinal;
|
||||
B_VIEW_RESIZED : Cardinal;
|
||||
B_WINDOW_MOVED : Cardinal;
|
||||
B_WINDOW_RESIZED : Cardinal;
|
||||
B_WORKSPACES_CHANGED : Cardinal;
|
||||
B_WORKSPACE_ACTIVATED : Cardinal;
|
||||
B_ZOOM : Cardinal;
|
||||
_APP_MENU_ : Cardinal;
|
||||
_BROWSER_MENUS_ : Cardinal;
|
||||
_MENU_EVENT_ : Cardinal;
|
||||
_PING_ : Cardinal;
|
||||
_QUIT_ : Cardinal;
|
||||
_VOLUME_MOUNTED_ : Cardinal;
|
||||
_VOLUME_UNMOUNTED_ : Cardinal;
|
||||
_MESSAGE_DROPPED_ : Cardinal;
|
||||
_DISPOSE_DRAG_ : Cardinal;
|
||||
_MENUS_DONE_ : Cardinal;
|
||||
_SHOW_DRAG_HANDLES_ : Cardinal;
|
||||
_EVENTS_PENDING_ : Cardinal;
|
||||
_UPDATE_ : Cardinal;
|
||||
_UPDATE_IF_NEEDED_ : Cardinal;
|
||||
_PRINTER_INFO_ : Cardinal;
|
||||
_SETUP_PRINTER_ : Cardinal;
|
||||
_SELECT_PRINTER_ : Cardinal;
|
||||
B_ABOUT_REQUESTED,
|
||||
B_WINDOW_ACTIVATED,
|
||||
B_APP_ACTIVATED,
|
||||
B_ARGV_RECEIVED,
|
||||
B_QUIT_REQUESTED,
|
||||
B_CLOSE_REQUESTED,
|
||||
B_CANCEL,
|
||||
B_KEY_DOWN,
|
||||
B_KEY_UP,
|
||||
B_UNMAPPED_KEY_DOWN,
|
||||
B_UNMAPPED_KEY_UP,
|
||||
B_MODIFIERS_CHANGED,
|
||||
B_MINIMIZE,
|
||||
B_MOUSE_DOWN,
|
||||
B_MOUSE_MOVED,
|
||||
B_MOUSE_ENTER_EXIT,
|
||||
B_MOUSE_UP,
|
||||
B_MOUSE_WHEEL_CHANGED,
|
||||
B_OPEN_IN_WORKSPACE,
|
||||
B_PRINTER_CHANGED,
|
||||
B_PULSE,
|
||||
B_READY_TO_RUN,
|
||||
B_REFS_RECEIVED,
|
||||
B_RELEASE_OVERLAY_LOCK,
|
||||
B_ACQUIRE_OVERLAY_LOCK,
|
||||
B_SCREEN_CHANGED,
|
||||
B_VALUE_CHANGED,
|
||||
B_VIEW_MOVED,
|
||||
B_VIEW_RESIZED,
|
||||
B_WINDOW_MOVED,
|
||||
B_WINDOW_RESIZED,
|
||||
B_WORKSPACES_CHANGED,
|
||||
B_WORKSPACE_ACTIVATED,
|
||||
B_ZOOM,
|
||||
_APP_MENU_,
|
||||
_BROWSER_MENUS_,
|
||||
_MENU_EVENT_,
|
||||
_PING_,
|
||||
_QUIT_,
|
||||
_VOLUME_MOUNTED_,
|
||||
_VOLUME_UNMOUNTED_,
|
||||
_MESSAGE_DROPPED_,
|
||||
_DISPOSE_DRAG_,
|
||||
_MENUS_DONE_,
|
||||
_SHOW_DRAG_HANDLES_,
|
||||
_EVENTS_PENDING_,
|
||||
_UPDATE_,
|
||||
_UPDATE_IF_NEEDED_,
|
||||
_PRINTER_INFO_,
|
||||
_SETUP_PRINTER_,
|
||||
_SELECT_PRINTER_,
|
||||
|
||||
// Other Commands
|
||||
B_SET_PROPERTY : Cardinal;
|
||||
B_GET_PROPERTY : Cardinal;
|
||||
B_CREATE_PROPERTY : Cardinal;
|
||||
B_DELETE_PROPERTY : Cardinal;
|
||||
B_COUNT_PROPERTIES : Cardinal;
|
||||
B_EXECUTE_PROPERTY : Cardinal;
|
||||
B_GET_SUPPORTED_SUITES : Cardinal;
|
||||
B_UNDO : Cardinal;
|
||||
B_CUT : Cardinal;
|
||||
B_COPY : Cardinal;
|
||||
B_PASTE : Cardinal;
|
||||
B_SELECT_ALL : Cardinal;
|
||||
B_SAVE_REQUESTED : Cardinal;
|
||||
B_MESSAGE_NOT_UNDERSTOOD : Cardinal;
|
||||
B_NO_REPLY : Cardinal;
|
||||
B_REPLY : Cardinal;
|
||||
B_SIMPLE_DATA : Cardinal;
|
||||
B_MIME_DATA : Cardinal;
|
||||
B_ARCHIVED_OBJECT : Cardinal;
|
||||
B_UPDATE_STATUS_BAR : Cardinal;
|
||||
B_RESET_STATUS_BAR : Cardinal;
|
||||
B_NODE_MONITOR : Cardinal;
|
||||
B_QUERY_UPDATE : Cardinal;
|
||||
B_ENDORSABLE : Cardinal;
|
||||
B_COPY_TARGET : Cardinal;
|
||||
B_MOVE_TARGET : Cardinal;
|
||||
B_TRASH_TARGET : Cardinal;
|
||||
B_LINK_TARGET : Cardinal;
|
||||
B_INPUT_DEVICES_CHANGED : Cardinal;
|
||||
B_INPUT_METHOD_EVENT : Cardinal;
|
||||
B_WINDOW_MOVE_TO : Cardinal;
|
||||
B_WINDOW_MOVE_BY : Cardinal;
|
||||
B_SILENT_RELAUNCH : Cardinal;
|
||||
B_OBSERVER_NOTICE_CHANGE : Cardinal;
|
||||
B_CONTROL_INVOKED : Cardinal;
|
||||
B_CONTROL_MODIFIED : Cardinal;
|
||||
|
||||
function trans( S : Array of char): cardinal;
|
||||
// Other Commands
|
||||
B_SET_PROPERTY,
|
||||
B_GET_PROPERTY,
|
||||
B_CREATE_PROPERTY,
|
||||
B_DELETE_PROPERTY,
|
||||
B_COUNT_PROPERTIES,
|
||||
B_EXECUTE_PROPERTY,
|
||||
B_GET_SUPPORTED_SUITES,
|
||||
B_UNDO,
|
||||
B_CUT,
|
||||
B_COPY,
|
||||
B_PASTE,
|
||||
B_SELECT_ALL,
|
||||
B_SAVE_REQUESTED,
|
||||
B_MESSAGE_NOT_UNDERSTOOD,
|
||||
B_NO_REPLY,
|
||||
B_REPLY,
|
||||
B_SIMPLE_DATA,
|
||||
B_MIME_DATA,
|
||||
B_ARCHIVED_OBJECT,
|
||||
B_UPDATE_STATUS_BAR,
|
||||
B_RESET_STATUS_BAR,
|
||||
B_NODE_MONITOR,
|
||||
B_QUERY_UPDATE,
|
||||
B_ENDORSABLE,
|
||||
B_COPY_TARGET,
|
||||
B_MOVE_TARGET,
|
||||
B_TRASH_TARGET,
|
||||
B_LINK_TARGET,
|
||||
B_INPUT_DEVICES_CHANGED,
|
||||
B_INPUT_METHOD_EVENT,
|
||||
B_WINDOW_MOVE_TO,
|
||||
B_WINDOW_MOVE_BY,
|
||||
B_SILENT_RELAUNCH,
|
||||
B_OBSERVER_NOTICE_CHANGE,
|
||||
B_CONTROL_INVOKED,
|
||||
B_CONTROL_MODIFIED : Longword;
|
||||
|
||||
implementation
|
||||
|
||||
FUNCTION Power(X,Y:Word):LongInt;
|
||||
VAR Temp,Teller : LongInt;
|
||||
BEGIN
|
||||
TEMP:=1;
|
||||
FOR Teller:=1 TO Y DO TEMP:=TEMP*X;
|
||||
Power:=Temp;
|
||||
END; { Power }
|
||||
|
||||
|
||||
FUNCTION Hex2Dec(Hex:STRING):LongInt;
|
||||
VAR T1,T2,Dec : LongInt;
|
||||
Error : Boolean;
|
||||
|
||||
BEGIN
|
||||
Error:=False;
|
||||
T1:=0;T2:=0;DEC:=0;
|
||||
FOR T1:=1 TO LENGTH(Hex) DO
|
||||
BEGIN
|
||||
T2:=Length(Hex)-T1;
|
||||
CASE Hex[T1] OF
|
||||
'0' : DEC:=DEC+0;
|
||||
'1' : DEC:=DEC+Power(16,T2);
|
||||
'2' : DEC:=DEC+2*Power(16,T2);
|
||||
'3' : DEC:=DEC+3*Power(16,T2);
|
||||
'4' : DEC:=DEC+4*Power(16,T2);
|
||||
'5' : DEC:=DEC+5*Power(16,T2);
|
||||
'6' : DEC:=DEC+6*Power(16,T2);
|
||||
'7' : DEC:=DEC+7*Power(16,T2);
|
||||
'8' : DEC:=DEC+8*Power(16,T2);
|
||||
'9' : DEC:=DEC+9*Power(16,T2);
|
||||
'A','a' : DEC:=DEC+10*Power(16,T2);
|
||||
'B','b' : DEC:=DEC+11*Power(16,T2);
|
||||
'C','c' : DEC:=DEC+12*Power(16,T2);
|
||||
'D','d' : DEC:=DEC+13*Power(16,T2);
|
||||
'E','e' : DEC:=DEC+14*Power(16,T2);
|
||||
'F','f' : DEC:=DEC+15*Power(16,T2);
|
||||
ELSE Error:=True;
|
||||
END;
|
||||
END;
|
||||
Hex2Dec:=Dec;
|
||||
IF Error THEN Hex2Dec:=0;
|
||||
END;
|
||||
|
||||
FUNCTION Dec2Hex(DEC:LONGINT):STRING;
|
||||
|
||||
VAR H1:INTEGER;
|
||||
Hex,HexDigit:STRING;
|
||||
|
||||
BEGIN
|
||||
HexDigit:='0123456789ABCDEF';
|
||||
HEX:='';
|
||||
REPEAT
|
||||
H1:=DEC MOD 16;
|
||||
DEC:=DEC DIV 16;
|
||||
Hex:=CONCAT(Hexdigit[H1+1],Hex);
|
||||
UNTIL DEC<1;
|
||||
Dec2Hex:=Hex;
|
||||
END; { Dec2Hex }
|
||||
|
||||
function trans( S : Array of char): cardinal;
|
||||
var nd : array[0..3] of integer;
|
||||
Nh :array[0..3] of string;
|
||||
Hexa : string;
|
||||
i : Integer;
|
||||
begin
|
||||
for i:=0 to 3 do nd[i]:=ord(S[i]);
|
||||
for i:=0 to 3 do Nh[i]:=dec2hex(nd[i]);
|
||||
hexa:=nh[0]+nh[1]+nh[2]+nh[3];
|
||||
result:=hex2dec(hexa);
|
||||
end;
|
||||
|
||||
uses
|
||||
BeObj;
|
||||
|
||||
initialization
|
||||
// System Messages Codes
|
||||
B_ABOUT_REQUESTED := trans(_B_ABOUT_REQUESTED);
|
||||
B_WINDOW_ACTIVATED := trans(_B_WINDOW_ACTIVATED);
|
||||
B_APP_ACTIVATED := trans(_B_APP_ACTIVATED);
|
||||
B_ARGV_RECEIVED := trans(_B_ARGV_RECEIVED);
|
||||
B_QUIT_REQUESTED := trans(_B_QUIT_REQUESTED);
|
||||
B_CLOSE_REQUESTED := trans(_B_CLOSE_REQUESTED);
|
||||
B_CANCEL := trans(_B_CANCEL);
|
||||
B_KEY_DOWN := trans(_B_KEY_DOWN);
|
||||
B_KEY_UP := trans(_B_KEY_UP);
|
||||
B_UNMAPPED_KEY_DOWN := trans(_B_UNMAPPED_KEY_DOWN);
|
||||
B_UNMAPPED_KEY_UP := trans(_B_UNMAPPED_KEY_UP);
|
||||
B_MODIFIERS_CHANGED := trans(_B_MODIFIERS_CHANGED);
|
||||
B_MINIMIZE := trans(_B_MINIMIZE);
|
||||
B_MOUSE_DOWN := trans(_B_MOUSE_DOWN);
|
||||
B_MOUSE_MOVED := trans(_B_MOUSE_MOVED);
|
||||
B_MOUSE_ENTER_EXIT := trans(_B_MOUSE_ENTER_EXIT);
|
||||
B_MOUSE_UP := trans(_B_MOUSE_UP);
|
||||
B_MOUSE_WHEEL_CHANGED := trans(_B_MOUSE_WHEEL_CHANGED);
|
||||
B_OPEN_IN_WORKSPACE := trans(_B_OPEN_IN_WORKSPACE);
|
||||
B_PRINTER_CHANGED := trans(_B_PRINTER_CHANGED);
|
||||
B_PULSE := trans(_B_PULSE);
|
||||
B_READY_TO_RUN := trans(_B_READY_TO_RUN);
|
||||
B_REFS_RECEIVED := trans(_B_REFS_RECEIVED);
|
||||
B_RELEASE_OVERLAY_LOCK := trans(_B_RELEASE_OVERLAY_LOCK);
|
||||
B_ACQUIRE_OVERLAY_LOCK := trans(_B_ACQUIRE_OVERLAY_LOCK);
|
||||
B_SCREEN_CHANGED := trans(_B_SCREEN_CHANGED);
|
||||
B_VALUE_CHANGED := trans(_B_VALUE_CHANGED);
|
||||
B_VIEW_MOVED := trans(_B_VIEW_MOVED);
|
||||
B_VIEW_RESIZED := trans(_B_VIEW_RESIZED);
|
||||
B_WINDOW_MOVED := trans(_B_WINDOW_MOVED);
|
||||
B_WINDOW_RESIZED := trans(_B_WINDOW_RESIZED);
|
||||
B_WORKSPACES_CHANGED := trans(_B_WORKSPACES_CHANGED);
|
||||
B_WORKSPACE_ACTIVATED := trans(_B_WORKSPACE_ACTIVATED);
|
||||
B_ZOOM := trans(_B_ZOOM);
|
||||
_APP_MENU_ := trans(__APP_MENU_);
|
||||
_BROWSER_MENUS_ := trans(__BROWSER_MENUS_);
|
||||
_MENU_EVENT_ := trans(__MENU_EVENT_);
|
||||
_PING_ := trans(__PING_);
|
||||
_QUIT_ := trans(__QUIT_);
|
||||
_VOLUME_MOUNTED_ := trans(__VOLUME_MOUNTED_);
|
||||
_VOLUME_UNMOUNTED_ := trans(__VOLUME_UNMOUNTED_);
|
||||
_MESSAGE_DROPPED_ := trans(__MESSAGE_DROPPED_);
|
||||
_DISPOSE_DRAG_ := trans(__DISPOSE_DRAG_);
|
||||
_MENUS_DONE_ := trans(__MENUS_DONE_);
|
||||
_SHOW_DRAG_HANDLES_ := trans(__SHOW_DRAG_HANDLES_);
|
||||
_EVENTS_PENDING_ := trans(__EVENTS_PENDING_);
|
||||
_UPDATE_ := trans(__UPDATE_);
|
||||
_UPDATE_IF_NEEDED_ := trans(__UPDATE_IF_NEEDED_);
|
||||
_PRINTER_INFO_ := trans(__PRINTER_INFO_);
|
||||
_SETUP_PRINTER_ := trans(__SETUP_PRINTER_);
|
||||
_SELECT_PRINTER_ := trans(__SELECT_PRINTER_);
|
||||
// System Messages Codes
|
||||
B_ABOUT_REQUESTED := _B_ABOUT_REQUESTED;
|
||||
B_WINDOW_ACTIVATED := _B_WINDOW_ACTIVATED;
|
||||
B_APP_ACTIVATED := _B_APP_ACTIVATED;
|
||||
B_ARGV_RECEIVED := _B_ARGV_RECEIVED;
|
||||
B_QUIT_REQUESTED := _B_QUIT_REQUESTED;
|
||||
B_CLOSE_REQUESTED := _B_CLOSE_REQUESTED;
|
||||
B_CANCEL := _B_CANCEL;
|
||||
B_KEY_DOWN := _B_KEY_DOWN;
|
||||
B_KEY_UP := _B_KEY_UP;
|
||||
B_UNMAPPED_KEY_DOWN := _B_UNMAPPED_KEY_DOWN;
|
||||
B_UNMAPPED_KEY_UP := _B_UNMAPPED_KEY_UP;
|
||||
B_MODIFIERS_CHANGED := _B_MODIFIERS_CHANGED;
|
||||
B_MINIMIZE := _B_MINIMIZE;
|
||||
B_MOUSE_DOWN := _B_MOUSE_DOWN;
|
||||
B_MOUSE_MOVED := _B_MOUSE_MOVED;
|
||||
B_MOUSE_ENTER_EXIT := _B_MOUSE_ENTER_EXIT;
|
||||
B_MOUSE_UP := _B_MOUSE_UP;
|
||||
B_MOUSE_WHEEL_CHANGED := _B_MOUSE_WHEEL_CHANGED;
|
||||
B_OPEN_IN_WORKSPACE := _B_OPEN_IN_WORKSPACE;
|
||||
B_PRINTER_CHANGED := _B_PRINTER_CHANGED;
|
||||
B_PULSE := _B_PULSE;
|
||||
B_READY_TO_RUN := _B_READY_TO_RUN;
|
||||
B_REFS_RECEIVED := _B_REFS_RECEIVED;
|
||||
B_RELEASE_OVERLAY_LOCK := _B_RELEASE_OVERLAY_LOCK;
|
||||
B_ACQUIRE_OVERLAY_LOCK := _B_ACQUIRE_OVERLAY_LOCK;
|
||||
B_SCREEN_CHANGED := _B_SCREEN_CHANGED;
|
||||
B_VALUE_CHANGED := _B_VALUE_CHANGED;
|
||||
B_VIEW_MOVED := _B_VIEW_MOVED;
|
||||
B_VIEW_RESIZED := _B_VIEW_RESIZED;
|
||||
B_WINDOW_MOVED := _B_WINDOW_MOVED;
|
||||
B_WINDOW_RESIZED := _B_WINDOW_RESIZED;
|
||||
B_WORKSPACES_CHANGED := _B_WORKSPACES_CHANGED;
|
||||
B_WORKSPACE_ACTIVATED := _B_WORKSPACE_ACTIVATED;
|
||||
B_ZOOM := _B_ZOOM;
|
||||
_APP_MENU_ := __APP_MENU_;
|
||||
_BROWSER_MENUS_ := __BROWSER_MENUS_;
|
||||
_MENU_EVENT_ := __MENU_EVENT_;
|
||||
_PING_ := __PING_;
|
||||
_QUIT_ := __QUIT_;
|
||||
_VOLUME_MOUNTED_ := __VOLUME_MOUNTED_;
|
||||
_VOLUME_UNMOUNTED_ := __VOLUME_UNMOUNTED_;
|
||||
_MESSAGE_DROPPED_ := __MESSAGE_DROPPED_;
|
||||
_DISPOSE_DRAG_ := __DISPOSE_DRAG_;
|
||||
_MENUS_DONE_ := __MENUS_DONE_;
|
||||
_SHOW_DRAG_HANDLES_ := __SHOW_DRAG_HANDLES_;
|
||||
_EVENTS_PENDING_ := __EVENTS_PENDING_;
|
||||
_UPDATE_ := __UPDATE_;
|
||||
_UPDATE_IF_NEEDED_ := __UPDATE_IF_NEEDED_;
|
||||
_PRINTER_INFO_ := __PRINTER_INFO_;
|
||||
_SETUP_PRINTER_ := __SETUP_PRINTER_;
|
||||
_SELECT_PRINTER_ := __SELECT_PRINTER_;
|
||||
|
||||
// Other Commands
|
||||
B_SET_PROPERTY := trans(_B_SET_PROPERTY);
|
||||
B_GET_PROPERTY := trans(_B_GET_PROPERTY);
|
||||
B_CREATE_PROPERTY := trans(_B_CREATE_PROPERTY);
|
||||
B_DELETE_PROPERTY := trans(_B_DELETE_PROPERTY);
|
||||
B_COUNT_PROPERTIES := trans(_B_COUNT_PROPERTIES);
|
||||
B_EXECUTE_PROPERTY := trans(_B_EXECUTE_PROPERTY);
|
||||
B_GET_SUPPORTED_SUITES := trans(_B_GET_SUPPORTED_SUITES);
|
||||
B_UNDO := trans(_B_UNDO);
|
||||
B_CUT := trans(_B_CUT);
|
||||
B_COPY := trans(_B_COPY);
|
||||
B_PASTE := trans(_B_PASTE);
|
||||
B_SELECT_ALL := trans(_B_SELECT_ALL);
|
||||
B_SAVE_REQUESTED := trans(_B_SAVE_REQUESTED);
|
||||
B_MESSAGE_NOT_UNDERSTOOD := trans(_B_MESSAGE_NOT_UNDERSTOOD);
|
||||
B_NO_REPLY := trans(_B_NO_REPLY);
|
||||
B_REPLY := trans(_B_REPLY);
|
||||
B_SIMPLE_DATA := trans(_B_SIMPLE_DATA);
|
||||
B_MIME_DATA := trans(_B_MIME_DATA);
|
||||
B_ARCHIVED_OBJECT := trans(_B_ARCHIVED_OBJECT);
|
||||
B_UPDATE_STATUS_BAR := trans(_B_UPDATE_STATUS_BAR);
|
||||
B_RESET_STATUS_BAR := trans(_B_RESET_STATUS_BAR);
|
||||
B_NODE_MONITOR := trans(_B_NODE_MONITOR);
|
||||
B_QUERY_UPDATE := trans(_B_QUERY_UPDATE);
|
||||
B_ENDORSABLE := trans(_B_ENDORSABLE);
|
||||
B_COPY_TARGET := trans(_B_COPY_TARGET);
|
||||
B_MOVE_TARGET := trans(_B_MOVE_TARGET);
|
||||
B_TRASH_TARGET := trans(_B_TRASH_TARGET);
|
||||
B_LINK_TARGET := trans(_B_LINK_TARGET);
|
||||
B_INPUT_DEVICES_CHANGED := trans(_B_INPUT_DEVICES_CHANGED);
|
||||
B_INPUT_METHOD_EVENT := trans(_B_INPUT_METHOD_EVENT);
|
||||
B_WINDOW_MOVE_TO := trans(_B_WINDOW_MOVE_TO);
|
||||
B_WINDOW_MOVE_BY := trans(_B_WINDOW_MOVE_BY);
|
||||
B_SILENT_RELAUNCH := trans(_B_SILENT_RELAUNCH);
|
||||
B_OBSERVER_NOTICE_CHANGE := trans(_B_OBSERVER_NOTICE_CHANGE);
|
||||
B_CONTROL_INVOKED := trans(_B_CONTROL_INVOKED);
|
||||
B_CONTROL_MODIFIED := trans(_B_CONTROL_MODIFIED);
|
||||
|
||||
end.
|
||||
// Other Commands
|
||||
B_SET_PROPERTY := _B_SET_PROPERTY;
|
||||
B_GET_PROPERTY := _B_GET_PROPERTY;
|
||||
B_CREATE_PROPERTY := _B_CREATE_PROPERTY;
|
||||
B_DELETE_PROPERTY := _B_DELETE_PROPERTY;
|
||||
B_COUNT_PROPERTIES := _B_COUNT_PROPERTIES;
|
||||
B_EXECUTE_PROPERTY := _B_EXECUTE_PROPERTY;
|
||||
B_GET_SUPPORTED_SUITES := _B_GET_SUPPORTED_SUITES;
|
||||
B_UNDO := _B_UNDO;
|
||||
B_CUT := _B_CUT;
|
||||
B_COPY := _B_COPY;
|
||||
B_PASTE := _B_PASTE;
|
||||
B_SELECT_ALL := _B_SELECT_ALL;
|
||||
B_SAVE_REQUESTED := _B_SAVE_REQUESTED;
|
||||
B_MESSAGE_NOT_UNDERSTOOD := _B_MESSAGE_NOT_UNDERSTOOD;
|
||||
B_NO_REPLY := _B_NO_REPLY;
|
||||
B_REPLY := _B_REPLY;
|
||||
B_SIMPLE_DATA := _B_SIMPLE_DATA;
|
||||
B_MIME_DATA := _B_MIME_DATA;
|
||||
B_ARCHIVED_OBJECT := _B_ARCHIVED_OBJECT;
|
||||
B_UPDATE_STATUS_BAR := _B_UPDATE_STATUS_BAR;
|
||||
B_RESET_STATUS_BAR := _B_RESET_STATUS_BAR;
|
||||
B_NODE_MONITOR := _B_NODE_MONITOR;
|
||||
B_QUERY_UPDATE := _B_QUERY_UPDATE;
|
||||
B_ENDORSABLE := _B_ENDORSABLE;
|
||||
B_COPY_TARGET := _B_COPY_TARGET;
|
||||
B_MOVE_TARGET := _B_MOVE_TARGET;
|
||||
B_TRASH_TARGET := _B_TRASH_TARGET;
|
||||
B_LINK_TARGET := _B_LINK_TARGET;
|
||||
B_INPUT_DEVICES_CHANGED := _B_INPUT_DEVICES_CHANGED;
|
||||
B_INPUT_METHOD_EVENT := _B_INPUT_METHOD_EVENT;
|
||||
B_WINDOW_MOVE_TO := _B_WINDOW_MOVE_TO;
|
||||
B_WINDOW_MOVE_BY := _B_WINDOW_MOVE_BY;
|
||||
B_SILENT_RELAUNCH := _B_SILENT_RELAUNCH;
|
||||
B_OBSERVER_NOTICE_CHANGE := _B_OBSERVER_NOTICE_CHANGE;
|
||||
B_CONTROL_INVOKED := _B_CONTROL_INVOKED;
|
||||
B_CONTROL_MODIFIED := _B_CONTROL_MODIFIED;
|
||||
end.
|
||||
@@ -1,5 +1,6 @@
|
||||
{ BePascal - A pascal wrapper around the BeOS API
|
||||
Copyright (C) 2002 Olivier Coursiere
|
||||
{ BePascal - A pascal wrapper around the BeOS API
|
||||
Copyright (C) 2002 - 2003 Olivier Coursiere
|
||||
Oscar Lesta
|
||||
|
||||
This library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public
|
||||
@@ -15,13 +16,12 @@
|
||||
License along with this library; if not, write to the Free
|
||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
}
|
||||
|
||||
unit Application;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
beobj, looper, appdefs, supportdefs, message, os, roster;
|
||||
BeObj, Looper, OS, Roster, SupportDefs;
|
||||
|
||||
type
|
||||
BApplication = class(BLooper)
|
||||
@@ -29,28 +29,39 @@ type
|
||||
public
|
||||
constructor Create; override;
|
||||
constructor Create(Signature : PChar); virtual;
|
||||
constructor Create(Signature : PChar; error : PStatus_t); virtual;
|
||||
constructor Create(Signature : PChar; error : Pstatus_t); virtual;
|
||||
destructor Destroy; override;
|
||||
procedure ShowCursor;
|
||||
procedure HideCursor;
|
||||
function Run : Thread_id;
|
||||
function Run : thread_id;
|
||||
procedure Quit;
|
||||
function GeAppInfo(var info : AppInfo ): Status_t;
|
||||
// Hook functions
|
||||
procedure AppActivated(Active : boolean); virtual;
|
||||
function GeAppInfo(var info : app_info): status_t;
|
||||
// Hook functions
|
||||
procedure AppActivated(Active : Boolean); virtual;
|
||||
procedure ReadyToRun; virtual;
|
||||
end;
|
||||
|
||||
function BApplication_Create(AObject : TObject) : TCPlusObject; cdecl; external BePascalLibName name 'BApplication_Create_1';
|
||||
function BApplication_Create(AObject : TObject; Signature : PChar) : TCPlusObject; cdecl; external BePascalLibName name 'BApplication_Create_2';
|
||||
function BApplication_Create(AObject : TObject; Signature : PChar; error : PStatus_t) : TCPlusObject; cdecl; external BePascalLibName name 'BApplication_Create_3';
|
||||
procedure BApplication_Free(Application : TCPlusObject); cdecl; external BePascalLibName;
|
||||
procedure BApplication_HideCursor(Application : TCPlusObject); cdecl; external BePascalLibName;
|
||||
procedure BApplication_ShowCursor(Application : TCPlusObject); cdecl; external BePascalLibName;
|
||||
function BApplication_Run(Application : TCPlusObject) : Thread_id; cdecl; external BePascalLibName;
|
||||
procedure BApplication_Quit(Application : TCPlusObject); cdecl; external BePascalLibName;
|
||||
function BApplication_GeAppInfo(Application : TCPlusObject; var info : AppInfo ) : Status_t; cdecl; external BePascalLibName name 'BApplication_GetAppInfo';
|
||||
function get_be_app_messenger : TCPlusObject; cdecl; external BePascalLibName name 'get_be_app_messenger';
|
||||
function BApplication_Create(AObject : TObject) : TCPlusObject;
|
||||
cdecl; external BePascalLibName name 'BApplication_Create_1';
|
||||
function BApplication_Create(AObject : TObject; Signature : PChar) : TCPlusObject;
|
||||
cdecl; external BePascalLibName name 'BApplication_Create_2';
|
||||
function BApplication_Create(AObject : TObject; Signature : PChar;
|
||||
error : Pstatus_t) : TCPlusObject;
|
||||
cdecl; external BePascalLibName name 'BApplication_Create_3';
|
||||
procedure BApplication_Free(Application : TCPlusObject);
|
||||
cdecl; external BePascalLibName;
|
||||
procedure BApplication_HideCursor(Application : TCPlusObject);
|
||||
cdecl; external BePascalLibName;
|
||||
procedure BApplication_ShowCursor(Application : TCPlusObject);
|
||||
cdecl; external BePascalLibName;
|
||||
function BApplication_Run(Application : TCPlusObject) : thread_id;
|
||||
cdecl; external BePascalLibName;
|
||||
procedure BApplication_Quit(Application : TCPlusObject);
|
||||
cdecl; external BePascalLibName;
|
||||
function BApplication_GeAppInfo(Application : TCPlusObject; var info : app_info)
|
||||
: status_t; cdecl; external BePascalLibName name 'BApplication_GetAppInfo';
|
||||
function get_be_app_messenger : TCPlusObject;
|
||||
cdecl; external BePascalLibName name 'get_be_app_messenger';
|
||||
|
||||
var
|
||||
be_app : BApplication;
|
||||
@@ -58,33 +69,33 @@ var
|
||||
implementation
|
||||
|
||||
uses
|
||||
Messenger;
|
||||
Message, Messenger;
|
||||
|
||||
var
|
||||
Application_AppActivated_hook : Pointer; cvar; external;
|
||||
Application_ReadyToRun_hook : Pointer; cvar; external;
|
||||
|
||||
// start BApplication
|
||||
// start BApplication
|
||||
constructor BApplication.Create;
|
||||
begin
|
||||
inherited;
|
||||
CPlusObject := BApplication_Create(Self, PChar('application/x-vnd.BePascal'));
|
||||
CPlusObject := BApplication_Create(Self, PChar('application/x-vnd.BePascal'));
|
||||
be_app := Self;
|
||||
be_app_BMessenger := BMessenger.Wrap(be_app_messengerCPlus);
|
||||
end;
|
||||
|
||||
constructor BApplication.Create(Signature : PChar);
|
||||
begin
|
||||
inherited Create;
|
||||
CPlusObject := BApplication_Create(Self, Signature);
|
||||
inherited Create;
|
||||
CPlusObject := BApplication_Create(Self, Signature);
|
||||
be_app := Self;
|
||||
be_app_BMessenger := BMessenger.Wrap(be_app_messengerCPlus);
|
||||
end;
|
||||
|
||||
constructor BApplication.Create(Signature : PChar; error : PStatus_t);
|
||||
constructor BApplication.Create(Signature : PChar; error : Pstatus_t);
|
||||
begin
|
||||
inherited Create;
|
||||
CPlusObject := BApplication_Create(Self, Signature, error);
|
||||
inherited Create;
|
||||
CPlusObject := BApplication_Create(Self, Signature, error);
|
||||
be_app := Self;
|
||||
be_app_BMessenger := BMessenger.Wrap(be_app_messengerCPlus);
|
||||
end;
|
||||
@@ -100,13 +111,13 @@ end;
|
||||
|
||||
// Hook functions
|
||||
|
||||
procedure Application_AppActivated_hook_func(Application : BApplication; Active : boolean); cdecl;
|
||||
procedure Application_AppActivated_hook_func(Application : BApplication; Active : Boolean); cdecl;
|
||||
begin
|
||||
if Application <> nil then
|
||||
Application.AppActivated(Active);
|
||||
end;
|
||||
|
||||
procedure BApplication.AppActivated(Active : boolean);
|
||||
procedure BApplication.AppActivated(Active : Boolean);
|
||||
begin
|
||||
{$IFDEF DEBUG}
|
||||
SendText(Active);
|
||||
@@ -159,32 +170,30 @@ begin
|
||||
BApplication_HideCursor(CPlusObject);
|
||||
end;
|
||||
|
||||
function BApplication.Run : Thread_id;
|
||||
function BApplication.Run : thread_id;
|
||||
begin
|
||||
Result := BApplication_Run(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure BApplication.Quit;
|
||||
begin
|
||||
BApplication_Quit(CPlusObject);
|
||||
BApplication_Quit(CPlusObject);
|
||||
end;
|
||||
|
||||
function BApplication.GeAppInfo(var info : AppInfo ): Status_t;
|
||||
function BApplication.GeAppInfo(var info : app_info) : status_t;
|
||||
begin
|
||||
Result:=BApplication_GeAppInfo(CPlusObject,info) ;
|
||||
Result := BApplication_GeAppInfo(CPlusObject, info);
|
||||
end;
|
||||
|
||||
// end BApplication
|
||||
|
||||
// end BApplication
|
||||
|
||||
initialization
|
||||
be_app := nil;
|
||||
Application_AppActivated_hook := @Application_AppActivated_hook_func;
|
||||
Application_ReadyToRun_hook := @Application_ReadyToRun_hook_func;
|
||||
|
||||
|
||||
finalization
|
||||
Application_AppActivated_hook := nil;
|
||||
Application_ReadyToRun_hook := nil;
|
||||
be_app := nil;
|
||||
|
||||
end.
|
||||
end.
|
||||
@@ -1,5 +1,6 @@
|
||||
{ BePascal - A pascal wrapper around the BeOS API
|
||||
Copyright (C) 2002 Olivier Coursiere
|
||||
{ BePascal - A pascal wrapper around the BeOS API
|
||||
Copyright (C) 2002 - 2003 Olivier Coursiere
|
||||
Oscar Lesta
|
||||
|
||||
This library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public
|
||||
@@ -15,88 +16,104 @@
|
||||
License along with this library; if not, write to the Free
|
||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
}
|
||||
|
||||
unit Roster;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
beobj, appdefs, supportdefs, OS, Entry, StorageDefs, List, Messenger,
|
||||
message;
|
||||
BeObj, AppDefs, Entry, List, Message, Messenger, OS, StorageDefs, SupportDefs;
|
||||
|
||||
type
|
||||
PTEntryRef = ^EntryRef;
|
||||
|
||||
AppInfoProc = procedure;
|
||||
|
||||
AppInfo = record
|
||||
thread : Thread_id;
|
||||
team : Team_id;
|
||||
port : Port_id;
|
||||
app_info = record
|
||||
thread : thread_id;
|
||||
team : team_id;
|
||||
port : port_id;
|
||||
flags : Cardinal;
|
||||
ref : EntryRef;
|
||||
signature : Array[0..B_MIME_TYPE_LENGTH] of Char;
|
||||
ref : entry_ref;
|
||||
signature : Array[0..B_MIME_TYPE_LENGTH - 1] of Char;
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
B_LAUNCH_MASK = $3;
|
||||
|
||||
B_SINGLE_LAUNCH = $0;
|
||||
B_MULTIPLE_LAUNCH = $1;
|
||||
B_EXCLUSIVE_LAUNCH = $2;
|
||||
|
||||
B_BACKGROUND_APP = $4;
|
||||
B_ARGV_ONLY = $8;
|
||||
_B_APP_INFO_RESERVED1_ = $10000000;
|
||||
|
||||
|
||||
B_REQUEST_LAUNCHED = $00000001;
|
||||
B_REQUEST_QUIT = $00000002;
|
||||
B_REQUEST_ACTIVATED = $00000004;
|
||||
{
|
||||
B_SOME_APP_LAUNCHED = 'BRAS';
|
||||
B_SOME_APP_QUIT = 'BRAQ';
|
||||
B_SOME_APP_ACTIVATED = 'BRAW';
|
||||
}
|
||||
|
||||
type
|
||||
BRoster = class(TBeObject)
|
||||
private
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
//*****************
|
||||
function IsRunning(mime_sig : PChar) : boolean;
|
||||
function IsRunning(var ref : EntryRef) : boolean;
|
||||
function TeamFor(mime_sig : PChar) : Team_id;
|
||||
function TeamFor(var ref : EntryRef) : Team_id;
|
||||
function IsRunning(mime_sig : PChar) : Boolean;
|
||||
function IsRunning(var ref : entry_ref) : Boolean;
|
||||
function TeamFor(mime_sig : PChar) : team_id;
|
||||
function TeamFor(var ref : entry_ref) : team_id;
|
||||
procedure GetAppList(team_id_list : BList);
|
||||
procedure GetAppList(sig : PChar; team_id_list : BList);
|
||||
function GeAppInfo(sig : PChar; var info : AppInfo) : Status_t;
|
||||
function GeAppInfo(var ref : EntryRef; var info : AppInfo) : Status_t;
|
||||
function GetRunningAppInfo(team : Team_id; var info : AppInfo) : Status_t;
|
||||
function GetActiveAppInfo(var info : AppInfo) : Status_t;
|
||||
function FindApp(mime_type : PChar; var app : EntryRef) : Status_t;
|
||||
function FindApp(var ref : EntryRef; var app : EntryRef) : Status_t;
|
||||
function Broadcast(msg : BMessage) : Status_t;
|
||||
function Broadcast(msg : BMessage; reply_to : BMessenger) : Status_t;
|
||||
function StopWatching(target : BMessenger) : Status_t;
|
||||
function ActivateApp(team : Team_id) : Status_t;
|
||||
function Launch(mime_type : PChar; initial_msgs : BMessage; var app_team : Team_id) : Status_t;
|
||||
function Launch(mime_type : PChar; message_list : BList; var app_team : Team_id) : Status_t;
|
||||
function Launch(mime_type : PChar; argc : integer; args : PChar; var app_team : Team_id) : Status_t;
|
||||
function Launch(var ref : EntryRef; initial_message : BMessage; var app_team : Team_id) : Status_t;
|
||||
function Launch(var ref : EntryRef; message_list : BList; var app_team : Team_id) : Status_t;
|
||||
function Launch(var ref : EntryRef; argc : integer; args : PChar; var app_team : Team_id) : Status_t;
|
||||
procedure GetRecentDocuments(refList : BMessage; maxCount : integer; ofType : PChar; openedByAppSig : PChar);
|
||||
procedure GetRecentDocuments(refList : BMessage; maxCount : integer; ofTypeList : PChar; ofTypeListCount : integer; openedByAppSig : PChar);
|
||||
procedure GetRecentFolders(refList : BMessage; maxCount : integer; openedByAppSig : PChar);
|
||||
procedure GetRecentApps(refList : BMessage; maxCount : integer);
|
||||
procedure AddToRecentDocuments(var doc : EntryRef; appSig : PChar);
|
||||
procedure AddToRecentFolders(var folder : EntryRef; appSig : PChar);
|
||||
function GeAppInfo(sig : PChar; var info : app_info) : status_t;
|
||||
function GeAppInfo(var ref : entry_ref; var info : app_info) : status_t;
|
||||
function GetRunningAppInfo(team : team_id; var info : app_info) : status_t;
|
||||
function GetActiveAppInfo(var info : app_info) : status_t;
|
||||
function FindApp(mime_type : PChar; var app : entry_ref) : status_t;
|
||||
function FindApp(var ref : entry_ref; var app : entry_ref) : status_t;
|
||||
function Broadcast(msg : BMessage) : status_t;
|
||||
function Broadcast(msg : BMessage; reply_to : BMessenger) : status_t;
|
||||
function StopWatching(target : BMessenger) : status_t;
|
||||
function ActivateApp(team : team_id) : status_t;
|
||||
function Launch(mime_type : PChar; initial_msgs : BMessage; var app_team : team_id) : status_t;
|
||||
function Launch(mime_type : PChar; message_list : BList; var app_team : team_id) : status_t;
|
||||
function Launch(mime_type : PChar; argc : Integer; args : PChar; var app_team : team_id) : status_t;
|
||||
function Launch(var ref : entry_ref; initial_message : BMessage; var app_team : team_id) : status_t;
|
||||
function Launch(var ref : entry_ref; message_list : BList; var app_team : team_id) : status_t;
|
||||
function Launch(var ref : entry_ref; argc : Integer; args : PChar; var app_team : team_id) : status_t;
|
||||
procedure GetRecentDocuments(refList : BMessage; maxCount : Integer; ofType : PChar; openedByAppSig : PChar);
|
||||
procedure GetRecentDocuments(refList : BMessage; maxCount : Integer; ofTypeList : PChar; ofTypeListCount : Integer; openedByAppSig : PChar);
|
||||
procedure GetRecentFolders(refList : BMessage; maxCount : Integer; openedByAppSig : PChar);
|
||||
procedure GetRecentApps(refList : BMessage; maxCount : Integer);
|
||||
procedure AddToRecentDocuments(var doc : entry_ref; appSig : PChar);
|
||||
procedure AddToRecentFolders(var folder : entry_ref; appSig : PChar);
|
||||
// private
|
||||
// procedure enum mtarget { MAIN_MESSENGER, MIME_MESSENGER, USE_GIVEN };
|
||||
{ function _StartWatching(t : ; roster_mess : BMessenger; what : Cardinal; notify : BMessenger; event_mask : Cardinal) : Status_t;
|
||||
function _StopWatching(t : ; roster_mess : BMessenger; what : Cardinal; notify : BMessenger) : Status_t;
|
||||
function AddApplication(mime_sig : PChar; ref : ^EntryRef; flags : Cardinal; team : Team_id; thread : TThread_id; port : TPort_id; full_reg : boolean) : Cardinal;
|
||||
procedure SetSignature(team : Team_id; mime_sig : PChar);
|
||||
procedure SetThread(team : Team_id; tid : TThread_id);
|
||||
procedure SetThreadAndTeam(entry_token : Cardinal; tid : TThread_id; team : Team_id);
|
||||
procedure CompleteRegistration(team : Team_id; : TThread_id; port : TPort_id);
|
||||
function IsAppPreRegistered(ref : ^BEntryRef; team : Team_id; info : ^AppInfo) : boolean;
|
||||
{ function _StartWatching(t : ; roster_mess : BMessenger; what : Cardinal; notify : BMessenger; event_mask : Cardinal) : status_t;
|
||||
function _StopWatching(t : ; roster_mess : BMessenger; what : Cardinal; notify : BMessenger) : status_t;
|
||||
function AddApplication(mime_sig : PChar; ref : ^entry_ref; flags : Cardinal; team : team_id; thread : TThread_id; port : TPort_id; full_reg : Boolean) : Cardinal;
|
||||
procedure SetSignature(team : team_id; mime_sig : PChar);
|
||||
procedure SetThread(team : team_id; tid : TThread_id);
|
||||
procedure SetThreadAndTeam(entry_token : Cardinal; tid : TThread_id; team : team_id);
|
||||
procedure CompleteRegistration(team : team_id; : TThread_id; port : TPort_id);
|
||||
function IsAppPreRegistered(ref : ^BEntryRef; team : team_id; info : ^app_info) : Boolean;
|
||||
procedure RemovePreRegApp(entry_token : Cardinal);
|
||||
procedure RemoveApp(team : Team_id);
|
||||
function xLaunchAppPrivate(mime_sig : PChar; ref : ^BEntryRef; msg_list : BList; cargs : integer; args : PChar; app_team : ^Team_id) : Status_t;
|
||||
function UpdateActiveApp(team : Team_id) : boolean;
|
||||
procedure SetAppFlags(team : Team_id; flags : Cardinal);
|
||||
procedure RemoveApp(team : team_id);
|
||||
function xLaunchAppPrivate(mime_sig : PChar; ref : ^BEntryRef; msg_list : BList; cargs : Integer; args : PChar; app_team : ^team_id) : status_t;
|
||||
function UpdateActiveApp(team : team_id) : Boolean;
|
||||
procedure SetAppFlags(team : team_id; flags : Cardinal);
|
||||
procedure DumpRoster;
|
||||
function resolve_app(in_type : PChar; ref : ^BEntryRef; app_ref : ^BEntryRef; app_sig : PChar; app_flags : Cardinal; was_document : boolean) : Status_t;
|
||||
function translate_ref(ref : ^BEntryRef; app_meta : TBMimeType; app_ref : ^BEntryRef; app_file : TBFile; app_sig : PChar; was_document : boolean) : Status_t;
|
||||
function translate_type(mime_type : PChar; meta : TBMimeType; app_ref : ^BEntryRef; app_file : TBFile; app_sig : PChar) : Status_t;
|
||||
function sniff_file(file : ^BEntryRef; finfo : TBNodeInfo; mime_type : PChar) : Status_t;
|
||||
function is_wildcard(sig : PChar) : boolean;
|
||||
function get_unique_supporting_app(apps : BMessage; out_sig : PChar) : Status_t;
|
||||
function get_random_supporting_app(apps : BMessage; out_sig : PChar) : Status_t;
|
||||
function build_arg_vector(args : PChar; pargs : integer; app_ref : ^BEntryRef; doc_ref : ^BEntryRef) : PChar;
|
||||
function send_to_running(tema : Team_id; app_ref : ^BEntryRef; cargs : integer; args : PChar; msg_list : BList; ref : ^BEntryRef) : Status_t;
|
||||
function resolve_app(in_type : PChar; ref : ^BEntryRef; app_ref : ^BEntryRef; app_sig : PChar; app_flags : Cardinal; was_document : Boolean) : status_t;
|
||||
function translate_ref(ref : ^BEntryRef; app_meta : TBMimeType; app_ref : ^BEntryRef; app_file : TBFile; app_sig : PChar; was_document : Boolean) : status_t;
|
||||
function translate_type(mime_type : PChar; meta : TBMimeType; app_ref : ^BEntryRef; app_file : TBFile; app_sig : PChar) : status_t;
|
||||
function sniff_file(file : ^BEntryRef; finfo : TBNodeInfo; mime_type : PChar) : status_t;
|
||||
function is_wildcard(sig : PChar) : Boolean;
|
||||
function get_unique_supporting_app(apps : BMessage; out_sig : PChar) : status_t;
|
||||
function get_random_supporting_app(apps : BMessage; out_sig : PChar) : status_t;
|
||||
function build_arg_vector(args : PChar; pargs : Integer; app_ref : ^BEntryRef; doc_ref : ^BEntryRef) : PChar;
|
||||
function send_to_running(tema : team_id; app_ref : ^BEntryRef; cargs : Integer; args : PChar; msg_list : BList; ref : ^BEntryRef) : status_t;
|
||||
procedure IniBMessengers;
|
||||
procedure BMessenger fMess;
|
||||
procedure BMessenger fMimeMess;
|
||||
@@ -118,58 +135,58 @@ procedure BRoster_Destroy(CPlusObject : TCPlusObject); cdecl; external BePascalL
|
||||
//procedure app_info_char signature[B_MIME_TYPE_LENGTH](AObject : TCPlusObject); cdecl; external BePascalLibName name 'app_info_char signature[B_MIME_TYPE_LENGTH]';
|
||||
//function BRoster_Create(AObject : TBeObject); cdecl; external BePascalLibName name 'BRoster_Create';
|
||||
//procedure BRoster_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_Free';
|
||||
function BRoster_IsRunning(AObject : TCPlusObject; mime_sig : PChar) : boolean; cdecl; external BePascalLibName name 'BRoster_IsRunning';
|
||||
function BRoster_IsRunning(AObject : TCPlusObject; var ref : EntryRef) : boolean; cdecl; external BePascalLibName name 'BRoster_IsRunning';
|
||||
function BRoster_TeamFor(AObject : TCPlusObject; mime_sig : PChar) : Team_id; cdecl; external BePascalLibName name 'BRoster_TeamFor';
|
||||
function BRoster_TeamFor(AObject : TCPlusObject; var ref : EntryRef) : Team_id; cdecl; external BePascalLibName name 'BRoster_TeamFor';
|
||||
function BRoster_IsRunning(AObject : TCPlusObject; mime_sig : PChar) : Boolean; cdecl; external BePascalLibName name 'BRoster_IsRunning';
|
||||
function BRoster_IsRunning(AObject : TCPlusObject; var ref : entry_ref) : Boolean; cdecl; external BePascalLibName name 'BRoster_IsRunning';
|
||||
function BRoster_TeamFor(AObject : TCPlusObject; mime_sig : PChar) : team_id; cdecl; external BePascalLibName name 'BRoster_TeamFor';
|
||||
function BRoster_TeamFor(AObject : TCPlusObject; var ref : entry_ref) : team_id; cdecl; external BePascalLibName name 'BRoster_TeamFor';
|
||||
procedure BRoster_GetAppList(AObject : TCPlusObject; team_id_list : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_GetAppList';
|
||||
procedure BRoster_GetAppList(AObject : TCPlusObject; sig : PChar; team_id_list : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_GetAppList';
|
||||
function BRoster_GeAppInfo(AObject : TCPlusObject; sig : PChar; var info : AppInfo) : Status_t; cdecl; external BePascalLibName name 'BRoster_GetAppInfo';
|
||||
function BRoster_GeAppInfo(AObject : TCPlusObject; var ref : EntryRef; var info : AppInfo) : Status_t; cdecl; external BePascalLibName name 'BRoster_GetAppInfo';
|
||||
function BRoster_GetRunningAppInfo(AObject : TCPlusObject; team : Team_id; var info : AppInfo) : Status_t; cdecl; external BePascalLibName name 'BRoster_GetRunningAppInfo';
|
||||
function BRoster_GetActiveAppInfo(AObject : TCPlusObject; var info : AppInfo) : Status_t; cdecl; external BePascalLibName name 'BRoster_GetActiveAppInfo';
|
||||
function BRoster_FindApp(AObject : TCPlusObject; mime_type : PChar; var app : EntryRef) : Status_t; cdecl; external BePascalLibName name 'BRoster_FindApp';
|
||||
function BRoster_FindApp_1(AObject : TCPlusObject; var ref : EntryRef; var app : EntryRef) : Status_t; cdecl; external BePascalLibName name 'BRoster_FindApp';
|
||||
function BRoster_Broadcast(aRoster : TCPlusObject; msg : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BRoster_Broadcast';
|
||||
function BRoster_Broadcast_1(AObject : TCPlusObject; msg : TCPlusObject; reply_to : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BRoster_Broadcast';
|
||||
function BRoster_StopWatching(AObject : TCPlusObject; target : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BRoster_StopWatching';
|
||||
function BRoster_ActivateApp(AObject : TCPlusObject; team : Team_id) : Status_t; cdecl; external BePascalLibName name 'BRoster_ActivateApp';
|
||||
function BRoster_Launch(AObject : TCPlusObject; mime_type : PChar; initial_msgs : TCPlusObject; var app_team : Team_id) : Status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_1(AObject : TCPlusObject; mime_type : PChar; message_list : TCPlusObject; var app_team : Team_id) : Status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_2(AObject : TCPlusObject; mime_type : PChar; argc : integer; args : PChar; var app_team : Team_id) : Status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_3(AObject : TCPlusObject; var ref : EntryRef; initial_message : BMessage; var app_team : Team_id) : Status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_4(AObject : TCPlusObject; var ref : EntryRef; message_list : BList; var app_team : Team_id) : Status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_5(AObject : TCPlusObject; var ref : EntryRef; argc : integer; args : PChar; var app_team : Team_id) : Status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
procedure BRoster_GetRecentDocuments(AObject : TCPlusObject; refList : TCPlusObject; maxCount : integer; ofType : PChar; openedByAppSig : PChar); cdecl; external BePascalLibName name 'BRoster_GetRecentDocuments';
|
||||
procedure BRoster_GetRecentDocuments(AObject : TCPlusObject; refList : TCPlusObject; maxCount : integer; ofTypeList : PChar; ofTypeListCount : integer; openedByAppSig : PChar); cdecl; external BePascalLibName name 'BRoster_GetRecentDocuments';
|
||||
procedure BRoster_GetRecentFolders(AObject : TCPlusObject; refList : TCPlusObject; maxCount : integer; openedByAppSig : PChar); cdecl; external BePascalLibName name 'BRoster_GetRecentFolders';
|
||||
procedure BRoster_GetRecentApps(AObject : TCPlusObject; refList : TCPlusObject; maxCount : integer); cdecl; external BePascalLibName name 'BRoster_GetRecentApps';
|
||||
procedure BRoster_AddToRecentDocuments(AObject : TCPlusObject; var doc : EntryRef; appSig : PChar); cdecl; external BePascalLibName name 'BRoster_AddToRecentDocuments';
|
||||
procedure BRoster_AddToRecentFolders(AObject : TCPlusObject; var folder : EntryRef; appSig : PChar); cdecl; external BePascalLibName name 'BRoster_AddToRecentFolders';
|
||||
function BRoster_GeAppInfo(AObject : TCPlusObject; sig : PChar; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetAppInfo';
|
||||
function BRoster_GeAppInfo(AObject : TCPlusObject; var ref : entry_ref; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetAppInfo';
|
||||
function BRoster_GetRunningAppInfo(AObject : TCPlusObject; team : team_id; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetRunningAppInfo';
|
||||
function BRoster_GetActiveAppInfo(AObject : TCPlusObject; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetActiveAppInfo';
|
||||
function BRoster_FindApp(AObject : TCPlusObject; mime_type : PChar; var app : entry_ref) : status_t; cdecl; external BePascalLibName name 'BRoster_FindApp';
|
||||
function BRoster_FindApp_1(AObject : TCPlusObject; var ref : entry_ref; var app : entry_ref) : status_t; cdecl; external BePascalLibName name 'BRoster_FindApp';
|
||||
function BRoster_Broadcast(aRoster : TCPlusObject; msg : TCPlusObject) : status_t; cdecl; external BePascalLibName name 'BRoster_Broadcast';
|
||||
function BRoster_Broadcast_1(AObject : TCPlusObject; msg : TCPlusObject; reply_to : TCPlusObject) : status_t; cdecl; external BePascalLibName name 'BRoster_Broadcast';
|
||||
function BRoster_StopWatching(AObject : TCPlusObject; target : TCPlusObject) : status_t; cdecl; external BePascalLibName name 'BRoster_StopWatching';
|
||||
function BRoster_ActivateApp(AObject : TCPlusObject; team : team_id) : status_t; cdecl; external BePascalLibName name 'BRoster_ActivateApp';
|
||||
function BRoster_Launch(AObject : TCPlusObject; mime_type : PChar; initial_msgs : TCPlusObject; var app_team : team_id) : status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_1(AObject : TCPlusObject; mime_type : PChar; message_list : TCPlusObject; var app_team : team_id) : status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_2(AObject : TCPlusObject; mime_type : PChar; argc : Integer; args : PChar; var app_team : team_id) : status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_3(AObject : TCPlusObject; var ref : entry_ref; initial_message : BMessage; var app_team : team_id) : status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_4(AObject : TCPlusObject; var ref : entry_ref; message_list : BList; var app_team : team_id) : status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
function BRoster_Launch_5(AObject : TCPlusObject; var ref : entry_ref; argc : Integer; args : PChar; var app_team : team_id) : status_t; cdecl; external BePascalLibName name 'BRoster_Launch';
|
||||
procedure BRoster_GetRecentDocuments(AObject : TCPlusObject; refList : TCPlusObject; maxCount : Integer; ofType : PChar; openedByAppSig : PChar); cdecl; external BePascalLibName name 'BRoster_GetRecentDocuments';
|
||||
procedure BRoster_GetRecentDocuments(AObject : TCPlusObject; refList : TCPlusObject; maxCount : Integer; ofTypeList : PChar; ofTypeListCount : Integer; openedByAppSig : PChar); cdecl; external BePascalLibName name 'BRoster_GetRecentDocuments';
|
||||
procedure BRoster_GetRecentFolders(AObject : TCPlusObject; refList : TCPlusObject; maxCount : Integer; openedByAppSig : PChar); cdecl; external BePascalLibName name 'BRoster_GetRecentFolders';
|
||||
procedure BRoster_GetRecentApps(AObject : TCPlusObject; refList : TCPlusObject; maxCount : Integer); cdecl; external BePascalLibName name 'BRoster_GetRecentApps';
|
||||
procedure BRoster_AddToRecentDocuments(AObject : TCPlusObject; var doc : entry_ref; appSig : PChar); cdecl; external BePascalLibName name 'BRoster_AddToRecentDocuments';
|
||||
procedure BRoster_AddToRecentFolders(AObject : TCPlusObject; var folder : entry_ref; appSig : PChar); cdecl; external BePascalLibName name 'BRoster_AddToRecentFolders';
|
||||
// procedure BRoster_enum mtarget { MAIN_MESSENGER, MIME_MESSENGER, USE_GIVEN }(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_enum mtarget { MAIN_MESSENGER, MIME_MESSENGER, USE_GIVEN }';
|
||||
{function BRoster__StartWatching(AObject : TCPlusObject; t : ; roster_mess : TCPlusObject; what : Cardinal; notify : TCPlusObject; event_mask : Cardinal) : Status_t; cdecl; external BePascalLibName name 'BRoster__StartWatching';
|
||||
function BRoster__StopWatching(AObject : TCPlusObject; t : ; roster_mess : TCPlusObject; what : Cardinal; notify : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BRoster__StopWatching';
|
||||
function BRoster_AddApplication(AObject : TCPlusObject; mime_sig : PChar; ref : ^BEntryRef; flags : Cardinal; team : Team_id; thread : TThread_id; port : TPort_id; full_reg : boolean) : Cardinal; cdecl; external BePascalLibName name 'BRoster_AddApplication';
|
||||
procedure BRoster_SetSignature(AObject : TCPlusObject; team : Team_id; mime_sig : PChar); cdecl; external BePascalLibName name 'BRoster_SetSignature';
|
||||
procedure BRoster_SetThread(AObject : TCPlusObject; team : Team_id; tid : TThread_id); cdecl; external BePascalLibName name 'BRoster_SetThread';
|
||||
procedure BRoster_SetThreadAndTeam(AObject : TCPlusObject; entry_token : Cardinal; tid : TThread_id; team : Team_id); cdecl; external BePascalLibName name 'BRoster_SetThreadAndTeam';
|
||||
procedure BRoster_CompleteRegistration(AObject : TCPlusObject; team : Team_id; : TThread_id; port : TPort_id); cdecl; external BePascalLibName name 'BRoster_CompleteRegistration';
|
||||
function BRoster_IsAppPreRegistered(AObject : TCPlusObject; ref : ^BEntryRef; team : Team_id; info : ^AppInfo) : boolean; cdecl; external BePascalLibName name 'BRoster_IsAppPreRegistered';
|
||||
{function BRoster__StartWatching(AObject : TCPlusObject; t : ; roster_mess : TCPlusObject; what : Cardinal; notify : TCPlusObject; event_mask : Cardinal) : status_t; cdecl; external BePascalLibName name 'BRoster__StartWatching';
|
||||
function BRoster__StopWatching(AObject : TCPlusObject; t : ; roster_mess : TCPlusObject; what : Cardinal; notify : TCPlusObject) : status_t; cdecl; external BePascalLibName name 'BRoster__StopWatching';
|
||||
function BRoster_AddApplication(AObject : TCPlusObject; mime_sig : PChar; ref : ^BEntryRef; flags : Cardinal; team : team_id; thread : TThread_id; port : TPort_id; full_reg : Boolean) : Cardinal; cdecl; external BePascalLibName name 'BRoster_AddApplication';
|
||||
procedure BRoster_SetSignature(AObject : TCPlusObject; team : team_id; mime_sig : PChar); cdecl; external BePascalLibName name 'BRoster_SetSignature';
|
||||
procedure BRoster_SetThread(AObject : TCPlusObject; team : team_id; tid : TThread_id); cdecl; external BePascalLibName name 'BRoster_SetThread';
|
||||
procedure BRoster_SetThreadAndTeam(AObject : TCPlusObject; entry_token : Cardinal; tid : TThread_id; team : team_id); cdecl; external BePascalLibName name 'BRoster_SetThreadAndTeam';
|
||||
procedure BRoster_CompleteRegistration(AObject : TCPlusObject; team : team_id; : TThread_id; port : TPort_id); cdecl; external BePascalLibName name 'BRoster_CompleteRegistration';
|
||||
function BRoster_IsAppPreRegistered(AObject : TCPlusObject; ref : ^BEntryRef; team : team_id; info : ^app_info) : Boolean; cdecl; external BePascalLibName name 'BRoster_IsAppPreRegistered';
|
||||
procedure BRoster_RemovePreRegApp(AObject : TCPlusObject; entry_token : Cardinal); cdecl; external BePascalLibName name 'BRoster_RemovePreRegApp';
|
||||
procedure BRoster_RemoveApp(AObject : TCPlusObject; team : Team_id); cdecl; external BePascalLibName name 'BRoster_RemoveApp';
|
||||
function BRoster_xLaunchAppPrivate(AObject : TCPlusObject; mime_sig : PChar; ref : ^BEntryRef; msg_list : TCPlusObject; cargs : integer; args : PChar; app_team : ^Team_id) : Status_t; cdecl; external BePascalLibName name 'BRoster_xLaunchAppPrivate';
|
||||
function BRoster_UpdateActiveApp(AObject : TCPlusObject; team : Team_id) : boolean; cdecl; external BePascalLibName name 'BRoster_UpdateActiveApp';
|
||||
procedure BRoster_SetAppFlags(AObject : TCPlusObject; team : Team_id; flags : Cardinal); cdecl; external BePascalLibName name 'BRoster_SetAppFlags';
|
||||
procedure BRoster_RemoveApp(AObject : TCPlusObject; team : team_id); cdecl; external BePascalLibName name 'BRoster_RemoveApp';
|
||||
function BRoster_xLaunchAppPrivate(AObject : TCPlusObject; mime_sig : PChar; ref : ^BEntryRef; msg_list : TCPlusObject; cargs : Integer; args : PChar; app_team : ^team_id) : status_t; cdecl; external BePascalLibName name 'BRoster_xLaunchAppPrivate';
|
||||
function BRoster_UpdateActiveApp(AObject : TCPlusObject; team : team_id) : Boolean; cdecl; external BePascalLibName name 'BRoster_UpdateActiveApp';
|
||||
procedure BRoster_SetAppFlags(AObject : TCPlusObject; team : team_id; flags : Cardinal); cdecl; external BePascalLibName name 'BRoster_SetAppFlags';
|
||||
procedure BRoster_DumpRoster(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_DumpRoster';
|
||||
function BRoster_resolve_app(AObject : TCPlusObject; in_type : PChar; ref : ^BEntryRef; app_ref : ^BEntryRef; app_sig : PChar; app_flags : Cardinal; was_document : boolean) : Status_t; cdecl; external BePascalLibName name 'BRoster_resolve_app';
|
||||
function BRoster_translate_ref(AObject : TCPlusObject; ref : ^BEntryRef; app_meta : TCPlusObject; app_ref : ^BEntryRef; app_file : TCPlusObject; app_sig : PChar; was_document : boolean) : Status_t; cdecl; external BePascalLibName name 'BRoster_translate_ref';
|
||||
function BRoster_translate_type(AObject : TCPlusObject; mime_type : PChar; meta : TCPlusObject; app_ref : ^BEntryRef; app_file : TCPlusObject; app_sig : PChar) : Status_t; cdecl; external BePascalLibName name 'BRoster_translate_type';
|
||||
function BRoster_sniff_file(AObject : TCPlusObject; file : ^BEntryRef; finfo : TCPlusObject; mime_type : PChar) : Status_t; cdecl; external BePascalLibName name 'BRoster_sniff_file';
|
||||
function BRoster_is_wildcard(AObject : TCPlusObject; sig : PChar) : boolean; cdecl; external BePascalLibName name 'BRoster_is_wildcard';
|
||||
function BRoster_get_unique_supporting_app(AObject : TCPlusObject; apps : BMessage; out_sig : PChar) : Status_t; cdecl; external BePascalLibName name 'BRoster_get_unique_supporting_app';
|
||||
function BRoster_get_random_supporting_app(AObject : TCPlusObject; apps : BMessage; out_sig : PChar) : Status_t; cdecl; external BePascalLibName name 'BRoster_get_random_supporting_app';
|
||||
function BRoster_build_arg_vector(AObject : TCPlusObject; args : PChar; pargs : integer; app_ref : ^BEntryRef; doc_ref : ^BEntryRef) : PChar; cdecl; external BePascalLibName name 'BRoster_build_arg_vector';
|
||||
function BRoster_send_to_running(AObject : TCPlusObject; tema : Team_id; app_ref : ^BEntryRef; cargs : integer; args : PChar; msg_list : BList; ref : ^BEntryRef) : Status_t; cdecl; external BePascalLibName name 'BRoster_send_to_running';
|
||||
function BRoster_resolve_app(AObject : TCPlusObject; in_type : PChar; ref : ^BEntryRef; app_ref : ^BEntryRef; app_sig : PChar; app_flags : Cardinal; was_document : Boolean) : status_t; cdecl; external BePascalLibName name 'BRoster_resolve_app';
|
||||
function BRoster_translate_ref(AObject : TCPlusObject; ref : ^BEntryRef; app_meta : TCPlusObject; app_ref : ^BEntryRef; app_file : TCPlusObject; app_sig : PChar; was_document : Boolean) : status_t; cdecl; external BePascalLibName name 'BRoster_translate_ref';
|
||||
function BRoster_translate_type(AObject : TCPlusObject; mime_type : PChar; meta : TCPlusObject; app_ref : ^BEntryRef; app_file : TCPlusObject; app_sig : PChar) : status_t; cdecl; external BePascalLibName name 'BRoster_translate_type';
|
||||
function BRoster_sniff_file(AObject : TCPlusObject; file : ^BEntryRef; finfo : TCPlusObject; mime_type : PChar) : status_t; cdecl; external BePascalLibName name 'BRoster_sniff_file';
|
||||
function BRoster_is_wildcard(AObject : TCPlusObject; sig : PChar) : Boolean; cdecl; external BePascalLibName name 'BRoster_is_wildcard';
|
||||
function BRoster_get_unique_supporting_app(AObject : TCPlusObject; apps : BMessage; out_sig : PChar) : status_t; cdecl; external BePascalLibName name 'BRoster_get_unique_supporting_app';
|
||||
function BRoster_get_random_supporting_app(AObject : TCPlusObject; apps : BMessage; out_sig : PChar) : status_t; cdecl; external BePascalLibName name 'BRoster_get_random_supporting_app';
|
||||
function BRoster_build_arg_vector(AObject : TCPlusObject; args : PChar; pargs : Integer; app_ref : ^BEntryRef; doc_ref : ^BEntryRef) : PChar; cdecl; external BePascalLibName name 'BRoster_build_arg_vector';
|
||||
function BRoster_send_to_running(AObject : TCPlusObject; tema : team_id; app_ref : ^BEntryRef; cargs : Integer; args : PChar; msg_list : BList; ref : ^BEntryRef) : status_t; cdecl; external BePascalLibName name 'BRoster_send_to_running';
|
||||
procedure BRoster_IniBMessengers(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_IniBMessengers';
|
||||
procedure BRoster_BMessenger fMess(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_BMessenger fMess';
|
||||
procedure BRoster_BMessenger fMimeMess(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_BMessenger fMimeMess';
|
||||
@@ -194,22 +211,22 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function BRoster.IsRunning(mime_sig : PChar) : boolean;
|
||||
function BRoster.IsRunning(mime_sig : PChar) : Boolean;
|
||||
begin
|
||||
Result := BRoster_IsRunning(CPlusObject, mime_sig);
|
||||
end;
|
||||
|
||||
function BRoster.IsRunning(var ref : EntryRef) : boolean;
|
||||
function BRoster.IsRunning(var ref : entry_ref) : Boolean;
|
||||
begin
|
||||
Result := BRoster_IsRunning(CPlusObject, ref);
|
||||
end;
|
||||
|
||||
function BRoster.TeamFor(mime_sig : PChar) : Team_id;
|
||||
function BRoster.TeamFor(mime_sig : PChar) : team_id;
|
||||
begin
|
||||
Result := BRoster_TeamFor(CPlusObject, mime_sig);
|
||||
end;
|
||||
|
||||
function BRoster.TeamFor(var ref : EntryRef) : Team_id;
|
||||
function BRoster.TeamFor(var ref : entry_ref) : team_id;
|
||||
begin
|
||||
Result := BRoster_TeamFor(CPlusObject, ref);
|
||||
end;
|
||||
@@ -224,112 +241,112 @@ begin
|
||||
BRoster_GetAppList(CPlusObject, sig, team_id_list.CPlusObject);
|
||||
end;
|
||||
|
||||
function BRoster.GeAppInfo(sig : PChar; var info : AppInfo) : Status_t;
|
||||
function BRoster.GeAppInfo(sig : PChar; var info : app_info) : status_t;
|
||||
begin
|
||||
Result := BRoster_GeAppInfo(CPlusObject, sig, info);
|
||||
end;
|
||||
|
||||
function BRoster.GeAppInfo(var ref : EntryRef; var info : AppInfo) : Status_t;
|
||||
function BRoster.GeAppInfo(var ref : entry_ref; var info : app_info) : status_t;
|
||||
begin
|
||||
Result := BRoster_GeAppInfo(CPlusObject, ref, info);
|
||||
end;
|
||||
|
||||
function BRoster.GetRunningAppInfo(team : Team_id; var info : AppInfo) : Status_t;
|
||||
function BRoster.GetRunningAppInfo(team : team_id; var info : app_info) : status_t;
|
||||
begin
|
||||
Result := BRoster_GetRunningAppInfo(CPlusObject, team, info);
|
||||
end;
|
||||
|
||||
function BRoster.GetActiveAppInfo(var info : AppInfo) : Status_t;
|
||||
function BRoster.GetActiveAppInfo(var info : app_info) : status_t;
|
||||
begin
|
||||
Result := BRoster_GetActiveAppInfo(CPlusObject, info);
|
||||
end;
|
||||
|
||||
function BRoster.FindApp(mime_type : PChar; var app : EntryRef) : Status_t;
|
||||
function BRoster.FindApp(mime_type : PChar; var app : entry_ref) : status_t;
|
||||
begin
|
||||
Result := BRoster_FindApp(CPlusObject, mime_type, app);
|
||||
end;
|
||||
|
||||
function BRoster.FindApp(var ref : EntryRef; var app : EntryRef) : Status_t;
|
||||
function BRoster.FindApp(var ref : entry_ref; var app : entry_ref) : status_t;
|
||||
begin
|
||||
Result := BRoster_FindApp_1(CPlusObject, ref, app);
|
||||
end;
|
||||
|
||||
function BRoster.Broadcast(msg : BMessage) : Status_t;
|
||||
function BRoster.Broadcast(msg : BMessage) : status_t;
|
||||
begin
|
||||
Result := BRoster_Broadcast(CPlusObject, msg.CPlusObject);
|
||||
end;
|
||||
|
||||
function BRoster.Broadcast(msg : BMessage; reply_to : BMessenger) : Status_t;
|
||||
function BRoster.Broadcast(msg : BMessage; reply_to : BMessenger) : status_t;
|
||||
begin
|
||||
Result := BRoster_Broadcast_1(CPlusObject, msg.CPlusObject, reply_to.CPlusObject);
|
||||
end;
|
||||
|
||||
function BRoster.StopWatching(target : BMessenger) : Status_t;
|
||||
function BRoster.StopWatching(target : BMessenger) : status_t;
|
||||
begin
|
||||
Result := BRoster_StopWatching(CPlusObject, target.CPlusObject);
|
||||
end;
|
||||
|
||||
function BRoster.ActivateApp(team : Team_id) : Status_t;
|
||||
function BRoster.ActivateApp(team : team_id) : status_t;
|
||||
begin
|
||||
Result := BRoster_ActivateApp(CPlusObject, team);
|
||||
end;
|
||||
|
||||
function BRoster.Launch(mime_type : PChar; initial_msgs : BMessage; var app_team : Team_id) : Status_t;
|
||||
function BRoster.Launch(mime_type : PChar; initial_msgs : BMessage; var app_team : team_id) : status_t;
|
||||
begin
|
||||
Result := BRoster_Launch(CPlusObject, mime_type, initial_msgs.CPlusObject, app_team);
|
||||
end;
|
||||
|
||||
function BRoster.Launch(mime_type : PChar; message_list : BList; var app_team : Team_id) : Status_t;
|
||||
function BRoster.Launch(mime_type : PChar; message_list : BList; var app_team : team_id) : status_t;
|
||||
begin
|
||||
Result := BRoster_Launch_1(CPlusObject, mime_type, message_list.CPlusObject, app_team);
|
||||
end;
|
||||
|
||||
function BRoster.Launch(mime_type : PChar; argc : integer; args : PChar; var app_team : Team_id) : Status_t;
|
||||
function BRoster.Launch(mime_type : PChar; argc : Integer; args : PChar; var app_team : team_id) : status_t;
|
||||
begin
|
||||
Result := BRoster_Launch_2(CPlusObject, mime_type, argc, args, app_team);
|
||||
end;
|
||||
|
||||
function BRoster.Launch(var ref : EntryRef; initial_message : BMessage; var app_team : Team_id) : Status_t;
|
||||
function BRoster.Launch(var ref : entry_ref; initial_message : BMessage; var app_team : team_id) : status_t;
|
||||
begin
|
||||
Result := BRoster_Launch_3(CPlusObject, ref, initial_message, app_team);
|
||||
end;
|
||||
|
||||
function BRoster.Launch(var ref : EntryRef; message_list : BList; var app_team : Team_id) : Status_t;
|
||||
function BRoster.Launch(var ref : entry_ref; message_list : BList; var app_team : team_id) : status_t;
|
||||
begin
|
||||
Result := BRoster_Launch_4(CPlusObject, ref, message_list, app_team);
|
||||
end;
|
||||
|
||||
function BRoster.Launch(var ref : EntryRef; argc : integer; args : PChar; var app_team : Team_id) : Status_t;
|
||||
function BRoster.Launch(var ref : entry_ref; argc : Integer; args : PChar; var app_team : team_id) : status_t;
|
||||
begin
|
||||
Result := BRoster_Launch_5(CPlusObject, ref, argc, args, app_team);
|
||||
end;
|
||||
|
||||
procedure BRoster.GetRecentDocuments(refList : BMessage; maxCount : integer; ofType : PChar; openedByAppSig : PChar);
|
||||
procedure BRoster.GetRecentDocuments(refList : BMessage; maxCount : Integer; ofType : PChar; openedByAppSig : PChar);
|
||||
begin
|
||||
BRoster_GetRecentDocuments(CPlusObject, refList.CPlusObject, maxCount, ofType, openedByAppSig);
|
||||
end;
|
||||
|
||||
procedure BRoster.GetRecentDocuments(refList : BMessage; maxCount : integer; ofTypeList : PChar; ofTypeListCount : integer; openedByAppSig : PChar);
|
||||
procedure BRoster.GetRecentDocuments(refList : BMessage; maxCount : Integer; ofTypeList : PChar; ofTypeListCount : Integer; openedByAppSig : PChar);
|
||||
begin
|
||||
BRoster_GetRecentDocuments(CPlusObject, refList.CPlusObject, maxCount, ofTypeList, ofTypeListCount, openedByAppSig);
|
||||
end;
|
||||
|
||||
procedure BRoster.GetRecentFolders(refList : BMessage; maxCount : integer; openedByAppSig : PChar);
|
||||
procedure BRoster.GetRecentFolders(refList : BMessage; maxCount : Integer; openedByAppSig : PChar);
|
||||
begin
|
||||
BRoster_GetRecentFolders(CPlusObject, refList.CPlusObject, maxCount, openedByAppSig);
|
||||
end;
|
||||
|
||||
procedure BRoster.GetRecentApps(refList : BMessage; maxCount : integer);
|
||||
procedure BRoster.GetRecentApps(refList : BMessage; maxCount : Integer);
|
||||
begin
|
||||
BRoster_GetRecentApps(CPlusObject, refList.CPlusObject, maxCount);
|
||||
end;
|
||||
|
||||
procedure BRoster.AddToRecentDocuments(var doc : EntryRef; appSig : PChar);
|
||||
procedure BRoster.AddToRecentDocuments(var doc : entry_ref; appSig : PChar);
|
||||
begin
|
||||
BRoster_AddToRecentDocuments(CPlusObject, doc, appSig);
|
||||
end;
|
||||
|
||||
procedure BRoster.AddToRecentFolders(var folder : EntryRef; appSig : PChar);
|
||||
procedure BRoster.AddToRecentFolders(var folder : entry_ref; appSig : PChar);
|
||||
begin
|
||||
BRoster_AddToRecentFolders(CPlusObject, folder, appSig);
|
||||
end;
|
||||
@@ -340,4 +357,4 @@ initialization
|
||||
finalization
|
||||
be_roster.UnWrap;
|
||||
be_roster := nil;
|
||||
end.
|
||||
end.
|
||||
Reference in New Issue
Block a user