|
|
| Creates the list of user-specific archives, file links and notes on a window (personal desktop on the Main Control). Used within WindowBegin/WindowEnd block. |
 |
| StartX |
The X coordinate of the upper left corner of the list rectangle. |
| StartY |
The Y coordinate of the upper left corner of the list rectangle. |
| EndX |
The X coordinate of the lower right corner of the list rectangle. |
| EndY |
The Y coordinate of the lower right corner of the list rectangle. |
|
event DefineWindows
begin
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Archive",ArchiveWClass,CGother,RcType);
UseView(RcVc);
SetWRect(130,80,470,298);
Sizeable(100,100,0,0);
if (GuiType==kGuiCocoa) then begin
ArchiveList(1,16,-16,-23);
end else begin
ScrollBar(-23,9+12+1,-7,-19);
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;
««