Новая сборка

The "recentlyEditedFolders" option in the configuration file contains a list of recently opened directories.
The procedures for working with this list have also been added.

debian/changelog

@@ -1,3 +1,27 @@
+projman (2.0.0-alpha18) stable; urgency=medium
+
+  *  Исправлено чтение структуры проекта при открытии из меню 'Открыть недавнее'
+  *  Исправление работы процедуры varhelper
+
+ -- svk <svk@nuk-svk.ru>  Tue, 21 Oct 2025 15:47:02 +0300
+
+projman (2.0.0-alpha17) stable; urgency=medium
+
+  *  Added the "Open Recent" menu.
+  *  The "recentlyEditedFolders" option in the configuration file contains a list of recently opened directories.
+  *  The procedures for working with this list have also been added.
+  *  Новая сборка
+
+ -- svk <svk@nuk-svk.ru>  Sat, 18 Oct 2025 16:29:50 +0300
+
+projman (2.0.0-alpha17) stable; urgency=medium
+
+  *  Косметические изменения.
+  *  Исправлены ошибки при вставке кавычек
+  *  Обновить README.md
+
+ -- svk <svk@nuk-svk.ru>  Thu, 31 Oct 2024 19:48:30 +0300
+
 projman (2.0.0-alpha16) stable; urgency=medium
 
   *  build-deb-projman.sh: добавлена генерация changelog  из  git log
@@ -336,3 +360,5 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
  -- svkalinin <banzaj28@yandex.ru>  Thu,  5 Jul 2018 08:41:18 +0300
 
+
+

lib/config.tcl

@@ -64,6 +64,7 @@ multilineComments=true
 \[UserSession\]
 opened=
 editedFiles=
+recentlyEditedFolders=
 "
 proc Config::create {dir} {
     set cfgFile [open [file join $dir projman.ini]  "w+"]

lib/editor.tcl

@@ -459,6 +459,11 @@ namespace eval Editor {
         # блокировка открытия диалога если запущен другой
         set txt $w
         # set win .varhelper
+        # Проверяем если есть выделение то блокировать появление диалога
+        if {[$txt tag ranges sel] != ""} {
+            puts "You have selected text [$txt tag ranges sel]"
+            return            
+        }
         puts "$x $y $w $word $wordType"
         set fileType [dict get $editors $txt fileType]
 
@@ -575,6 +580,8 @@ namespace eval Editor {
         if { [set height [llength $findedVars]] > 10 } { set height 10 }
         $win.lBox configure -height $height
 
+        # focus $win.lBox
+        
         bind $win <Escape> {
             destroy $Editor::win
             focus -force $Editor::txt.t
@@ -883,20 +890,31 @@ namespace eval Editor {
         set lineNum [lindex [split $pos "."] 0]
         set posNum [lindex [split $pos "."] 1]
         set symbol [string trim [string trimleft $symbol "\\"]]
-        # puts "Selindex : $selIndex, cursor position: $pos"
+        puts "Selindex : $selIndex, cursor position: $pos, Symbol: $symbol"
         if {$selIndex != ""} {
             set lineBegin [lindex [split [lindex $selIndex 0] "."] 0]
             set posBegin [lindex [split [lindex $selIndex 0] "."] 1]
             set lineEnd [lindex [split [lindex $selIndex 1] "."] 0]
             set posEnd [lindex [split [lindex $selIndex 1] "."] 1]
-            # set selText [$txt get $lineBegin.$posBegin $lineEnd.$posEnd]
+            set selText [$txt get $lineBegin.$posBegin $lineEnd.$posEnd]
-            set selText $selectionText
+            # set selText $selectionText
-            # puts "Selected text: $selText, pos: $pos, lineBegin: $lineBegin, posBegin: $posBegin, pos end: $posEnd"
+            puts "Selected text: $selText, pos: $pos, lineBegin: $lineBegin, posBegin: $posBegin, pos end: $posEnd"
             if {$posNum == $posEnd} {
                 $txt insert $lineBegin.$posBegin "$symbol"
             }
             if {$posNum == $posBegin} {
-                $txt insert $lineBegin.$posEnd "$symbol"
+               if {$symbol == {"} || $symbol == {_}} {
+                    $txt insert $lineEnd.$posEnd "$selText$symbol"
+                } else {
+                    $txt insert $lineEnd.$posEnd "$symbol"
+                }
+            }
+            if {$symbol == "'"} {
+                if {$posBegin == 0} {
+                    $txt insert $pos "$symbol"
+                } else {
+                    $txt insert "$pos + 1 chars" "$symbol"
+                }
             }
             $txt highlight $lineBegin.$posBegin $lineEnd.end
             # $txt insert $lineBegin.[expr $posBegin + 1] "$symbol"

lib/files.tcl

@@ -149,6 +149,7 @@ namespace eval FileOper {
         # }
         # .frmStatus.lblGitLogo configure -image git_logo_20x20
         # .frmStatus.lblGit configure -text "[::msgcat::mc "Branch"]: [Git::Branches current]"
+        AddRecentEditedFolder $fullPath
         return $fullPath
     }
     

lib/menu.tcl

@@ -9,7 +9,7 @@
 ######################################################
 
 proc GetFileMenu {m} {
-    global activeProject
+    global activeProject cfgVariables
     $m add command -label [::msgcat::mc "New file"] -command Editor::New\
     -accelerator "Ctrl+N"
     $m add command -label [::msgcat::mc "Open file"] -accelerator "Ctrl+O" -command {
@@ -24,6 +24,13 @@ proc GetFileMenu {m} {
         -accelerator "Ctrl+w"
     $m add command -label [::msgcat::mc "Close all"] -command {FileOper::CloseAll}
 
+    $m add separator
+    menu $m.openRecent
+    $m add cascade -label [::msgcat::mc "Open recent"] -menu $m.openRecent
+    foreach item $cfgVariables(recentFolder) {
+        $m.openRecent add command -label $item -command [list OpenRecentProject $item]
+    }
+
     $m add separator
 
     $m add command -label [::msgcat::mc "Open folder"] -accelerator "Ctrl+K" -command {

lib/msgs/de.msg

@@ -7,8 +7,8 @@
 # Author: Roman Schaller <r.schaller@gmx.ch>              #
 ###########################################################
 
-::msgcat::mcset de "About ..." "<EFBFBD>ber ..."
+::msgcat::mcset de "About ..." "Über ..."
-::msgcat::mcset de "Add to project" "Zu Projekt hinzuf<EFBFBD>gen"
+::msgcat::mcset de "Add to project" "Zu Projekt hinzufügen"
 ::msgcat::mcset de "Author" "Autor"
 ::msgcat::mcset de "Text autoformat" "Text autoformat"
 ::msgcat::mcset de "Cancel" "Abbrechen"
@@ -29,9 +29,9 @@
 ::msgcat::mcset de "Cut into clipboard" "In Zwischenablage ausschneiden"
 ::msgcat::mcset de "CVS commit"
 ::msgcat::mcset de "CVS update"
-::msgcat::mcset de "Delete" "L<EFBFBD>schen"
+::msgcat::mcset de "Delete" "Löschen"
-::msgcat::mcset de "Delete backup files" "Backup-Dateien l<EFBFBD>schen"
+::msgcat::mcset de "Delete backup files" "Backup-Dateien löschen"
-::msgcat::mcset de "Delete project" "Projekt l<EFBFBD>schen"
+::msgcat::mcset de "Delete project" "Projekt löschen"
 ::msgcat::mcset de "Delete from project" "Von Projekt entfernen"
 ::msgcat::mcset de "Docs dir" "Dok Verzeichnis"
 ::msgcat::mcset de "Don't selected file"
@@ -42,10 +42,10 @@
 ::msgcat::mcset de "Error open URL"
 ::msgcat::mcset de "Exit" "Beenden"
 ::msgcat::mcset de "File" "Datei"
-::msgcat::mcset de "File already exists. Overwrite?" "Datei besteht bereits. <EFBFBD>berschreiben?"
+::msgcat::mcset de "File already exists. Overwrite?" "Datei besteht bereits. Überschreiben?"
 ::msgcat::mcset de "File modify" "Datei bearbeiten"
-::msgcat::mcset de "File was modifyed. Close?" "Datei wurde ge<EFBFBD>ndert. Trotzdem schliessen?"
+::msgcat::mcset de "File was modifyed. Close?" "Datei wurde geändert. Trotzdem schliessen?"
-::msgcat::mcset de "File was modifyed. Save?" "Datei wurde ge<EFBFBD>ndert. Jetzt speichern?"
+::msgcat::mcset de "File was modifyed. Save?" "Datei wurde geändert. Jetzt speichern?"
 ::msgcat::mcset de "File saved" "Datei gespeichert"
 ::msgcat::mcset de "Find" "Suchen"
 ::msgcat::mcset de "Font normal" "Schrift normal"
@@ -55,15 +55,15 @@
 ::msgcat::mcset de "Home dir" "Home Verzeichnis"
 ::msgcat::mcset de "Home page" "Homepage"
 ::msgcat::mcset de "Image dir" "Image Verzeichnis"
-::msgcat::mcset de "Insert" "Einf<EFBFBD>gen"
+::msgcat::mcset de "Insert" "Einfügen"
 ::msgcat::mcset de "Interface language" "Interface Sprache"
 ::msgcat::mcset de "Install Tcl/Tk Project Manager" "Tcl/Tk Project Manager installieren"
 ::msgcat::mcset de "Line number" "Zeilennummer"
 ::msgcat::mcset de "Make RPM" "RPM erstellen"
 ::msgcat::mcset de "Make archive" "Archiv erstellen"
 ::msgcat::mcset de "Make backup files" "Backup-Dateien erstellen"
-::msgcat::mcset de "Must be one file select!" "Eine Datei muss ausgew<EFBFBD>hlt sein!"
+::msgcat::mcset de "Must be one file select!" "Eine Datei muss ausgewählt sein!"
-::msgcat::mcset de "Must be one or two file select!" "Eine oder zwei Dateien m<EFBFBD>ssen ausgew<EFBFBD>hlt sein!"
+::msgcat::mcset de "Must be one or two file select!" "Eine oder zwei Dateien müssen ausgewählt sein!"
 ::msgcat::mcset de "Modifying the Registry..."
 ::msgcat::mcset de "Modules" "Module"
 ::msgcat::mcset de "New" "Neu"
@@ -71,19 +71,19 @@
 ::msgcat::mcset de "New project" "Neues Projekt"
 ::msgcat::mcset de "Not implemented yet" "Noch nicht implementiert"
 ::msgcat::mcset de "Not found active project" "Kein aktives Projekt gefunden"
-::msgcat::mcset de "Open" "<EFBFBD>ffnen"
+::msgcat::mcset de "Open" "Öffnen"
-::msgcat::mcset de "Open file" "Datei <EFBFBD>ffnen"
+::msgcat::mcset de "Open file" "Datei öffnen"
-::msgcat::mcset de "Open project" "Projekt <EFBFBD>ffnen"
+::msgcat::mcset de "Open project" "Projekt öffnen"
-::msgcat::mcset de "Opened file in progress" "Ge<EFBFBD>ffnete Datei in Bearbeitung"
+::msgcat::mcset de "Opened file in progress" "Geöffnete Datei in Bearbeitung"
-::msgcat::mcset de "Overwrite" "<EFBFBD>berschreiben"
+::msgcat::mcset de "Overwrite" "Überschreiben"
-::msgcat::mcset de "Paste" "Einf<EFBFBD>gen"
+::msgcat::mcset de "Paste" "Einfügen"
-::msgcat::mcset de "Paste from clipboard" "Von Zwischenablage einf<EFBFBD>gen"
+::msgcat::mcset de "Paste from clipboard" "Von Zwischenablage einfügen"
 ::msgcat::mcset de "Print ..." "Drucken ..."
 ::msgcat::mcset de "Print" "Drucken"
 ::msgcat::mcset de "Print command" "Druck-Befehl"
 ::msgcat::mcset de "Print selected text" "Markierter Text drucken"
 ::msgcat::mcset de "Program finished successfully" "Programm wurde erfolgreich beendet"
-::msgcat::mcset de "Program failed" "Ausf<EFBFBD>hrung fehlgeschlagen"
+::msgcat::mcset de "Program failed" "Ausführung fehlgeschlagen"
 ::msgcat::mcset de "Programm output" "Programm Ausgabe"
 ::msgcat::mcset de "Project" "Projekt"
 ::msgcat::mcset de "Projects" "Projekte"
@@ -101,8 +101,8 @@
 ::msgcat::mcset de "Release"
 ::msgcat::mcset de "RPM dir" "RPM Verzeichnis"
 ::msgcat::mcset de "RPM file mask" "RPM Datei Maske"
-::msgcat::mcset de "Run" "Ausf<EFBFBD>hren"
+::msgcat::mcset de "Run" "Ausführen"
-::msgcat::mcset de "Running project" "Projekt ausf<EFBFBD>hren"
+::msgcat::mcset de "Running project" "Projekt ausführen"
 ::msgcat::mcset de "Running file"
 ::msgcat::mcset de "Save" "Speichern"
 ::msgcat::mcset de "Save as" "Speichern unter"
@@ -110,9 +110,9 @@
 ::msgcat::mcset de "Save file as" "Datei speichern unter"
 ::msgcat::mcset de "Save all" "Alles speichern"
 ::msgcat::mcset de "Search" "Suchen"
-::msgcat::mcset de "Select" "Ausw<EFBFBD>hlen"
+::msgcat::mcset de "Select" "Auswählen"
-::msgcat::mcset de "Select directory" "Verzeichnis ausw<EFBFBD>hlen"
+::msgcat::mcset de "Select directory" "Verzeichnis auswählen"
-::msgcat::mcset de "Selected directory" "Ausgew<EFBFBD>hltes Verzeichnis"
+::msgcat::mcset de "Selected directory" "Ausgewähltes Verzeichnis"
 ::msgcat::mcset de "Settings" "Einstellungen"
 ::msgcat::mcset de "Show backup files" "Backup-Dateien anzeigen"
 ::msgcat::mcset de "Interpretator" "Interpreter"
@@ -120,7 +120,7 @@
 ::msgcat::mcset de "TGZ file mask" "TGZ Datei Maske"
 ::msgcat::mcset de "Thanks" "Danksagung"
 ::msgcat::mcset de "Toolbar" "Symbolleiste"
-::msgcat::mcset de "Undo" "R<EFBFBD>ckg<EFBFBD>ngig"
+::msgcat::mcset de "Undo" "Rückgängig"
 ::msgcat::mcset de "Update"
 ::msgcat::mcset de "Version"
 ::msgcat::mcset de "View" "Ansicht"
@@ -130,4 +130,3 @@
 
 
 
-

lib/msgs/en.msg

@@ -108,6 +108,7 @@
 ::msgcat::mcset en "Open file"
 ::msgcat::mcset en "Open project"
 ::msgcat::mcset en "Opened file in progress" 
+::msgcat::mcset en "Open recent"
 ::msgcat::mcset en "Operators"
 ::msgcat::mcset en "Overwrite"
 ::msgcat::mcset en "Parameters"
@@ -184,4 +185,3 @@
 
 
 
-

lib/msgs/ru.msg

@@ -27,7 +27,7 @@
 ::msgcat::mcset ru "Close" "Закрыть"
 ::msgcat::mcset ru "Close all" "Закрыть все"
 ::msgcat::mcset ru "Close file" "Закрыть файл"
-::msgcat::mcset ru "Close folder" "Закрыть папку"
+::msgcat::mcset ru "Close folder" "Закрыть каталог"
 ::msgcat::mcset ru "Close Project Manager?" "Выйти из программы?"
 ::msgcat::mcset ru "Comments" "Коментарии"
 ::msgcat::mcset ru "Comment selected" "Закоментировать"
@@ -138,9 +138,10 @@
 ::msgcat::mcset ru "No" "Нет"
 ::msgcat::mcset ru "Open" "Открыть"
 ::msgcat::mcset ru "Open file" "Открыть файл"
-::msgcat::mcset ru "Open folder" "Открыть папку"
+::msgcat::mcset ru "Open folder" "Открыть каталог"
 ::msgcat::mcset ru "Open project" "Открыть проект"
 ::msgcat::mcset ru "Opened file in progress" "Открытие файла"
+::msgcat::mcset ru "Open recent" "Открыть недавнее"
 ::msgcat::mcset ru "Operators" "Операторы"
 ::msgcat::mcset ru "Overwrite" "Замена"
 ::msgcat::mcset ru "Parameters" "Параметры"

lib/procedure.tcl

@@ -683,3 +683,34 @@ proc SetActiveProject {path} {
     .frmStatus.lblGitLogo configure -image git_logo_20x20
     .frmStatus.lblGit configure -text "[::msgcat::mc "Branch"]: [Git::Branches current]"
 }
+
+# Added recently opened folder into menu "File"->"Open recent"
+proc OpenRecentProject {path} {
+    SetActiveProject $path
+    FileOper::ReadFolder $path
+    ReadFilesFromDirectory $path $path
+}
+
+proc AddRecentEditedFolder {path} {
+    global cfgVariables
+    if {$path == ""} {
+        return
+    }
+    if {[info exists cfgVariables(recentFolder)] == 0} {
+        set cfgVariables(recentFolder) [list $path]
+    } else {
+        # check if path already in a list
+        foreach item $cfgVariables(recentFolder) {
+            if {$item == $path} {
+                return
+            }
+        }
+        # check list length, and remove 0 element if length is 10
+        if {[llength $cfgVariables(recentFolder)] == 10} {
+            # lremove $cfgVariables(recentFolder) 0; # tcl 8.7
+            set cfgVariables(recentFolder) [lrange $cfgVariables(recentFolder) 1 end]
+        }
+        lappend cfgVariables(recentFolder) $path
+    }
+    .frmMenu.mnuFile.m.openRecent add command -label $path -command [list OpenRecentProject $path]
+}

projman.tcl

@@ -9,8 +9,8 @@ exec wish "$0" -- "$@"
 # Home page: https://nuk-svk.ru
 ######################################################
 # Version: 2.0.0
-# Release: alpha16
+# Release: alpha18
-# Build: 22082024151054
+# Build: 22102025093435
 ######################################################
 
 # определим текущую версию, релиз и т.д.