From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 4 Jul 2009 19:54:56 +0000 (+0100)
Subject: Default cursor is LH one
X-Git-Tag: 1.9.2~14
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=8848415eea8db3c206dbc138732ff56ba51e83c6

Default cursor is LH one
---

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 24e1aa2..c1e983b 100755
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -731,7 +731,7 @@ proc startup_cursor {} {
     global glyphsdone unk_l unk_r
     
     set cur_already [expr {[llength $glyphsdone]/5-1}]
-    set cur_mode 1 ;# one of:   0 1 already text
+    set cur_mode 0 ;# one of:   0 1 already text
 
     set cur_0 $unk_l
     set cur_1 [expr {$unk_r+1}]