home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / OOModules / txt / Requesters.mod < prev    next >
Text File  |  1996-05-17  |  1KB  |  49 lines
  1. IMPLEMENTATION MODULE Requesters;
  2.  
  3. (* Copyright (C) 1996 by Marcel Timmermans *)
  4.  
  5. (* A example of a Filerequester object *)
  6.  
  7. FROM SYSTEM IMPORT TAG,ADDRESS,CAST,ADR,SETREG;
  8. FROM Objects IMPORT TObject;
  9. FROM UtilityD IMPORT TagItemPtr,tagEnd;
  10. IMPORT rt:ReqTools;
  11.  
  12. CONSTRUCTOR TFileListBox.Init; (* Will be called after allocating the object *)
  13. BEGIN
  14.  filereq:=rt.AllocRequestA(rt.TypeFileReq,NIL);
  15.  x:=0; y:=0;
  16.  FDir:=NIL; FTitle:=NIL; win:=NIL;
  17.  FName:="";
  18. END TFileListBox.Init;
  19.  
  20. PROCEDURE TFileListBox.Do(save:BOOLEAN):BOOLEAN;
  21. VAR
  22.   tagbuf: ARRAY[0..5] OF LONGINT;
  23.   result:BOOLEAN;
  24.   Win:ADDRESS;
  25. BEGIN
  26.   Win:=win;
  27.   rt.ChangeReqAttrA(filereq,TAG(tagbuf,rt.fiDir,FDir,tagEnd));
  28.   IF save THEN INCL(filereq^.flags,rt.fReqSave); END;
  29.   result:=(rt.FileRequest(filereq,ADR(FName),FTitle,TAG(tagbuf,rt.Window,Win,rt.LockWindowTag,TRUE,tagEnd)) # NIL);
  30.   RETURN result;
  31. END TFileListBox.Do;
  32.  
  33. PROCEDURE TFileListBox.GetName(VAR str:ARRAY OF CHAR);
  34. BEGIN
  35. END TFileListBox.GetName;
  36.  
  37. PROCEDURE TFileListBox.GetPath(VAR path:ARRAY OF CHAR);
  38. BEGIN
  39.  SETREG(10,ADR(path));
  40.  SETREG(9,filereq^.dir);
  41. END TFileListBox.GetPath;
  42.  
  43. DESTRUCTOR TFileListBox.Done; (* Will be called after disposing the object *)
  44. BEGIN
  45.  IF filereq#NIL THEN rt.FreeRequest(filereq); END;
  46. END TFileListBox.Done;
  47.  
  48. END Requesters.
  49.