Fixed error if file was not select

lib/imgviewer.tcl

@@ -53,20 +53,23 @@ proc scale {w {n 1} node} {
 proc ImageBase64Encode {text} {
     global env
     set types {
+        {"PNG" {.png}}
         {"GIF" {.gif}}
         {"JPEG" {.jpg}}
-        {"PNG" {.png}}
         {"BMP" {.bmp}}
         {"All files" *}
     }
     set img [tk_getOpenFile -initialdir $env(HOME) -filetypes $types -parent .]
-    set f [open $img]
+    if {$img ne ""} {
-    fconfigure $f -translation binary
+        set f [open $img]
-    set data [base64::encode [read $f]]
+        fconfigure $f -translation binary
-    close $f
+        set data [base64::encode [read $f]]
-    # base name on root name of the image file
+        close $f
-    set name [file root [file tail $img]]
+        # base name on root name of the image file
-    $text insert [Position] "image create photo $name -data {\n$data\n}"
+        set name [file root [file tail $img]]
+        $text insert [Position] "image create photo $name -data {\n$data\n}"
+    }
 }
 
 
+

lib/main.tcl

@@ -381,3 +381,4 @@ if {[info exists workingProject]} {
 
 
 
+

lib/projects.tcl

@@ -1012,3 +1012,5 @@ proc InsertTitle {newFile type} {
 
 
 
+
+

lib/settings.tcl

@@ -669,3 +669,4 @@ proc Settings {nBook} {
     # Read a config file #
     LoadSettings
 }
+

projman.tcl

@@ -176,3 +176,5 @@ option add *Dialog.msg.background $editor(bg)
 
 
 
+
+