[debian-users:30813] Re: tkdesk-ja のテキストエディターの " 元に戻す " について

[Masatoshi Suehiro <gully@xxxxxxxxxxxxx>]

末廣ともうします。10日ほど前の話題ですみませんが...

On Wed, Nov 21, 2001 at 12:41:49AM +0900,
 white wrote:

> tkdesk-jaのテキストエディターの編集の中の「元に戻す」が
> マウスポインターでは操作できないようになっているようです。

同封のパッチを /usr/lib/tkdesk/Editor.tcl にあてれば
うまく機能するようです。

＃ もしもパッチの文字コードが JIS になっていたら、
＃ EUC に変換してからあててやってください。
-- 
    末廣雅利 E-mail: gully@xxxxxxxxxxxxx

--- Editor.tcl.orig	Thu Sep 27 11:03:35 2001
+++ Editor.tcl	Wed Nov 21 01:49:14 2001
@@ -1260,7 +1260,7 @@
 	# prepare for undo
 	if !$undo_enabled($currentid) {
 	    set undo_enabled($currentid) 1
-	    catch {$top.fMenu.mbEdit.menu entryconfigure "Undo" -state normal}
+	    catch {$top.fMenu.mbEdit.menu entryconfigure "U 元に戻す" -state normal}
 	}
 	set ip [$top.ft.text index insert]
 	set selr [$top.ft.text tag ranges sel]
@@ -1383,7 +1383,7 @@
 	    incr undo_pointer($currentid) -1
 	    if {$undo_pointer($currentid) < 0} {
 		set undo_enabled($currentid) 0
-		$top.fMenu.mbEdit.menu entryconfigure "Undo" -state disabled
+		$top.fMenu.mbEdit.menu entryconfigure "U 元に戻す" -state disabled
 		set changed($currentid) 0
 		set file $buffer($currentid,file)
 		wm title $top "[cb_tilde $file collapse]"