OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Пятница, 06 Декабрь, 2019 05:41

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
СообщениеДобавлено: Вторник, 19 Ноябрь, 2019 15:43 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4539
Откуда: Россия, Орёл
Исправление:
Код:
      IF (hist = "") & (loc = NIL) THEN
         IF name = "" THEN
            Short(Files.dir.This("")(HostFiles.Locator).path + sepChar + " ", ss1)
         ELSE
            Short(Files.dir.This("")(HostFiles.Locator).path + sepChar + name, ss1)
         END;
         Gtk.gtk_file_chooser_set_filename(fs, ss1)
      ELSIF loc # NIL THEN
         Short(loc(HostFiles.Locator).path + sepChar + name, ss1);
         Gtk.gtk_file_chooser_set_filename(fs, ss1)
      ELSIF hist # "" THEN
         Short(hist + sepChar + name, ss1);
         Gtk.gtk_file_chooser_set_filename(fs, ss1)
      END;
на
Код:
      VAR root: Files.Locator;
      …
      IF (loc # NIL) & (loc IS HostFiles.Locator) THEN
         locName := loc(HostFiles.Locator).path
      ELSIF hist # "" THEN
         locName := hist
      ELSE
         root := Files.dir.This("");
         IF root IS HostFiles.Locator THEN
            locName := root(HostFiles.Locator).path
         ELSE
            locName := ""
         END
      END;
      IF locName # "" THEN
         Short(locName + sepChar + name, ss1)
      ELSE
         Short(name, ss1)
      END;
      Gtk.gtk_file_chooser_set_filename(fs, ss1);


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2019, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB