From 4e67dbfccfbc3ef8bfc79abcb8149ad3cc6a9b47 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <svk@nuk-svk.ru>
Date: Wed, 29 Oct 2025 09:08:28 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=20=D0=B4=D0=B8=D0=B0=D0=BB=D0=BE=D0=B3=20=D0=BF=D1=80?=
 =?UTF-8?q?=D0=B8=20=D0=BE=D1=82=D0=BA=D1=80=D1=8B=D1=82=D0=B8=D0=B8=20?=
 =?UTF-8?q?=D1=84=D0=B0=D0=B9=D0=BB=D0=BE=D0=B2=20=D0=BE=D1=82=D0=BB=D0=B8?=
 =?UTF-8?q?=D1=87=D0=BD=D1=8B=D1=85=20=D0=BE=D1=82=20=D1=82=D0=B5=D0=BA?=
 =?UTF-8?q?=D1=81=D1=82=D0=BE=D0=B2=D1=8B=D1=85?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/files.tcl   | 15 +++++++++++----
 lib/msgs/en.msg |  3 ++-
 lib/msgs/ru.msg |  2 ++
 3 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/lib/files.tcl b/lib/files.tcl
index d09afb3..ebfd0bf 100644
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -47,17 +47,17 @@ namespace eval FileOper {
         # линуксовый file не всегда корректно определяет тип файла
         # используем пакет из tcl
         lassign [::fileutil::fileType $fileFullPath] fType fBinaryType fBinaryInterp
-        # puts "File type is $fType, $fBinaryType, $fBinaryInterp"
+        puts "File type is $fType, $fBinaryType, $fBinaryInterp"
 
         switch $fType {
             "binary" {
-                return false
+                return binary
             }
             "text" {
                 return text
             }
             "image" {
-                return false
+                return image
             }
             default {
                 return false
@@ -407,7 +407,14 @@ namespace eval FileOper {
                 # return text
             }
             "image" {
-                # return image
+                if {[tk_messageBox -message [::msgcat::mc "The file looks like a image file"] -icon question -type ok] == "Yes"} {
+                    return
+                }
+            }
+            "binary" {
+                if {[tk_dialog .question [::msgcat::mc "Open file"] [::msgcat::mc "The file looks like a binary file. Open anyway?"] questhead 0 Yes No] == 1} {
+                    return
+                }
             }
             false {
                 return
diff --git a/lib/msgs/en.msg b/lib/msgs/en.msg
index 2853148..6387b27 100644
--- a/lib/msgs/en.msg
+++ b/lib/msgs/en.msg
@@ -65,6 +65,8 @@
 ::msgcat::mcset en "File modify"
 ::msgcat::mcset en "File was modifyed. Close?"
 ::msgcat::mcset en "File was modifyed. Save?"
+::msgcat::mcset en "The file looks like a binary file. Open anyway?"
+::msgcat::mcset en "The file looks like a image. Support not implemented yet."
 ::msgcat::mcset en "File saved"
 ::msgcat::mcset en "Files"
 ::msgcat::mcset en "Find"
@@ -184,4 +186,3 @@
 
 
 
-
diff --git a/lib/msgs/ru.msg b/lib/msgs/ru.msg
index 60819f5..6bad7b8 100644
--- a/lib/msgs/ru.msg
+++ b/lib/msgs/ru.msg
@@ -88,6 +88,8 @@
 ::msgcat::mcset ru "File was modifyed" "Файл был изменен"
 ::msgcat::mcset ru "File modify" "Файл изменен"
 ::msgcat::mcset ru "File saved" "Файл сохранен"
+::msgcat::mcset ru "The file looks like a binary file. Open anyway?" "Файл похож на двоичный. Открыть все равно?"
+::msgcat::mcset en "The file looks like a image. Support not implemented yet." "Файл выглядит как изображение. Поддержка пока не реализована."
 ::msgcat::mcset ru "Find" "Найти"
 ::msgcat::mcset ru "Found" "Найдено"
 ::msgcat::mcset ru "Find in files" "Найти  в файлах"