Добавлена процедура вывода информационного сообщения

2022-11-18 13:03:21 +03:00 · 2022-11-18 13:03:21 +03:00 · 9ecc9d7301
commit 9ecc9d7301
parent ac92335ba5
1 changed files with 10 additions and 0 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@ -526,3 +526,13 @@ proc FindInFilesDialog {txt {args ""}} {
    }
    # $win.lBox focus I001
 }
+
+proc ShowMessage {title msg} {
+        set answer [
+        tk_messageBox -message $title \
+        -icon info -type ok -detail $msg
+    ]
+    switch $answer {
+        ok {return}
+    }
+}