diff options
| author | Nick White <git@njw.me.uk> | 2012-04-22 11:37:42 +0100 |
|---|---|---|
| committer | Nick White <git@njw.me.uk> | 2012-04-22 11:37:42 +0100 |
| commit | 6de5e3d06d6f55b4a4ac43e9f625e00d546fc634 (patch) | |
| tree | 0229e1d3d48fa48d7d8c59f9ef5ff6bb5cd27785 | |
| parent | 2f60852aee476241a1970a346c53d3eb308f72be (diff) | |
Fix bug which could delete input if clipboard was full
| -rwxr-xr-x | getxbookgui.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/getxbookgui.tcl b/getxbookgui.tcl index 69dd8c3..53d19e3 100755 --- a/getxbookgui.tcl +++ b/getxbookgui.tcl @@ -53,8 +53,10 @@ proc parseurl {url} { selbin 2 # isbn-13 isn't included in b&n book urls, sadly } - .input.id delete 0 end - .input.id insert 0 "$bookid" + if { "$bookid" != "" } { + .input.id delete 0 end + .input.id insert 0 "$bookid" + } } proc watchsel {} { |