Subversion Repositories Kolibri OS

Rev

Rev 6613 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6613 Rev 7597
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016 Anton Krotov
 2 
    Copyright 2016, 2018 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
4 
    This program is free software: you can redistribute it and/or modify
 4 
    This program is free software: you can redistribute it and/or modify
5 
    it under the terms of the GNU Lesser General Public License as published by
 5 
    it under the terms of the GNU Lesser General Public License as published by
6 
    the Free Software Foundation, either version 3 of the License, or
 6 
    the Free Software Foundation, either version 3 of the License, or
Line 106... Line 106...
106 
      res.FileName           := "";
 106 
      res.FileName           := "";
107 
      res.status             := 0;
 107 
      res.status             := 0;
108 
      res.filter_area.size   := LENGTH(res.filter_area.filter);
 108 
      res.filter_area.size   := LENGTH(res.filter_area.filter);
109 
      res.procinfo           := sys.ADR(res.procinf[0]);
 109 
      res.procinfo           := sys.ADR(res.procinf[0]);
110 
      res.com_area_name      := sys.ADR(res.s_com_area_name[0]);
 110 
      res.com_area_name      := sys.ADR(res.s_com_area_name[0]);
111 
      res.start_path         := sys.ADR("/rd/1/File managers/opendial");
 111 
      res.start_path         := sys.SADR("/rd/1/File managers/opendial");
112 
      res.opendir_path       := sys.ADR(res.s_opendir_path[0]);
 112 
      res.opendir_path       := sys.ADR(res.s_opendir_path[0]);
113 
      res.dir_default_path   := sys.ADR(res.s_dir_default_path[0]);
 113 
      res.dir_default_path   := sys.ADR(res.s_dir_default_path[0]);
114 
      res.openfile_path      := sys.ADR(res.FilePath[0]);
 114 
      res.openfile_path      := sys.ADR(res.FilePath[0]);
115 
      res.filename_area      := sys.ADR(res.FileName[0]);
 115 
      res.filename_area      := sys.ADR(res.FileName[0]);
Line 132... Line 132...
132 
END Destroy;
 132 
END Destroy;
Line 133... Line 133...
133 
 
 133 
 
134 
PROCEDURE Load;
 134 
PROCEDURE Load;
Line 135... Line 135...
135 
VAR Lib: INTEGER;
 135 
VAR Lib: INTEGER;
136 
 
 136 
 
137 
  PROCEDURE GetProc(v: INTEGER; name: ARRAY OF CHAR);
 137 
  PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
138 
  VAR a: INTEGER;
 138 
  VAR a: INTEGER;
139 
  BEGIN
 139 
  BEGIN
140 
    a := KOSAPI.GetProcAdr(name, Lib);
 140 
    a := KOSAPI.GetProcAdr(name, Lib);
141 
    ASSERT(a # 0);
 141 
    ASSERT(a # 0);
Line 142... Line 142...
142 
    sys.PUT(v, a)
 142 
    sys.PUT(v, a)
143 
  END GetProc;
 143 
  END GetProc;
144 
 
 144 
 
145 
BEGIN
 145 
BEGIN
146 
  Lib := KOSAPI.LoadLib("/rd/1/Lib/Proc_lib.obj");
 146 
  Lib := KOSAPI.LoadLib("/rd/1/Lib/Proc_lib.obj");
Line 147... Line 147...
147 
  GetProc(sys.ADR(Dialog_init),  "OpenDialog_init");
 147 
  GetProc(Lib, sys.ADR(Dialog_init),  "OpenDialog_init");
148 
  GetProc(sys.ADR(Dialog_start), "OpenDialog_start");
 148 
  GetProc(Lib, sys.ADR(Dialog_start), "OpenDialog_start");
149 
END Load;
 149 
END Load;
150 
 
 150