commented out unfinished code

This commit is contained in:
oscarl-2
2003-12-20 08:54:02 +00:00
parent f990d895a2
commit 5408d63bed

View File

@@ -4,8 +4,7 @@ unit Mime;
interface interface
uses uses
// types, BeObj, Bitmap, Entry, Message, Messenger, SupportDefs, StorageDefs, _String;
BeObj, Bitmap, Entry, Message, Messenger, SupportDefs, StorageDefs, BString;
function update_mime_info(const path : PChar; recursive : Integer; function update_mime_info(const path : PChar; recursive : Integer;
synchronous : Integer; force : Integer) : Integer; synchronous : Integer; force : Integer) : Integer;
@@ -29,13 +28,6 @@ const
B_LARGE_ICON = 32; B_LARGE_ICON = 32;
B_MINI_ICON = 16; B_MINI_ICON = 16;
{
class BBitmap;
class BResources;
class BAppFileInfo;
class BMessenger;
}
type type
app_verb = (B_OPEN); app_verb = (B_OPEN);
@@ -49,8 +41,11 @@ var
// ------------------------------------------------------------- // -------------------------------------------------------------
const const
B_META_MIME_CHANGED = 'MMCH'; _B_META_MIME_CHANGED = 'MMCH';
var
B_META_MIME_CHANGED : Longword;
const
B_ICON_CHANGED = $00000001; B_ICON_CHANGED = $00000001;
B_PREFERRED_APP_CHANGED = $00000002; B_PREFERRED_APP_CHANGED = $00000002;
B_ATTR_INFO_CHANGED = $00000004; B_ATTR_INFO_CHANGED = $00000004;
@@ -66,6 +61,7 @@ const
B_EVERYTHING_CHANGED : Integer = $FFFFFFFF; B_EVERYTHING_CHANGED : Integer = $FFFFFFFF;
// ------------------------------------------------------------- // -------------------------------------------------------------
(*
type type
BMimeType = class(TBeObject) BMimeType = class(TBeObject)
public public
@@ -138,9 +134,10 @@ type
// Deprecated Use SetTo instead. // Deprecated Use SetTo instead.
function SetType(const MIME_type : PChar) : status_t; function SetType(const MIME_type : PChar) : status_t;
end; end;
*)
implementation implementation
initialization initialization
B_MIME_STRING_TYPE := _B_MIME_STRING_TYPE; B_MIME_STRING_TYPE := _B_MIME_STRING_TYPE;
B_META_MIME_CHANGED := _B_META_MIME_CHANGED;
end. end.