svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Fixed error if file was not select

Browse Source
This commit is contained in:
Sergey Kalinin
2018-07-05 08:41:18 +03:00
parent 9ead049928
commit f1ca27d3e0
6 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/imgviewer.tcl
View File

@@ -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]
fconfigure $f -translation binary
set data [base64::encode [read $f]]
close $f
# base name on root name of the image file
set name [file root [file tail $img]]
$text insert [Position] "image create photo $name -data {\n$data\n}"
if {$img ne ""} {
set f [open $img]
fconfigure $f -translation binary
set data [base64::encode [read $f]]
close $f
# base name on root name of the image file
set name [file root [file tail $img]]
$text insert [Position] "image create photo $name -data {\n$data\n}"
}
}