diff --git a/lib/menu.tcl b/lib/menu.tcl index c578ab3..008c530 100644 --- a/lib/menu.tcl +++ b/lib/menu.tcl @@ -28,7 +28,7 @@ proc GetFileMenu {m} { 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 FileOper::ReadFolder $item] + $m.openRecent add command -label $item -command [list OpenRecentProject $item] } $m add separator diff --git a/lib/procedure.tcl b/lib/procedure.tcl index 364a7d8..f35d839 100644 --- a/lib/procedure.tcl +++ b/lib/procedure.tcl @@ -688,7 +688,7 @@ proc SetActiveProject {path} { proc OpenRecentProject {path} { SetActiveProject $path FileOper::ReadFolder $path - ReadFilesFromDirectory $path $path + ReadFilesFromDirectory $path $path } proc AddRecentEditedFolder {path} { @@ -714,4 +714,3 @@ proc AddRecentEditedFolder {path} { } .frmMenu.mnuFile.m.openRecent add command -label $path -command [list OpenRecentProject $path] } -