|
|
| Determines the GUI type and returns it's identificator as a predefined constant (eg. kGuiCocoa). |
event DefineWindows
begin
WindowBegin("Archive",ArchiveWClass,CGother,RcType);
UseView(RcVc);
CloseOnCancel;
SetWRect(130,80,470,320);
Sizeable(100,100,0,0);
if (GuiType==kGuiCocoa) then begin
ArchiveList(1,16,-16,-23);
end else begin
// StringList(9,9+13,-23,-20);
ScrollBar(-23,9+12+1,-7,-19);
// MailBackground;
// PushButton(-80,2,-30,19,ToolOpenAttachment,"Open");
end;
SpecMenuItem("Attach File",'a',0);
SpecMenuItem("Download File",' ',1);
SpecMenuItem("Open Record",' ',2);
SpecialMenu("Show To Links",' ',3,"ShowToLinksArchiveWsm");
SpecMenuItem("Edit Link Comment",' ',4);
SpecialMenu("(-",' ',5,"");
SpecialMenu("Create Note",' ',6,"NoteFromArchiveWsm");
SpecialMenu("Create Mail",' ',7,"MailFromArchiveWsm");
SpecialMenu("Create Archive",' ',8,"ArchiveFromArchiveWsm");
SpecMenuItem("Rename Archive",'r',9);
EndWindow;
return;
end;
««
