Новая сборка

debian/changelog

@@ -1,6 +1,7 @@
 projman (2.0.0-beta3) stable; urgency=medium
 
   *  Добавил диалог вменю "Сохранить как"
+  *  Добавил проверки в диалог FileOper::SaveFile
   *  Вынес код связанный с обработкой подсказок при вводе переменных и процедур в отдельный модуль.
   *  Исправил работу со списком переменных из всплывающего окна. Теперь там можно выбрать из списка стрелками и вставить по Enter. Исправил обработку клавиш Вверх Вниз Ввод Отмена в окне со списком вариантов.
 
@@ -495,3 +496,4 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
+

lib/files.tcl

@@ -364,7 +364,7 @@ namespace eval FileOper {
             set nbEditorWindow "[lindex $str 0].[lindex $str 1].[lindex $str 2]"
             # puts "FileOper::Save: current window $nbEditorWindow"
         }
-        # puts "FileOper::Save: $nbEditorWindow"
+
         set nbEditorItem [$nbEditorWindow select]
         DebugPuts "Saved editor text: $nbEditorItem"
         if [string match "*untitled*" $nbEditorItem] {
@@ -382,8 +382,13 @@ namespace eval FileOper {
             set treeItem "file::[string range $nbEditorItem [expr [string last "." $nbEditorItem] +1] end ]"
             set filePath [Tree::GetItemID $tree $treeItem]
         }
+        if {![winfo exists $nbEditorItem.frmText.t]} {
+            DebugPuts "winfo exists $nbEditorWindow.frmText.t equal [winfo exists $nbEditorWindow.frmText.t]"
+            return
+        }
         set editedText [$nbEditorItem.frmText.t get 0.0 end]
         if {$type eq "saveas"} {set filePath [FileOper::SaveDialog]}
+        if {$filePath eq "cancel"} {return}
         DebugPuts "FileOper::Save $filePath"
         set f [open $filePath "w+"]
         puts -nonewline $f $editedText
@@ -638,9 +643,10 @@ namespace eval FileOper {
             set dir $env(HOME)
         }
         set fileName [tk_getSaveFile -initialdir $dir -filetypes $::types -parent .]
+        if {$fileName eq ""} {return "cancel"}
         set fullPath [file join $dir $fileName]
         set file [string range $fullPath [expr [string last "/" $fullPath]+1] end]
-        DebugPuts "FileOper::SaveDialog $fullPath"
+        DebugPuts "FileOper::SaveDialog $fileName $fullPath"
         regsub -all "." $file "_" node
         set dir [file dirname $fullPath]
         set file [file tail $fullPath]

lib/menu.tcl

@@ -20,8 +20,7 @@ proc GetFileMenu {m} {
     }
     $m add command -label [::msgcat::mc "Save file"] -command {FileOper::Save}\
         -accelerator "Ctrl+S"
-    $m add command -label [::msgcat::mc "Save as"] -command {FileOper::Save saveas}\
+    $m add command -label [::msgcat::mc "Save as"] -command {FileOper::Save saveas}
-        -accelerator "Shift+Ctrl+S"
     $m add command -label [::msgcat::mc "Close file"] -command {FileOper::Close}\
         -accelerator "Ctrl+w"
     $m add command -label [::msgcat::mc "Close all"] -command {FileOper::CloseAll}

projman.tcl

@@ -10,7 +10,7 @@ exec wish8.6 "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: beta3
-# Build: 30012026134326
+# Build: 30012026140811
 ######################################################
 
 # определим текущую версию, релиз и т.д.