svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Исправлено чтение структуры проекта при открытии из меню 'Открыть недавнее'

Browse Source
This commit is contained in:
Калинин Сергей Валерьевич
2025-10-23 13:54:54 +03:00
parent 9b69e94412
commit f6a1b440f7
2 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/menu.tcl
View File

@@ -28,7 +28,7 @@ proc GetFileMenu {m} {
menu $m.openRecent menu $m.openRecent
$m add cascade -label [::msgcat::mc "Open recent"] -menu $m.openRecent $m add cascade -label [::msgcat::mc "Open recent"] -menu $m.openRecent
foreach item $cfgVariables(recentFolder) { foreach item $cfgVariables(recentFolder) {
$m.openRecent add command -label $item -command [list FileOper::ReadFolder $item] $m.openRecent add command -label $item -command [list OpenRecentProject $item]
} }
$m add separator $m add separator

3
lib/procedure.tcl
View File

@@ -688,7 +688,7 @@ proc SetActiveProject {path} {
proc OpenRecentProject {path} { proc OpenRecentProject {path} {
SetActiveProject $path SetActiveProject $path
FileOper::ReadFolder $path FileOper::ReadFolder $path
ReadFilesFromDirectory $path $path ReadFilesFromDirectory $path $path
} }
proc AddRecentEditedFolder {path} { proc AddRecentEditedFolder {path} {
@@ -714,4 +714,3 @@ proc AddRecentEditedFolder {path} {
} }
.frmMenu.mnuFile.m.openRecent add command -label $path -command [list OpenRecentProject $path] .frmMenu.mnuFile.m.openRecent add command -label $path -command [list OpenRecentProject $path]
} }