Subversion Repositories Kolibri OS

Rev

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

Rev 8728 Rev 9577
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016, 2018, 2020, 2021 Anton Krotov
 2 
    Copyright 2016, 2018, 2020-2022 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 128... Line 128...
128 
      res.FilePath           := "";
 128 
      res.FilePath           := "";
129 
      res.FileName           := "";
 129 
      res.FileName           := "";
130 
      res.status             := 0;
 130 
      res.status             := 0;
131 
      res.procinfo           := sys.ADR(res.procinf[0]);
 131 
      res.procinfo           := sys.ADR(res.procinf[0]);
132 
      res.com_area_name      := sys.ADR(res.s_com_area_name[0]);
 132 
      res.com_area_name      := sys.ADR(res.s_com_area_name[0]);
133 
      res.start_path         := sys.SADR("/rd/1/File managers/opendial");
 133 
      res.start_path         := sys.SADR("/sys/File managers/opendial");
134 
      res.opendir_path       := sys.ADR(res.s_opendir_path[0]);
 134 
      res.opendir_path       := sys.ADR(res.s_opendir_path[0]);
135 
      res.dir_default_path   := sys.ADR(res.s_dir_default_path[0]);
 135 
      res.dir_default_path   := sys.ADR(res.s_dir_default_path[0]);
136 
      res.openfile_path      := sys.ADR(res.FilePath[0]);
 136 
      res.openfile_path      := sys.ADR(res.FilePath[0]);
137 
      res.filename_area      := sys.ADR(res.FileName[0]);
 137 
      res.filename_area      := sys.ADR(res.FileName[0]);
138 
      Dialog_init(res)
 138 
      Dialog_init(res)
Line 161... Line 161...
161 
    ASSERT(a # 0);
 161 
    ASSERT(a # 0);
162 
    sys.PUT(v, a)
 162 
    sys.PUT(v, a)
163 
  END GetProc;
 163 
  END GetProc;
Line 164... Line 164...
164 
 
 164 
 
165 
BEGIN
 165 
BEGIN
166 
  Lib := KOSAPI.LoadLib("/rd/1/Lib/Proc_lib.obj");
 166 
  Lib := KOSAPI.LoadLib("/sys/Lib/Proc_lib.obj");
167 
  GetProc(Lib, sys.ADR(Dialog_init),  "OpenDialog_init");
 167 
  GetProc(Lib, sys.ADR(Dialog_init),  "OpenDialog_init");
168 
  GetProc(Lib, sys.ADR(Dialog_start), "OpenDialog_start");
 168 
  GetProc(Lib, sys.ADR(Dialog_start), "OpenDialog_start");
Line 169... Line 169...
169 
END Load;
 169 
END Load;