diff -Pcr tkdesk-1.2/Makefile.in tkdesk-1.2-jp/Makefile.in
*** tkdesk-1.2/Makefile.in	Mon Nov 15 07:07:45 1999
--- tkdesk-1.2-jp/Makefile.in	Fri Sep 15 17:46:38 2000
***************
*** 131,137 ****
  FVERSION =	12
  PKGDIR =	$(PKGNAME)-$(VERSION)
  
! all: shell client tkdesk_script
  	@echo "========= Build complete."
  	@echo " "
  	@echo "You can try out TkDesk before installing it by executing:"
--- 131,137 ----
  FVERSION =	12
  PKGDIR =	$(PKGNAME)-$(VERSION)
  
! all: shell client tkdesk_script man2text jisdecode catheader text2bin easypr setcap
  	@echo "========= Build complete."
  	@echo " "
  	@echo "You can try out TkDesk before installing it by executing:"
***************
*** 187,192 ****
--- 187,213 ----
  rm_tkdesk_script:
  	@rm -f tkdesk
  
+ man2text:
+ 	gcc -o man2text man2text.c
+ 
+ text2bin:
+ 	gcc -o text2bin text2bin.c
+ 
+ jisdecode:
+ 	gcc -o jisdecode jisdecode.c
+ 
+ catheader:
+ 	gcc -o catheader catheader.c
+ 
+ easypr:
+ 	echo '#!'`which wish` > easypr
+ 	cat easypr.in >> easypr
+ 	chmod +x easypr
+ 
+ setcap:
+ 	gcc -o setcap setcap.c
+ 	chmod +s setcap
+ 
  install: tkdesksh client rm_tkdesk_script tkdesk_script dirs
  	@chmod +x install-sh
  	@echo "=== Installing the executables..."
***************
*** 208,213 ****
--- 229,242 ----
  	    rm -f $(MAN1_INSTALL_DIR)/$$f ;\
  	    $(INSTALL_DATA) doc/$$f $(MAN1_INSTALL_DIR) ;\
  	done
+ 	cp man2text $(BIN_INSTALL_DIR)
+ 	cp text2bin $(BIN_INSTALL_DIR)
+ 	cp jisdecode $(BIN_INSTALL_DIR)
+ 	cp catheader $(BIN_INSTALL_DIR)
+ 	cp easypr $(BIN_INSTALL_DIR)
+ 	cp setcap $(BIN_INSTALL_DIR)
+ 	cp lpr2 $(BIN_INSTALL_DIR)
+ 	chmod 755 $(BIN_INSTALL_DIR)/lpr2
  	@echo "=== Installation complete."
  
  uninstall:
***************
*** 236,241 ****
--- 265,271 ----
  	cd tkdeskclient ; $(MAKE) clean
  	cd tcldesk ; rm -f #*#
  	rm -f *.o tkdesksh
+ 	rm -f *.o tkdesksh man2text jisdecode catheader text2bin easypr setcap
  
  tags:
  	find libdesk tcldesk \( -name "*.c" -o -name "*.h" -o -name "*.tcl" \) -print | etags -
diff -Pcr tkdesk-1.2/catheader.c tkdesk-1.2-jp/catheader.c
*** tkdesk-1.2/catheader.c	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/catheader.c	Fri Sep 15 17:46:38 2000
***************
*** 0 ****
--- 1,209 ----
+ #include <stdio.h>
+ #include <string.h>
+ 
+ void	decode(int *src) {
+ 	int	c,i,j,n,k;
+ 
+ 	n = 0;
+ 	i = 0;
+ 	j = 3;
+ 	do {
+ 		n |= (src[i] & 0x3f) << (j-- * 6);
+ 		if(j < 0) {
+ 			for(k = 2;k >= 0;k--) {
+ 				c = (n >> (k * 8)) & 0xff;
+ 				if(c != 0) putchar(c);
+ 			}
+ 			j = 3;
+ 			n = 0;
+ 		}
+ 	} while(src[i++] < 64);
+ 	for(k = 2;k >= 0;k--) {
+ 		c = (n >> (k * 8)) & 0xff;
+ 		if(c != 0) putchar(c);
+ 	}
+ }
+ 
+ void	subject(char *str) {
+ 	int	c,n,i,b,q;
+ 	int	num[1024];
+ 	char	scanbuf[3];
+ 
+ 	b = -1;
+ 	q = -1;
+ 	n = strlen(str);
+ 	for(i = 0;i < n;i++) {
+ 		if(strncmp(str + i,"=?iso-2022-jp?B?",16) ==  0) {
+ 			i += 16;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?ISO-2022-JP?B?",16) ==  0) {
+ 			i += 16;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?euc-jp?B?",11) ==  0) {
+ 			i += 11;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?EUC-JP?B?",11) ==  0) {
+ 			i += 11;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?shift_jis?B?",13) ==  0) {
+ 			i += 13;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?SHIFT_JIS?B?",13) ==  0) {
+ 			i += 13;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?iso-2022-jp?Q?",16) ==  0) {
+ 			i += 16;
+ 			q = 0;
+ 		}
+ 		if(strncmp(str + i,"=?ISO-2022-JP?Q?",16) ==  0) {
+ 			i += 16;
+ 			q = 0;
+ 		}
+ 		if(strncmp(str + i,"=?iso-8859-1?Q?",15) ==  0) {
+ 			i += 15;
+ 			q = 0;
+ 		}
+ 		if(strncmp(str + i,"=?ISO-8859-1?Q?",15) ==  0) {
+ 			i += 15;
+ 			q = 0;
+ 		}
+ 		if(b >= 0) {
+ 			if(isupper(str[i])) {
+ 				num[b++] = str[i] - 'A';
+ 			} else if(islower(str[i])) {
+ 				num[b++] = str[i] - 'a' + 26;
+ 			} else if(isdigit(str[i])) {
+ 				num[b++] = str[i] - '0' + 52;
+ 			} else if(str[i] == '+') {
+ 				num[b++] = 62;
+ 			} else if(str[i] == '/') {
+ 				num[b++] = 63;
+ 			} else if(str[i] == '?') {
+ 				num[b] = 64;
+ 				decode(num);
+ 				i++;
+ 				b = -1;
+ 			}
+ 		} else if(q == 0) {
+ 			if(str[i] == '=') {
+ 				if(isxdigit(str[i+1]) && isxdigit(str[i+2])) {
+ 					scanbuf[0] = str[++i];
+ 					scanbuf[1] = str[++i];
+ 					scanbuf[2] = '\0';
+ 					sscanf(scanbuf,"%x",&c);
+ 					putchar(c);
+ 				} else {
+ 					q = -1;
+ 					putchar(str[i]);
+ 				}
+ 			} else if(str[i] == '?' && str[i+1] == '=') {
+ 				q = -1;
+ 				i++;
+ 			} else {
+ 				putchar(str[i]);
+ 			}
+ 		}
+ 		else {
+ 			putchar(str[i]);
+ 		}
+ 	}
+ }
+ 
+ void rewrite(char *filename) {
+ 	char	buf[1024],bakname[64];
+ 	int	f,m;
+ 	FILE	*fpin,*fpout;
+ 
+ 	strcpy(bakname,filename);
+ 	strcat(bakname,".bak");
+ 	rename(filename,bakname);
+ 	f = 0;
+ 	m = 0;
+ 	fpin = fopen(bakname,"r");
+ 	fpout = fopen(filename,"w");
+ 	fgets(buf,1024,fpin);
+ 	while(!feof(fpin)) {
+ 		if(strlen(buf) <= 1 && m == 1) f = 1;
+ 		if(f == 0) {
+ 			if(strncmp(buf,"Message-Id: ",12) == 0) m = 1;
+ 			if(strncmp(buf,"Message-ID: ",12) == 0) m = 1;
+ 			if(strncmp(buf,"Message-id: ",12) == 0) m = 1;
+ 			if(strncmp(buf,"message-id: ",12) == 0) m = 1;
+ 			if(strncmp(buf,"MESSAGE-ID: ",12) == 0) m = 1;
+ 			if(strlen(buf) > 1) {
+ 				fputs(buf,fpout);
+ 			}
+ 		} else {
+ 			fputs(buf,fpout);
+ 		}
+ 		fgets(buf,1024,fpin);
+ 	}
+ 	fclose(fpin);
+ 	fclose(fpout);
+ 	unlink(bakname);
+ }
+ 
+ void main(int argc,char **argv) {
+ 	char	buf[1024],form[64],name[64];
+ 	char	*p;
+ 	FILE	*fp;
+ 	int	i,f,m,r;
+ 
+ 	strcpy(form,argv[1]);
+ 	strcat(form,"/%d");
+ 	i = 1;
+ 	sprintf(name,form,i);
+ 	fp = fopen(name,"r");
+ 	while(fp != NULL) {
+ 		f = 0;
+ 		m = 0;
+ 		r = 0;
+ 		fgets(buf,1024,fp);
+ 		buf[strlen(buf) - 1] = '\0';
+ 		printf("---- %d ----\n",i);
+ 		while(!feof(fp)) {
+ 			if(strlen(buf) <= 1) {
+ 				if(m == 0) r = 1;
+ 				else break;
+ 			}
+ 			p = buf;
+ 			if(buf[0] <= ' ') {
+ 				while(*p >= 0 && *p <= ' ') p++;
+ 			} else {
+ 				if(f == 1) putchar('\n');
+ 				f = 0;
+ 			}
+ 			if(strncmp(buf,"Subject: ",9) == 0) f = 1;
+ 			if(strncmp(buf,"subject: ",9) == 0) f = 1;
+ 			if(strncmp(buf,"SUBJECT: ",9) == 0) f = 1;
+ 			if(strncmp(buf,"From: ",6) == 0) f = 1;
+ 			if(strncmp(buf,"from: ",6) == 0) f = 1;
+ 			if(strncmp(buf,"FROM: ",6) == 0) f = 1;
+ 			if(strncmp(buf,"To: ",3) == 0) f = 1;
+ 			if(strncmp(buf,"to: ",3) == 0) f = 1;
+ 			if(strncmp(buf,"TO: ",3) == 0) f = 1;
+ 			if(strncmp(buf,"Date: ",6) == 0) f = 1;
+ 			if(strncmp(buf,"date: ",6) == 0) f = 1;
+ 			if(strncmp(buf,"DATE: ",6) == 0) f = 1;
+ 			if(strncmp(buf,"Message-Id: ",12) == 0) m = 1;
+ 			if(strncmp(buf,"Message-ID: ",12) == 0) m = 1;
+ 			if(strncmp(buf,"Message-id: ",12) == 0) m = 1;
+ 			if(strncmp(buf,"message-id: ",12) == 0) m = 1;
+ 			if(strncmp(buf,"MESSAGE-ID: ",12) == 0) m = 1;
+ 			if(f == 1) subject(p);
+ 			fgets(buf,1024,fp);
+ 			buf[strlen(buf) - 1] = '\0';
+ 		}
+ 		fclose(fp);
+ 		putchar('\n');
+ 		if(r == 1) rewrite(name);
+ 		sprintf(name,form,++i);
+ 		fp = fopen(name,"r");
+ 	}
+ }
\ No newline at end of file
diff -Pcr tkdesk-1.2/configure tkdesk-1.2-jp/configure
*** tkdesk-1.2/configure	Mon Nov 15 07:07:45 1999
--- tkdesk-1.2-jp/configure	Fri Sep 15 17:46:38 2000
***************
*** 653,659 ****
  echo $ac_n "checking version of Tcl/Tk""... $ac_c" 1>&6
  echo "configure:655: checking version of Tcl/Tk" >&5
  echo "$ac_t""$TCL_VERSION/$TK_VERSION" 1>&6
! TCL_VERSIONS_ALLOWED="7.5 7.6 8.0 8.1 8.2"
  if test -z "`echo $TCL_VERSIONS_ALLOWED | grep $TCL_VERSION`"; then
    echo
    echo TkDesk requires Tcl/Tk versions 7.5/4.1, 7.6/4.2., or 8.0.
--- 653,659 ----
  echo $ac_n "checking version of Tcl/Tk""... $ac_c" 1>&6
  echo "configure:655: checking version of Tcl/Tk" >&5
  echo "$ac_t""$TCL_VERSION/$TK_VERSION" 1>&6
! TCL_VERSIONS_ALLOWED="7.5 7.6 8.0 8.1 8.2 7.6jp 8.0jp"
  if test -z "`echo $TCL_VERSIONS_ALLOWED | grep $TCL_VERSION`"; then
    echo
    echo TkDesk requires Tcl/Tk versions 7.5/4.1, 7.6/4.2., or 8.0.
***************
*** 661,667 ****
    echo yet supported \(but hopefully will be soon\).
    exit 1
  fi
! TK_VERSIONS_ALLOWED="4.1 4.2 8.0 8.1 8.2"
  if test -z "`echo $TK_VERSIONS_ALLOWED | grep $TK_VERSION`"; then
    echo
    echo TkDesk requires Tcl/Tk versions 7.5/4.1, 7.6/4.2, or 8.0.
--- 661,667 ----
    echo yet supported \(but hopefully will be soon\).
    exit 1
  fi
! TK_VERSIONS_ALLOWED="4.1 4.2 8.0 8.1 8.2 4.2jp 8.0jp"
  if test -z "`echo $TK_VERSIONS_ALLOWED | grep $TK_VERSION`"; then
    echo
    echo TkDesk requires Tcl/Tk versions 7.5/4.1, 7.6/4.2, or 8.0.
diff -Pcr tkdesk-1.2/configure.in tkdesk-1.2-jp/configure.in
*** tkdesk-1.2/configure.in	Mon Nov 15 07:07:45 1999
--- tkdesk-1.2-jp/configure.in	Fri Sep 15 17:46:38 2000
***************
*** 94,100 ****
  # -----------------------------------------------------------------------
  AC_MSG_CHECKING(version of Tcl/Tk)
  AC_MSG_RESULT($TCL_VERSION/$TK_VERSION)
! TCL_VERSIONS_ALLOWED="7.5 7.6 8.0 8.1 8.2"
  if test -z "`echo $TCL_VERSIONS_ALLOWED | grep $TCL_VERSION`"; then
    echo
    echo [TkDesk requires Tcl/Tk versions 7.5/4.1, 7.6/4.2., or 8.0.]
--- 94,100 ----
  # -----------------------------------------------------------------------
  AC_MSG_CHECKING(version of Tcl/Tk)
  AC_MSG_RESULT($TCL_VERSION/$TK_VERSION)
! TCL_VERSIONS_ALLOWED="7.5 7.6 8.0 8.1 8.2 7.6jp 8.0jp"
  if test -z "`echo $TCL_VERSIONS_ALLOWED | grep $TCL_VERSION`"; then
    echo
    echo [TkDesk requires Tcl/Tk versions 7.5/4.1, 7.6/4.2., or 8.0.]
***************
*** 102,108 ****
    echo [yet supported \(but hopefully will be soon\).]
    exit 1
  fi
! TK_VERSIONS_ALLOWED="4.1 4.2 8.0 8.1 8.2"
  if test -z "`echo $TK_VERSIONS_ALLOWED | grep $TK_VERSION`"; then
    echo
    echo [TkDesk requires Tcl/Tk versions 7.5/4.1, 7.6/4.2, or 8.0.]
--- 102,108 ----
    echo [yet supported \(but hopefully will be soon\).]
    exit 1
  fi
! TK_VERSIONS_ALLOWED="4.1 4.2 8.0 8.1 8.2 4.2jp 8.0jp"
  if test -z "`echo $TK_VERSIONS_ALLOWED | grep $TK_VERSION`"; then
    echo
    echo [TkDesk requires Tcl/Tk versions 7.5/4.1, 7.6/4.2, or 8.0.]
diff -Pcr tkdesk-1.2/easypr.in tkdesk-1.2-jp/easypr.in
*** tkdesk-1.2/easypr.in	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/easypr.in	Fri Sep 15 17:50:23 2000
***************
*** 0 ****
--- 1,1441 ----
+ proc set_vendor {} {
+     .f2.f1.vendor insert end "¥¨¥×¥½¥ó"
+     .f2.f1.vendor insert end "¥­¥ã¥Î¥ó"
+     .f2.f1.vendor insert end "HP"
+     .f2.f1.vendor insert end "¥¢¥ë¥×¥¹"
+     .f2.f1.vendor insert end "ÆüËÜÅÅµ¤"
+     .f2.f1.vendor insert end "²­ÅÅµ¤"
+     .f2.f1.vendor insert end "GS¥É¥é¥¤¥Ð" 
+ }
+ 
+ proc set_type {x y} {
+     set n [.f2.f1.vendor index @$x,$y]
+     set_typen $n
+ }
+ 
+ proc set_typen {n} {
+     global gs
+ 
+     set vendor [.f2.f1.vendor get $n]
+     .f2.f1.type delete 0 end
+     switch $vendor {
+         "¥¨¥×¥½¥ó" {
+             foreach name {
+             	"PM-9000C" "PM-7000C" "PM-5000C" "PM-3300C" "PM-3000C" "PM-2000C" \
+             	"PM-800C" "PM-800DC" "PM-770C" "PM-760C" "PM-750C" \
+             	"PM-670C" "PM-700C" "PM-600C" "MJ-8000C" \
+                 "MJ-6000C" "MJ-5100C" "MJ-5000C" "MJ-3000CU" "MJ-930C" "MJ-910C" "MJ-900C" \
+                 "MJ-830C" "MJ-810C" "MJ-700V2C" "MJ-3000C" "MJ-800C" "MJ-520C" \
+                 "MJ-510C" "MJ-520C" "MJ-1100" "MJ-1050" "MJ-1050V2" "MJ-450" \
+                 "LP-2000" "LP-3000" "LP-7000" "LP-7000G" "LP-1000" "LP-1500" "LP-1500S" \
+                 "LP-8000" "LP-8000S" "LP-8000SE" "LP-8000SX" "LP-800" "LP-1600" \
+                 "LP-1700" "LP-1700S" "LP-1800" "LP-8200" "LP-8300" "LP-8300S" "LP-8400" \
+                 "LP-8500" "LP-8600" "LP-9000" "LP-9200" "LP-9200S" "LP-9200SX" \
+ 		"LP-8000C" "LP-8200C" "LP-3000C" "LP-8500C"} {
+ 		.f2.f1.type insert end $name
+             }
+         }
+         "¥­¥ã¥Î¥ó" {
+             foreach name {
+             	"BJ-F6000" "BJ-F600" "BJ-F200" "BJ-F100" \
+             	"BJC-880J" "BJC-680J" "BJC-80v" "BJC-50v" "BJC-35v" "BJC-35vII" \
+             	"BJC-700J" "BJC-610J" "BJC-600J" "BJC-455J" "BJC-465J" "BJC-400J" \
+             	"BJC-410J" "BJC-420J" "BJC-430J" "BJC-440J" "BJ-10v" "BJ-15v" \
+             	"LBP-2160" "LBP-2040" "LBP-2030" "LBP-850" "LBP-840" "LBP-930" "LBP-930EX" \
+             	"LBP-830" "LBP-750" "LBP-740" "LBP-730" "LBP-720" "LBP-450" \
+             	"LBP-430" "LPB-310" "LBP-320" "LBP-320Pro" "LBP-A309G II" "LBP-A304G II"\
+             	"LBP-A304E" "LBP-A304E II" "LBP-B404G" "LBP-B404G II" "LBP-B406E" \
+             	"LBP-B406E II" "LBP-B406D(lips3)" "LBP-B406S(lips3)" "LBP-A404F" \
+             	"LBP-A404G II" "LBP-A405Jr." "LBP-A404E" "LBP-A404(lips3)"} {
+                 .f2.f1.type insert end $name
+             }
+         }
+         "HP" {
+             foreach name {
+             	"DJ-970Cxi" "DJ-955C" "PS-P1100" "PS-P1000" "DJ-815C" \
+             	"DJ-1600C" "DJ-1120C" "DJ-1100C" "DJ-855C" "DJ-850C" "DJ-694C" \
+             	"DJ-690C" "DJ-680C" "DJ-890C" "DJ-895Cxi" "DJ-880C" "DJ-672C" "DJ-670C" \
+             	"DJ-1000C" "DJ-820C" "DJ-720C" "DJ-712C" "DJ-710C" \
+             	"LaserJet4" "LaserJet4L" "LaserJet Plus" "LaserJet5" "LaserJet5L" \
+             	"LaserJet6" "LaserJet6L" } {
+                 .f2.f1.type insert end $name
+             }
+         }
+         "¥¢¥ë¥×¥¹" {
+             foreach name {"MD-5000" "MD-4000J" "MD-2000J" "MD-1500J" "MD-1300J" "MD-1000J"} {
+                 .f2.f1.type insert end $name
+             }
+         }
+         "ÆüËÜÅÅµ¤" {
+             foreach name {"PICTY180" "PICTY700" "PICTY900" "PICTY4000" "PICTY920G" \
+                 "MultiWriter2400X" "MultiWriter2650" "MultiWriter2250" \
+                 "MultiWriter2050" "MultiWriter1400X" } {
+                 .f2.f1.type insert end $name
+             }
+         }
+         "²­ÅÅµ¤" {
+             foreach name {"MICROLINE-12n" "MICROLINE-620CL" "MICROLINE-600CL"} {
+                 .f2.f1.type insert end $name
+             }
+         }
+         "GS¥É¥é¥¤¥Ð" {
+             foreach name {"mjcxxx" "escp" "bjc600" "bj10v" "cdj1600" "cdj850" \
+                 "cdj880" "cdj890" "cdj670" "mdxxx" "lp2000" "escpage" "epag" \
+                 "lips4" "lips3" "ljet4 lj4dith" "lj5mono lj5gray" \
+                 "ljetplus" "npdl" "picty180" "picty180hi" "pbm2ppa" } {
+                 .f2.f1.type insert end $name
+             }
+         }
+     }
+     if {$gs(vendor) != $vendor} {
+         .f0.set configure -state disabled
+     }
+     set gs(vendor) $vendor
+ }
+ 
+ proc set_printer {x y} {
+     global gs
+ 
+     set n [.f2.f1.type index @$x,$y]
+     set gs(localattr) ""
+     set_printern $n
+ }
+ 
+ proc make_scale {wd title name f t m digit interval reso} {
+     frame $wd
+     pack $wd -side top -fill x
+     label $wd.f0 -text $title
+     scale $wd.f1 -from $f -to $t -digit $digit -tickinterval $interval \
+         -resolution $reso -sliderlength 20 -orient horizontal -variable gs($name) -length 256
+     pack $wd.f0 $wd.f1 -side left
+     $wd.f1 set $m
+ }
+ 
+ proc make_radio {wd title name texts values n} {
+     frame $wd
+     pack $wd -side top -fill x
+     label $wd.f0 -text $title
+     pack $wd.f0 -side left
+     set i 0
+     foreach text $texts {
+     	set value [lindex $values $i]
+     	incr i
+         radiobutton $wd.f$i -text $text -variable gs($name) -value $value
+         pack $wd.f$i -side left
+     }
+     $wd.f$n select
+ }
+ 
+ proc set_mjc {} {
+     global gs conffile uppfile
+ 
+     set device ""
+     foreach devs $gs(devlist) {
+         if {$gs(model) == "MJ-6000C" && $devs == "mj6000c"} {
+             set device $devs
+             break
+         }
+         if {$gs(model) == "MJ-8000C" && $devs == "mj8000c"} {
+             set device $devs
+             break
+         }
+         if {$devs == "mj700v2c"} {
+             set device $devs
+         }
+     }
+     if {$device == ""} {
+         switch $gs(reso) {
+             "180" {set device "mjc180"}
+             "360" {set device "mjc180"}
+             "720" {set device "mjc720"}
+         }
+     }
+     if {$gs(reso) == "1440x720"} {
+     	set fd [open $uppfile "w"]
+     	puts $fd "-supModel=\"Epson PM, 1440x720DpI, Special Paper\""
+         puts $fd "-sDEVICE=uniprint\n-dNOPAUSE\n-dSAFER\n-dupColorModel=/DeviceCMYKgenerate"
+         puts $fd "-dupRendering=/ErrorDiffusion\n-dupOutputFormat=/EscP2\n-r1440x720"
+         puts $fd "-dupMargins=\"{ 9.0 39.96 9.0 9.0}\""
+         puts $fd "-dupWeaveYPasses=6\n-dupOutputPins=20"
+         puts $fd "-dupWeaveYFeeds=\"{20 20 19 22 16 23}\""
+         puts $fd "-dupWeaveInitialYFeeds\"{1  1  1  1  1 19}\""
+         puts $fd "-dupWeaveInitialPins=\"{  4 20  7 17 10 13}\""
+         puts $fd "-dupBeginPageCommand=\"<"
+         puts $fd "   1b40   1b40"
+         puts $fd "   1b2847 0100 01"
+         puts $fd "   1b2855 0100 05"
+         puts $fd "   1b2843 0200 0000"
+         puts $fd "   1b2863 0400 0000 0000"
+         if {$gs(direct) == 1} {
+              puts $fd "   1b5500"
+         } else {
+              puts $fd "   1b5501"
+         }
+         puts $fd "   1b2865 0200 0002"
+         puts $fd "   1b284b 0200 0002"
+         puts $fd ">\""
+         puts $fd "-dupAdjustPageLengthCommand\n-dupAdjustTopMarginCommand"
+         puts $fd "-dupAdjustBottomMarginCommand\n-dupEndPageCommand=\"(\\033@\\014)\""
+         puts $fd "-dupAbortCommand=\"(\\033@\\15\\12\\12\\12\\12    Printout-Aborted\\15\\014)\""
+         close $fd
+         set fd [open $conffile "w"]
+         set_common $fd
+         puts $fd "$gs(reso) $gs(color) $gs(density) $gs(cyan) $gs(magenta) $gs(yellow) $gs(black) $gs(mw) $gs(dot) $gs(direct)"
+         set com "gs -q @$uppfile -sPAPERSIZE=$gs(size)"
+         puts $fd $com
+         close $fd
+     } else {
+         set direct $gs(direct)
+         incr direct
+         set fd [open $conffile "w"]
+         set_common $fd
+         puts $fd "$gs(reso) $gs(color) $gs(density) $gs(cyan) $gs(magenta) $gs(yellow) $gs(black) $gs(mw) $gs(dot) $gs(direct)"
+         set com "gs -q -sDEVICE=$device -sPAPERSIZE=$gs(size) -dDensity=$gs(density) -dCyan=$gs(magenta) -dMagenta=$gs(cyan) -dYellow=$gs(yellow) -dBlack=$gs(black) -dDirection=$direct -r$gs(reso)"
+         if {$gs(color) < 4} {
+             set com "$com -dColorComponent=$gs(color)"
+         }
+         if {$gs(mw) == 1} {
+             set com "$com -dMicroWeave=1"
+         }
+         if {$gs(dot) == 1} {
+             set com "$com -dDotSize=1"
+         }
+         puts $fd "$com"
+         close $fd
+     }
+     exit
+ }
+ 
+ proc set_mjc_attr {} {
+     global gs
+     if {$gs(localattr) != ""} {
+         set gs(reso) [lindex $gs(localattr) 0]
+         set gs(color) [lindex $gs(localattr) 1]
+         set gs(density) [lindex $gs(localattr) 2]
+         set gs(cyan) [lindex $gs(localattr) 3]
+         set gs(magenta) [lindex $gs(localattr) 4]
+         set gs(yellow) [lindex $gs(localattr) 5]
+         set gs(black) [lindex $gs(localattr) 6]
+         set gs(mw) [lindex $gs(localattr) 7]
+         set gs(dot) [lindex $gs(localattr) 8]
+         set gs(direct) [lindex $gs(localattr) 9]
+     }
+ }
+ 
+ proc set_md {} {
+     global gs conffile
+ 
+     set fd [open $conffile "w"]
+     set_common $fd
+     puts $fd "$gs(reso) $gs(color) $gs(dith) $gs(cyan) $gs(magenta) $gs(yellow) $gs(black)"
+     if {$gs(color) == "md50Eco"} {
+         puts $fd "gs -q -sDEVICE=md50Eco -sPAPERSIZE=$gs(size) -r$gs(reso)"
+     } else {
+         puts $fd "gs -q -sDEVICE=md2k -sPAPERSIZE=$gs(size) -dDither=$gs(dith) -dCyan=$gs(cyan) -dMagenta=$gs(magenta) -dYellow=$gs(yellow) -dBlack=$gs(black) -dColor=$gs(color) -r$gs(reso)"
+     }
+     close $fd
+     exit
+ }
+ 
+ proc set_md_attr {} {
+     global gs
+     if {$gs(localattr) != ""} {
+         set gs(reso) [lindex $gs(localattr) 0]
+         set gs(color) [lindex $gs(localattr) 1]
+         set gs(dith) [lindex $gs(localattr) 2]
+         set gs(cyan) [lindex $gs(localattr) 3]
+         set gs(magenta) [lindex $gs(localattr) 4]
+         set gs(yellow) [lindex $gs(localattr) 5]
+         set gs(black) [lindex $gs(localattr) 6]
+         if {$gs(color) == 0} {
+             .f2.f4.reso.f3 configure -state normal
+         }
+         if {$gs(color) == "md50Eco"} {
+             .f2.f4.etc.dith configure -state disabled
+         }
+     }
+ }
+ 
+ proc set_escpage {dev} {
+     global gs conffile
+ 
+     set fd [open $conffile "w"]
+     set_common $fd
+     puts $fd "$gs(reso) $gs(num) $gs(duplex) $gs(tumble)"
+     set com "gs -q -sDEVICE=$dev -sPAPERSIZE=$gs(size) -r$gs(reso) -dNumCopies=$gs(num)"
+     if {$gs(duplex) == 1} {set com "$com -dDuplex"}
+     if {$gs(tumble) == 1} {set com "$com -dTumble"}
+     puts $fd "$com"
+     close $fd
+     exit
+ }
+ 
+ proc set_escpage_attr {} {
+     global gs
+     if {$gs(localattr) != ""} {
+         set gs(reso) [lindex $gs(localattr) 0]
+         set gs(num) [lindex $gs(localattr) 1]
+         set gs(duplex) [lindex $gs(localattr) 2]
+         set gs(tumble) [lindex $gs(localattr) 3]
+     }
+ }
+ 
+ proc set_lips4_attr {} {
+     global gs
+     if {$gs(localattr) != ""} {
+         set gs(reso) [lindex $gs(localattr) 0]
+         set gs(driver) [lindex $gs(localattr) 1]
+         set gs(vector) [lindex $gs(localattr) 2]
+         set gs(num) [lindex $gs(localattr) 3]
+         set gs(duplex) [lindex $gs(localattr) 4]
+         set gs(tumble) [lindex $gs(localattr) 5]
+     }
+ }
+ 
+ proc set_lips4 {} {
+     global gs conffile
+ 
+     set fd [open $conffile "w"]
+     set_common $fd
+     puts $fd "$gs(reso) $gs(driver) $gs(vector) $gs(num) $gs(duplex) $gs(tumble)"
+     set col $gs(driver)
+     if {$gs(vector) == 1} {
+         set dev "lips4v"
+     } else {
+         set dev "lips4"
+     }
+     set com "gs -q -sDEVICE=$dev -sPAPERSIZE=$gs(size) -r$gs(reso)"
+     if {$col == "lips4c"} {
+         set com "$com -dBitsPerPixel=24"
+     }
+     puts $fd "$com"
+     close $fd
+     exit
+ }
+ 
+ proc set_ppa {hpconf} {
+     global gs conffile
+ 
+     set fd [open $conffile "w"]
+     set_common $fd
+     puts $fd "600"
+     puts $fd "gs -q -sDEVICE=pbm -sPAPERSIZE=$gs(size) -r600 | pbm2ppa -f $hpconf - - "
+     close $fd
+     exit
+ }
+ 
+ proc set_cdj880_attr {} {
+     global gs
+     if {$gs(localattr) != ""} {
+         set gs(reso) [lindex $gs(localattr) 0]
+         set gs(paper) [lindex $gs(localattr) 1]
+         set gs(quality) [lindex $gs(localattr) 2]
+         set gs(rit) [lindex $gs(localattr) 3]
+         set gs(gamma) [lindex $gs(localattr) 4]
+     }
+ }
+ 
+ proc set_cdj880 {dev} {
+     global gs conffile
+ 
+     set fd [open $conffile "w"]
+     set_common $fd
+     puts $fd "$gs(reso) $gs(paper) $gs(quality) $gs(rit) $gs(gamma)"
+     set com "gs -q -sDEVICE=$dev -sPAPERSIZE=$gs(size) -r$gs(reso) -dPapertype=$gs(paper) -dRetStatus=$gs(rit) -dMasterGamma=$gs(gamma)"
+     if {$gs(quality) != 0} {
+         set com "$com -dQuality=$gs(quality)"
+     }
+     puts $fd $com
+     close $fd
+     exit
+ }
+ 
+ proc set_general_attr {} {
+     global gs
+     if {$gs(localattr) != ""} {
+         set gs(reso) [lindex $gs(localattr) 0]
+     }
+ }
+ 
+ proc set_general {dev} {
+     global gs conffile
+ 
+     set fd [open $conffile "w"]
+     set_common $fd
+     puts $fd $gs(reso)
+     puts $fd "gs -q -sDEVICE=$dev -sPAPERSIZE=$gs(size) -r$gs(reso)"
+     close $fd
+     exit
+ }
+ 
+ proc set_general_opt_attr {opt} {
+     global gs
+     if {$gs(localattr) != ""} {
+         set gs(reso) [lindex $gs(localattr) 0]
+         set gs($opt) [lindex $gs(localattr) 1]
+     }
+ }
+ 
+ proc set_general_opt {dev opt} {
+     global gs conffile
+ 
+     set fd [open $conffile "w"]
+     set_common $fd
+     puts $fd "$gs(reso) $gs($opt)"
+     puts $fd "gs -q -sDEVICE=$dev -sPAPERSIZE=$gs(size) -r$gs(reso)"
+     close $fd
+     exit
+ }
+ 
+ proc set_printern {n} {
+     global gs
+ 
+     set type [.f2.f1.type get $n]
+     set gs(model) $type
+     catch {
+     	destroy .f2.f4
+     }
+     switch $type {
+         "MJ-3000C" -
+         "MJ-800C" -
+         "MJ-520C" -
+         "MJ-510C" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {180 360} {180 360} 2
+             make_radio .f2.f4.color ¥¤¥ó¥¯ color {3¿§(CMY) ¹õ} {3 1} 1
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.direct -text "ÁÐÊý¸þ" -variable gs(direct)
+             pack .f2.f4.etc.direct -side left
+             make_scale .f2.f4.density "Ì©ÅÙ" density 0 2048 1024 4 512 16
+             make_scale .f2.f4.cyan "¿å¿§" cyan 0 2048 1024 4 512 16
+             make_scale .f2.f4.magenta "»ç¿§" magenta 0 2048 1024 4 512 16
+             make_scale .f2.f4.yellow "²«¿§" yellow 0 2048 1024 4 512 16
+             set gs(black) 1024
+             set gs(mw) 0
+             set gs(dot) 0
+             set_mjc_attr
+             .f0.set configure -command set_mjc
+         }
+         "PM-3300C" -
+         "PM-3000C" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {180 360 720 1440x720} {180 360 720 1440x720} 2
+             make_radio .f2.f4.color ¥¤¥ó¥¯ color {4¿§(CMYK) 3¿§(CMY) ¹õ} {4 3 1} 1
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.mw -text "¥Þ¥¤¥¯¥í¥¦¥£¡¼¥Ö" -variable gs(mw)
+             pack .f2.f4.etc.mw -side left
+             checkbutton .f2.f4.etc.dot -text "½Ì¾®¥É¥Ã¥È" -variable gs(dot)
+             pack .f2.f4.etc.dot -side left
+             checkbutton .f2.f4.etc.direct -text "ÁÐÊý¸þ" -variable gs(direct)
+             pack .f2.f4.etc.direct -side left
+             make_scale .f2.f4.density "Ì©ÅÙ" density 0 2048 1024 4 512 16
+             make_scale .f2.f4.black "Ç»Ã¸" black 0 2048 1024 4 512 16
+             make_scale .f2.f4.cyan "¿å¿§" cyan 0 2048 1024 4 512 16
+             make_scale .f2.f4.magenta "»ç¿§" magenta 0 2048 1024 4 512 16
+             make_scale .f2.f4.yellow "²«¿§" yellow 0 2048 1024 4 512 16
+             set_mjc_attr
+             .f0.set configure -command set_mjc
+         }
+         "PM-9000C" -
+         "PM-7000C" -
+         "PM-800C" -
+         "PM-800DC" -
+         "PM-670C" -
+         "PM-750C" -
+         "PM-770C" -
+         "PM-5000C" -
+         "PM-2000C" -
+         "PM-600C" -
+         "PM-760C" -
+         "PM-700C" -
+         "MJ-8000C" -
+         "MJ-6000C" -
+         "MJ-5100C" -
+         "MJ-5000C" -
+         "MJ-3000CU" -
+         "MJ-930C" -
+         "MJ-910C" -
+         "MJ-900C" -
+         "MJ-830C" -
+         "MJ-810C" -
+         "MJ-700V2C" -
+         "mjcxxx" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {180 360 720} {180 360 720} 2
+             make_radio .f2.f4.color ¥¤¥ó¥¯ color {4¿§(CMYK) 3¿§(CMY) ¹õ} {4 3 1} 1
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.mw -text "¥Þ¥¤¥¯¥í¥¦¥£¡¼¥Ö" -variable gs(mw)
+             pack .f2.f4.etc.mw -side left
+             checkbutton .f2.f4.etc.dot -text "½Ì¾®¥É¥Ã¥È" -variable gs(dot)
+             pack .f2.f4.etc.dot -side left
+             checkbutton .f2.f4.etc.direct -text "ÁÐÊý¸þ" -variable gs(direct)
+             pack .f2.f4.etc.direct -side left
+             make_scale .f2.f4.density "Ì©ÅÙ" density 0 2048 1024 4 512 16
+             make_scale .f2.f4.black "Ç»Ã¸" black 0 2048 1024 4 512 16
+             make_scale .f2.f4.cyan "¿å¿§" cyan 0 2048 1024 4 512 16
+             make_scale .f2.f4.magenta "»ç¿§" magenta 0 2048 1024 4 512 16
+             make_scale .f2.f4.yellow "²«¿§" yellow 0 2048 1024 4 512 16
+             set_mjc_attr
+             .f0.set configure -command set_mjc
+         }
+         "MJ-1100" -
+         "MJ-1050" -
+         "MJ-1050V2" -
+         "MJ-450" -
+         "escp" {
+             set gs(reso) 180
+             .f0.set configure -command "set_general escp"
+         }
+         "epag" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             set_general_attr
+             .f0.set configure -command "set_general epag"
+         }
+         "LP-2000" -
+         "LP-3000" {
+             set gs(reso) 240
+             .f0.set configure -command "set_general lp2000"
+         }
+         "LP-7000" -
+         "LP-7000G" {
+             set gs(reso) 300
+             .f0.set configure -command "set_general lp2000"
+         }
+         "lp2000" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {240 300} {240 300} 2
+             set_general_attr
+             .f0.set configure -command "set_general lp2000"
+         }
+         "LP-1000" -
+         "LP-1500" - 
+         "LP-1500S" -
+         "LP-8000" -
+         "LP-8000S" -
+         "LP-8000SE" -
+         "LP-8000SX" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.duplex -text "Î¾ÌÌ°õºþ" -variable gs(duplex)
+             pack .f2.f4.etc.duplex -side left
+             checkbutton .f2.f4.etc.tumble -text "Ã»ÊÕ¤È¤¸" -variable gs(tumble)
+             pack .f2.f4.etc.tumble -side left
+             make_scale .f2.f4.num "Éô¿ô" num 1 255 1 3 64 1
+             set gs(reso) 300
+             set_escpage_attr
+             .f0.set configure -command
+         }
+         "LP-800" -
+         "LP-1600" -
+         "LP-1700" -
+         "LP-1700S" -
+         "LP-1800" -
+         "LP-8200" -
+         "LP-8300" -
+         "LP-8300S" -
+         "LP-8400" -
+         "LP-8500" -
+         "LP-8600" -
+         "LP-9000" -
+         "LP-9200" -
+         "LP-9200S" -
+         "LP-9200SX" -
+         "escpage" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.duplex -text "Î¾ÌÌ°õºþ" -variable gs(duplex)
+             pack .f2.f4.etc.duplex -side left
+             checkbutton .f2.f4.etc.tumble -text "Ã»ÊÕ¤È¤¸" -variable gs(tumble)
+             pack .f2.f4.etc.tumble -side left
+             make_scale .f2.f4.num "Éô¿ô" num 1 255 1 3 64 1
+             set_escpage_attr
+             .f0.set configure -command "set_escpage escpage"
+ 	}
+ 	"LP-8000C" -
+ 	"LP-8200C" -
+ 	"LP-3000C" -
+ 	"LP-8500C" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.duplex -text "Î¾ÌÌ°õºþ" -variable gs(duplex)
+             pack .f2.f4.etc.duplex -side left
+             checkbutton .f2.f4.etc.tumble -text "Ã»ÊÕ¤È¤¸" -variable gs(tumble)
+             pack .f2.f4.etc.tumble -side left
+             make_scale .f2.f4.num "Éô¿ô" num 1 255 1 3 64 1
+ 	    switch $type {
+ 		"LP-8000C" {set dev_name lp8000c}
+ 		"LP-8200C" {set dev_name lp8200c}
+ 		"LP-3000C" {set dev_name lp3000c}
+ 		"LP-8500C" {set dev_name lp8500c}
+ 	    }
+             set_escpage_attr
+             .f0.set configure -command "set_escpage $dev_name"
+         }
+         "BJC-880J" -
+         "BJC-680J" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.color ¿§ driver {Çò¹õ ¥«¥é¡¼} {lips4 lips4c} 1
+             set gs(reso) 360x360
+             set_general_opt_attr driver
+             .f0.set configure -command {set_general_opt $gs(driver) driver}
+         }
+         "BJ-F6000" -
+         "BJ-F600" -
+         "BJ-F200" -
+         "BJ-F100" -
+         "BJC-80v" -
+         "BJC-50v" -
+         "BJC-35v" -
+         "BJC-35vII" -
+         "BJC-455J" -
+         "BJC-465J" -
+         "BJC-400J" -
+         "BJC-410J" -
+         "BJC-420J" -
+         "BJC-430J" -
+         "BJC-440J" -
+         "BJC-610J" -
+         "BJC-600J" -
+         "bjc600" {
+             set gs(reso) 360
+             .f0.set configure -command "set_general bjc600"
+         }
+         "BJC-700J" {
+             set gs(reso) 600
+             .f0.set configure -command "set_general bjc600"
+         }
+         "BJ-10v" -
+         "BJ-15v" -
+         "bj10v" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {180x180 360x180 360x360} {180x180 360x180 360x360} 3
+             set_general_attr
+             .f0.set configure -command "set_general bj10v"
+         }
+         "LBP-2160" -
+         "LBP-2040" -
+         "LBP-2030" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {360 600} 2
+             make_radio .f2.f4.color ¿§ driver {Çò¹õ ¥«¥é¡¼} {lips4 lips4c} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.vector -text "¥Ù¥¯¥¿¡¼" -variable gs(vector)
+             pack .f2.f4.etc.vector -side left
+             checkbutton .f2.f4.etc.duplex -text "Î¾ÌÌ°õºþ" -variable gs(duplex)
+             pack .f2.f4.etc.duplex -side left
+             checkbutton .f2.f4.etc.tumble -text "Ã»ÊÕ¤È¤¸" -variable gs(tumble)
+             pack .f2.f4.etc.tumble -side left
+             make_scale .f2.f4.num "Éô¿ô" num 1 255 1 3 64 1
+             set_lips4_attr
+             .f0.set configure -command set_lips4
+         }
+         "LBP-850" -
+         "LBP-840" -
+         "lips4" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600 1200} {300 600 1200} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.vector -text "¥Ù¥¯¥¿¡¼" -variable gs(vector)
+             pack .f2.f4.etc.vector -side left
+             checkbutton .f2.f4.etc.duplex -text "Î¾ÌÌ°õºþ" -variable gs(duplex)
+             pack .f2.f4.etc.duplex -side left
+             checkbutton .f2.f4.etc.tumble -text "Ã»ÊÕ¤È¤¸" -variable gs(tumble)
+             pack .f2.f4.etc.tumble -side left
+             make_scale .f2.f4.num "Éô¿ô" num 1 255 1 3 64 1
+             set gs(driver) lips4
+             set_lips4_attr
+             .f0.set configure -command 
+         }
+         "LBP-930" -
+         "LBP-930EX" -
+         "LBP-830" -
+         "LBP-750" -
+         "LBP-740" -
+         "LBP-730" -
+         "LBP-720" -
+         "LBP-450" -
+         "LBP-430" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.duplex -text "Î¾ÌÌ°õºþ" -variable gs(duplex)
+             pack .f2.f4.etc.duplex -side left
+             checkbutton .f2.f4.etc.tumble -text "Ã»ÊÕ¤È¤¸" -variable gs(tumble)
+             pack .f2.f4.etc.tumble -side left
+             make_scale .f2.f4.num "Éô¿ô" num 1 255 1 3 64 1
+             set gs(driver) lips4
+             set gs(vector) 0
+             set_lips4_attr
+             .f0.set configure -command set_lips4
+         }
+         "LPB-310" -
+         "LBP-320" -
+         "LBP-320Pro" -
+         "LBP-A309G II" -
+         "LBP-A304G II" -
+         "LBP-A304E" -
+         "LBP-A304E II" -
+         "LBP-B404G" -
+         "LBP-B404G II" -
+         "LBP-B406E" -
+         "LBP-B406E II" -
+         "LBP-B406D(lips3)" -
+         "LBP-B406S(lips3)" -
+         "LBP-A404F" -
+         "LBP-A404G II" -
+         "LBP-A405Jr." -
+         "LBP-A404E" -
+         "LBP-A404(lips3)" {
+             set gs(reso) 300
+             .f0.set configure -command "set_general lips3"
+         }
+       	"DJ-1600C" -
+       	"cdj1600" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             make_radio .f2.f4.paper »æ paper {ÉáÄÌ ¾å¼Á ÀìÍÑ ¸÷Âô Æ©²á} {0 1 2 3 4 5} 1
+             make_radio .f2.f4.quality ÉÊ¼Á quality {¥É¥é¥Õ¥È ¹âÉÊ°Ì ¹âÀººÙ} {-1 0 1} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.rit -text "¥«¥é¡¼¥¹¥Þ¡¼¥È" -variable gs(rit)
+             pack .f2.f4.etc.rit -side left
+             make_scale .f2.f4.gamma "¥¬¥ó¥ÞÄ´À°" gamma 1 10 3 3 2 0.1
+             set gs(rit) 1
+             set_cdj880_attr
+             .f0.set configure -command "set_cdj880 cdj1600"
+       	}
+         "DJ-970Cxi" -
+         "DJ-955C" -
+         "PS-P1100" -
+         "PS-P1000" -
+         "DJ-815C" -
+       	"DJ-1120C" -
+       	"DJ-1100C" -
+       	"DJ-855C" -
+       	"DJ-850C" -
+       	"DJ-694C" -
+       	"DJ-690C" -
+       	"DJ-680C" -
+       	"PICTY4000" -
+       	"cdj850" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             make_radio .f2.f4.paper »æ paper {ÉáÄÌ ¾å¼Á ÀìÍÑ ¸÷Âô Æ©²á} {0 1 2 3 4 5} 1
+             make_radio .f2.f4.quality ÉÊ¼Á quality {¥É¥é¥Õ¥È ¹âÉÊ°Ì ¹âÀººÙ} {-1 0 1} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.rit -text "¥«¥é¡¼¥¹¥Þ¡¼¥È" -variable gs(rit)
+             pack .f2.f4.etc.rit -side left
+             make_scale .f2.f4.gamma "¥¬¥ó¥ÞÄ´À°" gamma 1 10 3 3 2 0.1
+             set gs(rit) 1
+             set_cdj880_attr
+             .f0.set configure -command "set_cdj880 cdj850"
+       	}
+       	"DJ-890C" -
+       	"cdj890" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             make_radio .f2.f4.paper »æ paper {ÉáÄÌ ¾å¼Á ÀìÍÑ ¸÷Âô Æ©²á} {0 1 2 3 4 5} 1
+             make_radio .f2.f4.quality ÉÊ¼Á quality {¥É¥é¥Õ¥È ¹âÉÊ°Ì ¹âÀººÙ} {-1 0 1} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.rit -text "¥«¥é¡¼¥¹¥Þ¡¼¥È" -variable gs(rit)
+             pack .f2.f4.etc.rit -side left
+             make_scale .f2.f4.gamma "¥¬¥ó¥ÞÄ´À°" gamma 1 10 3 3 2 0.1
+             set gs(rit) 1
+             set_cdj880_attr
+             .f0.set configure -command "set_cdj880 cdj890"
+       	}
+       	"DJ-895Cxi" -
+       	"DJ-880C" -
+       	"PICTY920G" -
+       	"PICTY900" -
+       	"PICTY700" -
+       	"cdj880" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             make_radio .f2.f4.paper »æ paper {ÉáÄÌ ¾å¼Á ÀìÍÑ ¸÷Âô Æ©²á} {0 1 2 3 4 5} 1
+             make_radio .f2.f4.quality ÉÊ¼Á quality {¥É¥é¥Õ¥È ¹âÉÊ°Ì ¹âÀººÙ} {-1 0 1} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.rit -text "¥«¥é¡¼¥¹¥Þ¡¼¥È" -variable gs(rit)
+             pack .f2.f4.etc.rit -side left
+             make_scale .f2.f4.gamma "¥¬¥ó¥ÞÄ´À°" gamma 1 10 3 3 2 0.1
+             set gs(rit) 1
+             set_cdj880_attr
+             .f0.set configure -command "set_cdj880 cdj880"
+       	}
+       	"DJ-672C" -
+       	"DJ-670C" -
+       	"cdj670" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             make_radio .f2.f4.paper »æ paper {ÉáÄÌ ¾å¼Á ÀìÍÑ ¸÷Âô Æ©²á} {0 1 2 3 4 5} 1
+             make_radio .f2.f4.quality ÉÊ¼Á quality {¥É¥é¥Õ¥È ¹âÉÊ°Ì ¹âÀººÙ} {-1 0 1} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.rit -text "¥«¥é¡¼¥¹¥Þ¡¼¥È" -variable gs(rit)
+             pack .f2.f4.etc.rit -side left
+             make_scale .f2.f4.gamma "¥¬¥ó¥ÞÄ´À°" gamma 1 10 3 3 2 0.1
+             set gs(rit) 1
+             set_cdj880_attr
+             .f0.set configure -command "set_cdj880 cdj670"
+       	}
+         "PICTY180" -
+         "picty180" {
+             set gs(reso) 300
+             .f0.set configure -command "set_general picty180"
+         }
+         "picty180hi" {
+             set gs(reso) 300
+             .f0.set configure -command "set_general picty180hi"
+         }
+         "DJ-1000C" {
+              .f0.set configure -command "set_ppa /etc/pbm2ppa.conf.hp1000"
+         }
+         "DJ-720C" -
+         "DJ-712C" -
+         "DJ-710C" {
+              .f0.set configure -command "set_ppa /etc/pbm2ppa.conf.hp720"
+         }
+         "DJ-820C" -
+         "pbm2ppa" {
+             .f0.set configure -command "set_ppa /etc/pbm2ppa.conf.hp820"
+         }
+         "LaserJet Plus" -
+       	"ljetplus" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {100 150 300} {100 150 300} 3
+             set_general_attr
+             .f0.set configure -command "set_general ljetplus"
+       	}
+       	"LaserJet4" -
+       	"LaserJet4L" -
+       	"LaserJet5L" -
+       	"LaserJet6L" -
+         "MICROLINE-12n" -
+         "ljet4 lj4dith" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {100 150 300 600} {100 150 300 600} 4
+             make_radio .f2.f4.driver ³¬Ä´ driver {2³¬Ä´ ¥Ï¡¼¥Õ¥È¡¼¥ó} {ljet4 lj4dith} 1
+             set_general_opt_attr driver
+             .f0.set configure -command {set_general_opt $gs(driver) driver}
+       	}
+       	"LaserJet5" -
+       	"LaserJet6" -
+       	"lj5mono lj5gray" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600} {300 600} 2
+             make_radio .f2.f4.driver ³¬Ä´ driver {2³¬Ä´ ¥Ï¡¼¥Õ¥È¡¼¥ó} {lj5mono lj5gray} 1
+             set_general_opt_attr driver
+             .f0.set configure -command {set_general_opt $gs(driver) driver}
+         }
+         "MICROLINE-620CL" -
+         "MICROLINE-600CL" -
+         "ml600" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300x300 600x600 600x1200} {300x300 600x600 600x1200} 3
+             set_general_attr
+             .f0.set configure -command "set_general ml600"
+         }
+         "MD-5000" -
+         "mdxxx" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.color ¥¤¥ó¥¯ color {¥«¥é¡¼ Çò¹õ ¥¨¥³¥Ö¥é¥Ã¥¯} {1 0 md50Eco} 1
+             .f2.f4.color.f1 configure -command {
+             	global gs
+                 .f2.f4.reso.f3 configure -state disabled
+                 .f2.f4.etc.dith configure -state normal
+                 set gs(reso) 600
+             }
+             .f2.f4.color.f2 configure -command {
+             	global gs
+                 .f2.f4.reso.f3 configure -state normal
+                 .f2.f4.etc.dith configure -state normal
+             }
+             .f2.f4.color.f3 configure -command {
+             	global gs
+                 .f2.f4.reso.f3 configure -state disabled
+                 .f2.f4.etc.dith configure -state disabled
+                 set gs(reso) 600
+                 set gs(dith) 0
+             }
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600 1200x600} {300 600 1200x600} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.dith -text "¥Ç¥£¥¶¥ê¥ó¥¯" -variable gs(dith)
+             pack .f2.f4.etc.dith -side left
+             make_scale .f2.f4.black "Ç»Ã¸" black 0 2048 1024 4 512 16
+             make_scale .f2.f4.cyan "¿å¿§" cyan 0 2048 1024 4 512 16
+             make_scale .f2.f4.magenta "»ç¿§" magenta 0 2048 1024 4 512 16
+             make_scale .f2.f4.yellow "²«¿§" yellow 0 2048 1024 4 512 16
+             .f2.f4.reso.f3 configure -state disabled
+             set_md_attr
+             .f0.set configure -command set_md
+         }
+         "MD-4000J" -
+         "MD-2000J" -
+         "MD-1500J" -
+         "MD-1300J" -
+         "MD-1000J" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.color ¥¤¥ó¥¯ color {¥«¥é¡¼ Çò¹õ} {1 0} 1
+             .f2.f4.color.f1 configure -command {
+             	global gs
+                 .f2.f4.reso.f3 configure -state disabled
+                 set gs(reso) 600
+             }
+             .f2.f4.color.f2 configure -command {
+             	global gs
+                 .f2.f4.reso.f3 configure -state normal
+             }
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {300 600 1200x600} {300 600 1200x600} 2
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.dith -text "¥Ç¥£¥¶¥ê¥ó¥¯" -variable gs(dith)
+             pack .f2.f4.etc.dith -side left
+             make_scale .f2.f4.black "Ç»Ã¸" black 0 2048 1024 4 512 16
+             make_scale .f2.f4.cyan "¿å¿§" cyan 0 2048 1024 4 512 16
+             make_scale .f2.f4.magenta "»ç¿§" magenta 0 2048 1024 4 512 16
+             make_scale .f2.f4.yellow "²«¿§" yellow 0 2048 1024 4 512 16
+             .f2.f4.reso.f3 configure -state disabled
+             set_md_attr
+             .f0.set configure -command set_md
+         }
+         "MultiWriter2400X" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {160 200 240 400} {160 200 240 400} 4
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.duplex -text "Î¾ÌÌ°õºþ" -variable gs(duplex)
+             pack .f2.f4.etc.duplex -side left
+             checkbutton .f2.f4.etc.tumble -text "Ã»ÊÕ¤È¤¸" -variable gs(tumble)
+             pack .f2.f4.etc.tumble -side left
+             make_scale .f2.f4.num "Éô¿ô" num 1 99 1 2 20 1
+             set_escpage_attr
+             .f0.set configure -command "set_escpage npdl"
+         }
+         "MultiWriter2650" -
+         "MultiWriter2250" -
+         "MultiWriter2050" -
+         "MultiWriter1400X" -
+         "npdl" {
+             frame .f2.f4
+             pack .f2.f4 -side left -fill both
+             make_radio .f2.f4.reso ²òÁüÅÙ(DPI) reso {160 200 240 400 600} {160 200 240 400 600} 5
+             frame .f2.f4.etc
+             pack .f2.f4.etc -side top -fill x
+             checkbutton .f2.f4.etc.duplex -text "Î¾ÌÌ°õºþ" -variable gs(duplex)
+             pack .f2.f4.etc.duplex -side left
+             checkbutton .f2.f4.etc.tumble -text "Ã»ÊÕ¤È¤¸" -variable gs(tumble)
+             pack .f2.f4.etc.tumble -side left
+             make_scale .f2.f4.num "Éô¿ô" num 1 99 1 2 20 1
+             set_escpage_attr
+             .f0.set configure -command "set_escpage npdl"
+         }
+     }
+     set gs(type) $type
+     if {$gs(vendor) != "" && $type != ""} {
+         .f3.msg configure -text "¸½ºß¤ÎÀßÄê¤Ï¡¢$gs(vendor)¤Î$type ¤Ç¤¹¡£"
+         .f0.set configure -state normal
+     } else {
+         .f3.msg configure -text "¥×¥ê¥ó¥¿¤¬ÀßÄê¤µ¤ì¤Æ¤¤¤Þ¤»¤ó"
+         .f0.set configure -state disabled
+     }
+ }
+ 
+ proc set_common {fd} {
+     global gs
+ 
+     set pages [.f2.f3.p5 get]
+     if {$pages == ""} {set pages "none"}
+     puts $fd "$gs(vendor) $gs(type) $gs(size) $gs(orient) $gs(page) $pages $gs(multi)"
+ }
+ 
+ proc dsk_print_setup {} {
+     global gs env
+ 
+     set gsfd [open "| gs \-h" r]
+     set flag 0
+     set devices ""
+     while {[gets $gsfd gsline] >= 0} {
+       if {$gsline == "Search path:"} {set flag 0}
+       if {$flag == 1} {set devices "$devices $gsline"}
+       if {$gsline == "Available devices:"} {set flag 1}
+     }
+     close $gsfd
+     set gs(devlist) $devices
+     frame .f1
+     pack .f1 -side top -fill x
+     label .f1.title -text "¥×¥ê¥ó¥¿¤ÎÀßÄê Ver 0.70    2000/8/21" -fg darkgreen -bg orange
+     pack .f1.title -fill x -ipady 8 -ipadx 8
+ 
+     frame .f3
+     pack .f3 -side top -fill x -pady 2
+     label .f3.msg -anchor w -text "¥×¥ê¥ó¥¿¤¬ÀßÄê¤µ¤ì¤Æ¤¤¤Þ¤»¤ó" -bg peachpuff -fg navy
+     pack .f3.msg -fill x -ipady 2
+ 
+     frame .f2
+     pack .f2 -side top -fill y -expand true
+     frame .f2.f1
+     pack .f2.f1 -side left -fill y -expand true
+     listbox .f2.f1.vendor -width 10 -yscroll ".f2.f1.vendory set"
+     pack .f2.f1.vendor -side left -fill y -expand true
+     bind .f2.f1.vendor <Double-Button-1> "set_type %x %y"
+     scrollbar .f2.f1.vendory -orient vertical -width 10 -command "yview"
+     pack .f2.f1.vendory -side left -fill y -expand true
+     listbox .f2.f1.type -width 16 -yscroll ".f2.f1.typey set"
+     pack .f2.f1.type -side left -fill y -expand true
+     bind .f2.f1.type <Double-Button-1> "set_printer %x %y"
+     scrollbar .f2.f1.typey -orient vertical -width 10 -command ".f2.f1.type yview"
+     pack .f2.f1.typey -side left -fill y -expand true
+ 
+     frame .f2.f2
+     pack .f2.f2 -side left -fill y
+     label .f2.f2.s0 -text "ÍÑ»æ¥µ¥¤¥º"
+     radiobutton .f2.f2.s1 -text "A3" -variable gs(size) -value "a3" -anchor w
+     radiobutton .f2.f2.s2 -text "B4" -variable gs(size) -value "b4" -anchor w
+     radiobutton .f2.f2.s3 -text "A4" -variable gs(size) -value "a4" -anchor w
+     radiobutton .f2.f2.s4 -text "B5" -variable gs(size) -value "b5" -anchor w
+     radiobutton .f2.f2.s5 -text "A5" -variable gs(size) -value "a5" -anchor w
+     radiobutton .f2.f2.s6 -text "¥ì¥¿¡¼" -variable gs(size) -value "letter" -anchor w
+     pack .f2.f2.s0 .f2.f2.s1 .f2.f2.s2 .f2.f2.s3 .f2.f2.s4 .f2.f2.s5 .f2.f2.s6 -side top -fill x
+     .f2.f2.s3 select
+     label .f2.f2.o0 -text "ÍÑ»æÊý¸þ"
+     radiobutton .f2.f2.o1 -text "½Ä" -variable gs(orient) -value "portrait" -anchor w
+     radiobutton .f2.f2.o2 -text "²£" -variable gs(orient) -value "landscape" -anchor w
+     pack .f2.f2.o0 .f2.f2.o1 .f2.f2.o2 -side top -fill x
+     .f2.f2.o1 select
+ 
+     frame .f2.f3
+     pack .f2.f3 -side left -fill y
+     label .f2.f3.p0 -text "¥Ú¡¼¥¸"
+     radiobutton .f2.f3.p1 -text "Á´¤Æ°õºþ" -variable gs(page) -value "all" -anchor w
+     radiobutton .f2.f3.p2 -text "¥Ú¡¼¥¸»ØÄê" -variable gs(page) -value "page" -anchor w
+     label .f2.f3.p6 -text "ÈÏ°Ï»ØÄêÎã: 1-5" -fg blue
+     label .f2.f3.p7 -text "¸ÄÊÌ»ØÄêÎã: 1,4" -fg blue
+     radiobutton .f2.f3.p3 -text "´ñ¿ô°õºþ" -variable gs(page) -value "odd" -anchor w
+     radiobutton .f2.f3.p4 -text "¶ö¿ô°õºþ" -variable gs(page) -value "even" -anchor w
+     entry .f2.f3.p5 -width 9 -bg white
+     pack .f2.f3.p0 .f2.f3.p1 .f2.f3.p2 -fill x -side top
+     pack .f2.f3.p5 -side top
+     pack .f2.f3.p6 .f2.f3.p7 -side top
+     pack .f2.f3.p3 .f2.f3.p4 -fill x -side top
+     .f2.f3.p1 select
+ 
+     label .f2.f3.m0 -text "¥Ú¡¼¥¸ÀÞ¹þ"
+     radiobutton .f2.f3.m1 -text "1ÌÌ" -variable gs(multi) -value 1 -anchor w
+     radiobutton .f2.f3.m2 -text "2ÌÌ" -variable gs(multi) -value 2 -anchor w
+     radiobutton .f2.f3.m3 -text "4ÌÌ" -variable gs(multi) -value 4 -anchor w
+     pack .f2.f3.m0 .f2.f3.m1 .f2.f3.m2 .f2.f3.m3 -side top -fill x
+     .f2.f3.m1 select
+ 
+     frame .f4
+     pack .f4 -side bottom -fill x
+     label .f4.msg -bg yellow -fg red -anchor c -text "ÍÑ»æ¥µ¥¤¥º¡¦Êý¸þ¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ç¤ÎÀßÄê¤¬Í¥Àè¤·¤Þ¤¹"
+     pack .f4.msg -fill x
+     
+     frame .f0
+     pack .f0 -side bottom -fill x
+     button .f0.set -text "ÀßÄê¼Â¹Ô" -state disabled
+     pack .f0.set -side left
+     button .f0.out -text "½ÐÎÏÀèÀßÄê" -command {
+         destroy .f0
+         destroy .f1
+         destroy .f2
+         destroy .f3
+         destroy .f4
+         dsk_gen_printcap
+     }
+     pack .f0.out -side left
+     button .f0.stat -text "½ÐÎÏ¾õÂÖ" -command {
+         destroy .f0
+         destroy .f1
+         destroy .f2
+         destroy .f3
+         destroy .f4
+         dsk_view_job
+     }
+     pack .f0.stat -side left
+     button .f0.exit -text "¥­¥ã¥ó¥»¥ë" -command exit
+     pack .f0.exit -side right
+     set gs(vendor) ""
+ 
+     set_vendor
+     
+     set gs(attrlist) ""
+     set gs(localattr) ""
+     set conffile "$env(HOME)/.printconf"
+     catch {set fd [open $conffile "r"]}
+     if ![info exists fd] {return}
+     set gs(attrlist) [gets $fd]
+     set gs(localattr) [gets $fd]
+     close $fd
+ 
+     set vendorlist [.f2.f1.vendor get 0 end]
+     set a [lindex $gs(attrlist) 0]
+     set i 0
+     set n -1
+     foreach item $vendorlist {
+         if {$item == $a} {set n $i}
+         incr i
+     }
+     set_typen $n
+     set typelist [.f2.f1.type get 0 end]
+     set a [lindex $gs(attrlist) 1]
+     set i 0
+     set n -1
+     foreach item $typelist {
+         if {$item == $a} {set n $i}
+         incr i
+     }
+     set_printern $n
+     .f2.f1.type selection set $n
+     set gs(size) [lindex $gs(attrlist) 2]
+     set gs(orient) [lindex $gs(attrlist) 3]
+     set gs(page) [lindex $gs(attrlist) 4]
+     if {$gs(page) == "page"} {
+         .f2.f3.p5 insert end [lindex $gs(attrlist) 5]
+     }
+     set gs(multi) [lindex $gs(attrlist) 6]
+ }
+ 
+ proc separate {firstline filename} {
+     global gsattr gscom
+ 
+     set ext [file extension $filename]
+     set paper [lindex $gsattr 2]
+     set orient [lindex $gsattr 3]
+     set page [lindex $gsattr 4]
+     set pages [lindex $gsattr 5]
+     set multi [lindex $gsattr 6]
+     set head4 [string range $firstline 0 3]
+     set head3 [string range $firstline 0 2]
+     set selcom "psselect -q"
+     set e2ps "e2ps -nh -$paper -line 110"
+     if {$paper == "letter"} {
+         set e2ps "e2ps -nh -le -line 110"
+     }
+     if {$multi == 2} {
+         switch $orient {
+             "landscape" {set e2ps "$e2ps -p"}
+             "portrait" {set e2ps "$e2ps -l"}
+         }
+     } else {
+         switch $orient {
+             "landscape" {set e2ps "$e2ps -l"}
+             "portrait" {set e2ps "$e2ps -p"}
+         }
+     }
+     set name [file tail $filename]
+     if {$filename == "/tmp/stream_output.ps"} {
+         set name [file rootname $name]
+     }
+     set gscom "$gscom -sOutputFile=/tmp/$name - "
+     set com ""
+     switch $page {
+         "odd" {set com "$selcom -o"}
+         "even" {set com "$selcom -e"}
+         "page" {set com "$selcom -p$pages"}
+     }
+     if {$multi >= 2} {
+     	if {$com == ""} {
+             set com "psnup -q -$multi -p$paper"
+         } else {
+             set com "$com | psnup -q -$multi -p$paper"
+         }
+     }
+     if {$com == ""} {
+         set com $gscom
+     } else {
+         set com "$com | $gscom"
+     }
+     if {$head4 == "%!PS" || $ext == ".ps"} {
+         set com "cat $filename | $com"
+         exec sh -c $com
+         cd /tmp
+         exec lpr $name
+         exec rm $name
+     } else {
+     	if {$head3 == "GIF"} {
+     	    set com "giftopnm $filename | pnmtops | $com"
+             catch {exec sh -c $com}
+             cd /tmp
+             catch {exec lpr $name}
+             catch {exec rm $name}
+         } else {
+             set com "$e2ps $filename | $com"
+             exec sh -c $com
+             cd /tmp
+             exec lpr $name
+             exec rm $name
+         }
+     }
+ }
+ 
+ proc dsk_printtool {argc argv} {
+     global env conffile uppfile gsattr gslocal gscom
+ 
+     if {$argc < 1} {
+         dsk_print_setup
+         return
+     }
+     set filename [lindex $argv 0]
+     set conffile "$env(HOME)/.printconf"
+     set uppfile "$env(HOME)/.uniprint"
+     if {$filename == "--setup"} {
+         dsk_print_setup
+     } elseif {$filename == "--printcap"} {
+         dsk_gen_printcap
+     } elseif {$filename == "--viewjob"} {
+         dsk_view_job
+     } else {
+         catch {set fd [open $conffile "r"]}
+         if ![info exists fd] {exit}
+         set gsattr [gets $fd]
+         set gslocal [gets $fd]
+         set gscom [gets $fd]
+         close $fd
+         catch {set fd [open $filename "r"]}
+         if ![info exists fd] {exit}
+         gets $fd firstline
+         close $fd
+ 
+         frame .f
+         pack .f
+         label .f.title1 -text "°õºþÃæ¤Ç¤¹" -fg red -bg peachpuff
+         pack .f.title1 -fill x -ipady 20 -ipadx 20 -side top
+         set vendor [lindex $gsattr 0]
+         set type [lindex $gsattr 1]
+         label .f.title2 -text "$filename ¤ò $vendor $type ¤È¤¤¤¦¥×¥ê¥ó¥¿¤Ë½ÐÎÏ¤·¤Æ¤¤¤Þ¤¹" -fg navy -bg peachpuff
+         pack .f.title2 -fill x -side top
+         update
+ 
+         set fd [open $filename "r"]
+         separate $firstline $filename
+         close $fd
+         exit
+     }
+ }
+ 
+ proc dsk_gen_printcap {} {
+     frame .f1
+     pack .f1 -side top -fill x
+     label .f1.title -text "½ÐÎÏÀè¤ÎÀßÄê" -fg darkgreen -bg orange
+     pack .f1.title -fill x -ipady 8 -ipadx 8
+     frame .f2
+     pack .f2 -side top -fill x
+     button .f2.local -text "¥í¡¼¥«¥ë" -command {
+         catch {destroy .f3}
+         catch {destroy .f4}
+         frame .f3
+         pack .f3 -side top
+         listbox .f3.lpt -height 7 -selectmode single
+         pack .f3.lpt -side left
+         set num 0
+         set fd [open "| setcap" r]
+         while {[gets $fd dev] >= 0} {
+                 .f3.lpt insert end $dev
+                 incr num
+         }
+         catch {.f3.lpt selection set 0 0}
+         if {$num == 0} {
+             destroy .f3
+         }
+         .f5.set configure -command {
+             set lpname [.f3.lpt get [.f3.lpt curselection]]
+             set pid [dsk_get_lpd_pid]
+             exec setcap $pid $lpname
+             exit
+         }
+     }
+     button .f2.rem -text "¥ê¥â¡¼¥È" -command {
+         catch {destroy .f3}
+         catch {destroy .f4}
+         frame .f3
+         frame .f4
+         label .f3.title -text "¥Û¥¹¥ÈÌ¾"
+         label .f4.title -text "¥×¥ê¥ó¥¿Ì¾"
+         entry .f3.name -width 14 -bg white
+         entry .f4.name -width 12 -bg white
+         pack .f3 .f4 -side top
+         pack .f3.title .f3.name -side left
+         pack .f4.title .f4.name -side left
+         .f5.set configure -command {
+             set host [.f3.name get]
+             set lpr [.f4.name get]
+             set pid [dsk_get_lpd_pid]
+             exec setcap $pid $host $lpr
+             exit
+         }
+     }
+     pack .f2.local .f2.rem -side left -fill x
+     frame .f5
+     pack .f5 -side bottom -fill x
+     button .f5.set -text "ÀßÄê"
+     pack .f5.set -side left
+     button .f5.can -text "ÊÄ¤¸¤ë" -command exit
+     pack .f5.can -side right
+ }
+ 
+ proc dsk_get_lpd_pid {} {
+     set fd [open "| ps ax" "r"]
+     if {$fd != ""} {
+         gets $fd title
+         set index 0
+         set pid_index 0
+         set command_index 4
+     	set lpd_pid 0
+     	foreach item $title {
+     	    set item [string tolower $item]
+     	    if {$item == "pid"} {
+     	         set pid_index $index
+     	    }
+     	    if {$item == "command"} {
+     	         set command_index $index
+     	    }
+     	    incr index
+     	}
+         while {[gets $fd items] >= 0} {
+             set pid [lindex $items $pid_index]
+             set command [lindex $items $command_index]
+             set command [file tail $command]
+             if {$command == "lpd"} {
+                 set lpd_pid $pid
+             }
+         }
+         close $fd
+         return $lpd_pid
+     }
+     return 0
+ }
+ 
+ proc dsk_view_job {} {
+     frame .f1
+     pack .f1 -side top -fill x
+     label .f1.title -text "¥×¥ê¥ó¥¿¤Î¾õÂÖ" -fg darkgreen -bg orange
+     pack .f1.title -fill x -ipady 8 -ipadx 8
+     frame .f2
+     pack .f2 -side top -fill x
+     label .f2.label -text "¾õÂÖ  ¥æ¡¼¥¶ ÈÖ¹æ   ¥Õ¥¡¥¤¥ëÌ¾\t\t¥µ¥¤¥º"
+     pack .f2.label -side left -fill x
+     frame .f3
+     pack .f3 -side top
+     listbox .f3.job -width 80 -selectmode extended
+     pack .f3.job -side left
+     frame .f5
+     pack .f5 -side bottom -fill x
+     button .f5.del -text "ºï½ü" -command "dsk_view_job_delete .f3.job"
+     pack .f5.del -side left
+     button .f5.delall -text "Á´¤Æºï½ü" -command "dsk_view_job_deleteall .f3.job"
+     pack .f5.delall -side left
+     button .f5.can -text "ÊÄ¤¸¤ë" -command exit
+     pack .f5.can -side right
+     dsk_view_job_replace .f3.job
+ }
+ 
+ proc dsk_view_job_replace {w} {
+     dsk_view_job_lpq $w
+     after 3000 dsk_view_job_replace $w
+ }
+ 
+ proc dsk_view_job_lpq {w} {
+     global lpq_job_index
+ 
+     set lpq_job_index 2
+     set select [$w curselection]
+     $w delete 0 end
+     set fd [open "| lpq" r]
+     while {[gets $fd title] >= 0} {
+        set match 0
+        foreach item $title {
+             set item [string tolower $item]
+             if {$item == "rank"} {incr match}
+             if {$item == "job"} {incr match}
+             if {$item == "files"} {incr match}
+             if {$item == "size"} {incr match}
+             if {$item == "time"} {incr match}
+             if {$item == "total"} {incr match}
+             if {$item == "owner"} {incr match}
+             if {$item == "owner/id"} {incr match}
+         }
+         if {$match > 2} {break}
+     }
+     set index 0
+     foreach item $title {
+         set item [string tolower $item]
+         if {$item == "job"} {
+             set lpq_job_index $index
+         }
+         incr index
+     }
+     while {[gets $fd message] >= 0} {
+         $w insert end $message
+     }
+     foreach index $select {
+         catch {$w selection set $index}
+     }
+     close $fd
+ }
+ 
+ proc dsk_view_job_delete {w} {
+     global lpq_job_index
+ 
+     set select [$w curselection]
+     foreach index $select {
+         set lines [$w get $index]
+         set jobnum [lindex $lines $lpq_job_index]
+         exec lprm job $jobnum
+     }
+     dsk_view_job_lpq $w
+ }
+ 
+ proc dsk_view_job_deleteall {w} {
+     global lpq_job_index
+ 
+     set all [$w get 0 end]
+     foreach lines $all {
+         set jobnum [lindex $lines $lpq_job_index]
+         exec lprm job $jobnum
+     }
+     dsk_view_job_lpq $w
+ }
+ 
+ dsk_printtool $argc $argv
\ No newline at end of file
diff -Pcr tkdesk-1.2/jisdecode.c tkdesk-1.2-jp/jisdecode.c
*** tkdesk-1.2/jisdecode.c	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/jisdecode.c	Fri Sep 15 17:46:38 2000
***************
*** 0 ****
--- 1,128 ----
+ #include <stdio.h>
+ #include <string.h>
+ 
+ void	decode(int *src) {
+ 	int	c,i,j,n,k;
+ 
+ 	n = 0;
+ 	i = 0;
+ 	j = 3;
+ 	do {
+ 		n |= (src[i] & 0x3f) << (j-- * 6);
+ 		if(j < 0) {
+ 			for(k = 2;k >= 0;k--) {
+ 				c = (n >> (k * 8)) & 0xff;
+ 				if(c != 0) putchar(c);
+ 			}
+ 			j = 3;
+ 			n = 0;
+ 		}
+ 	} while(src[i++] < 64);
+ 	for(k = 2;k >= 0;k--) {
+ 		c = (n >> (k * 8)) & 0xff;
+ 		if(c != 0) putchar(c);
+ 	}
+ }
+ 
+ void	subject(char *str) {
+ 	int	c,n,i,b,q;
+ 	int	num[1024];
+ 	char	scanbuf[3];
+ 
+ 	b = -1;
+ 	q = -1;
+ 	n = strlen(str);
+ 	for(i = 0;i < n;i++) {
+ 		if(strncmp(str + i,"=?iso-2022-jp?B?",16) ==  0) {
+ 			i += 16;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?ISO-2022-JP?B?",16) ==  0) {
+ 			i += 16;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?euc-jp?B?",11) ==  0) {
+ 			i += 11;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?EUC-JP?B?",11) ==  0) {
+ 			i += 11;
+ 			b = 0;
+ 		}
+ 		if(strncmp(str + i,"=?iso-2022-jp?Q?",16) ==  0) {
+ 			i += 16;
+ 			q = 0;
+ 		}
+ 		if(strncmp(str + i,"=?ISO-2022-JP?Q?",16) ==  0) {
+ 			i += 16;
+ 			q = 0;
+ 		}
+ 		if(strncmp(str + i,"=?iso-8859-1?Q?",15) ==  0) {
+ 			i += 15;
+ 			q = 0;
+ 		}
+ 		if(strncmp(str + i,"=?ISO-8859-1?Q?",15) ==  0) {
+ 			i += 15;
+ 			q = 0;
+ 		}
+ 		if(b >= 0) {
+ 			if(isupper(str[i])) {
+ 				num[b++] = str[i] - 'A';
+ 			} else if(islower(str[i])) {
+ 				num[b++] = str[i] - 'a' + 26;
+ 			} else if(isdigit(str[i])) {
+ 				num[b++] = str[i] - '0' + 52;
+ 			} else if(str[i] == '+') {
+ 				num[b++] = 62;
+ 			} else if(str[i] == '/') {
+ 				num[b++] = 63;
+ 			} else if(str[i] == '?') {
+ 				num[b] = 64;
+ 				decode(num);
+ 				i++;
+ 				b = -1;
+ 			}
+ 		} else if(q == 0) {
+ 			if(str[i] == '=') {
+ 				if(isxdigit(str[i+1]) && isxdigit(str[i+2])) {
+ 					scanbuf[0] = str[++i];
+ 					scanbuf[1] = str[++i];
+ 					scanbuf[2] = '\0';
+ 					sscanf(scanbuf,"%x",&c);
+ 					putchar(c);
+ 				} else {
+ 					q = -1;
+ 					putchar(str[i]);
+ 				}
+ 			} else if(str[i] == '?' && str[i+1] == '=') {
+ 				q = -1;
+ 				i++;
+ 			} else {
+ 				putchar(str[i]);
+ 			}
+ 		}
+ 		else {
+ 			putchar(str[i]);
+ 		}
+ 	}
+ }
+ 	
+ void main() {
+ 	char	buf[1024];
+ 	char	*p;
+ 
+ 	gets(buf);
+ 	while(!feof(stdin)) {
+ 		p = buf;
+ 		if(strlen(buf) == 0) break;
+ 		if(buf[0] <= ' ') {
+ 			while(*p >= 0 && *p <= ' ') p++;
+ 		} else {
+ 			putchar('\n');
+ 		}
+ 		subject(p);
+ 		gets(buf);
+ 	}
+ 	putchar('\n');
+ 	putchar('\n');
+ }
\ No newline at end of file
diff -Pcr tkdesk-1.2/lpr2 tkdesk-1.2-jp/lpr2
*** tkdesk-1.2/lpr2	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/lpr2	Fri Sep 15 17:50:45 2000
***************
*** 0 ****
--- 1,3 ----
+ cat - > /tmp/stream_output.ps
+ easypr /tmp/stream_output.ps
+ rm /tmp/stream_output.ps
diff -Pcr tkdesk-1.2/man2text.c tkdesk-1.2-jp/man2text.c
*** tkdesk-1.2/man2text.c	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/man2text.c	Fri Sep 15 17:46:38 2000
***************
*** 0 ****
--- 1,19 ----
+ #include	<stdio.h>
+ 
+ void main() {
+ 	int	i,p,buf[4];
+ 
+ 	p = 0;
+ 	while(!feof(stdin)) {
+ 		while(p < 3) buf[p++] = getchar();
+ 		buf[p] = getchar();
+ 		if(buf[3] == '\b') {
+ 			if(buf[2] == '\b') p = 0;
+ 			else p = 2;
+ 			continue;
+ 		}
+ 		putchar(buf[0]);
+ 		for(i = 0;i < 3;i++) buf[i] = buf[i + 1];
+ 	}
+ 	for(i = 0;i < p - 1;i++) putchar(buf[i]);
+ }
\ No newline at end of file
diff -Pcr tkdesk-1.2/setcap.c tkdesk-1.2-jp/setcap.c
*** tkdesk-1.2/setcap.c	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/setcap.c	Fri Sep 15 17:50:28 2000
***************
*** 0 ****
--- 1,49 ----
+ #include <stdio.h>
+ #include <signal.h>
+ 
+ #if (defined(__unix__) || defined(unix)) && !defined(USG)
+ #include <sys/param.h>
+ #endif
+ 
+ int main(int argc, char **argv) {
+ 	FILE *fp;
+ 	int  i, pid;
+ 	char com[32];
+ 
+ 	switch(argc) {
+ 	case 1:
+ 		for(i = 0;i < 3;i++) {
+ #if (defined(BSD) && (BSD >= 199103))
+ 			sprintf(com, "/dev/lpt%d", i);
+ #else
+ 			sprintf(com, "/dev/lp%d", i);
+ #endif
+ 			if((fp = fopen(com, "w")) != 0) {
+ 				puts(com);
+ 				fclose(fp);
+ 			}
+ 		}
+ 		return 0;
+ 	case 3:
+ 		if((fp = fopen("/etc/printcap", "w")) == NULL) return -1;
+ 		fprintf(fp, "# Generic printer:\n");
+ 		fprintf(fp, "lp:lp=%s:sd=/var/spool/lpd:sh:mx#0\n", argv[2]);
+ 		fclose(fp);
+ 		break;
+ 	case 4:
+ 		if((fp = fopen("/etc/printcap", "w")) == NULL) return -1;
+ 		fprintf(fp, "# Generic printer:\n");
+ 		fprintf(fp, "lp:rm=%s:rp=%s:sd=/var/spool/lpd:sh:mx#0\n", argv[2], argv[3]);
+ 		fclose(fp);
+ 		break;
+ 	default:
+ 		return -1;
+ 	}
+ 	pid = atoi(argv[1]);
+ 	if(pid > 0) {
+ 		sprintf(com, "kill %d", pid);
+ 		system(com);
+ 		system("lpd");
+ 	}
+ 	return 0;
+ }
\ No newline at end of file
diff -Pcr tkdesk-1.2/tcldesk/Common.tcl tkdesk-1.2-jp/tcldesk/Common.tcl
*** tkdesk-1.2/tcldesk/Common.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/Common.tcl	Fri Sep 15 17:46:38 2000
***************
*** 139,151 ****
  
  	# ---- TkDesk Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbTkDesk -text "TkDesk" -underline 0 \
  		    -menu $frame.mbTkDesk.menu
  	    pack $frame.mbTkDesk -side left
  	    
  	    menu [set m $frame.mbTkDesk.menu]
  	} else {
! 	    menubutton $frame.mbOthers -text "Others" -underline 0 \
  		    -menu $frame.mbOthers.menu
  	    menu $frame.mbOthers.menu
  	    menu [set m $frame.mbOthers.menu.tkdesk]
--- 139,151 ----
  
  	# ---- TkDesk Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbTkDesk -text "T É½¼¨" -underline 0 \
  		    -menu $frame.mbTkDesk.menu
  	    pack $frame.mbTkDesk -side left
  	    
  	    menu [set m $frame.mbTkDesk.menu]
  	} else {
! 	    menubutton $frame.mbOthers -text "O ¤½¤ÎÂ¾" -underline 0 \
  		    -menu $frame.mbOthers.menu
  	    menu $frame.mbOthers.menu
  	    menu [set m $frame.mbOthers.menu.tkdesk]
***************
*** 163,169 ****
  	    $dm add command -label "Eval XSelection " \
  		    -command {eval [selection get]} \
  		    -accelerator "Meta-x"
! 	    $dm add command -label "Restart" -underline 2 \
  		    -command "dsk_restart" -accelerator "Meta-r"
  	    $dm add separator
  	    $dm add checkbutton -label "Debug Mode" \
--- 163,169 ----
  	    $dm add command -label "Eval XSelection " \
  		    -command {eval [selection get]} \
  		    -accelerator "Meta-x"
! 	    $dm add command -label "s ºÆµ¯Æ°" -underline 0 \
  		    -command "dsk_restart" -accelerator "Meta-r"
  	    $dm add separator
  	    $dm add checkbutton -label "Debug Mode" \
***************
*** 176,218 ****
  	    bind $topl <Alt-x> {eval [selection get]; bell}
  	    bind $topl <Alt-r> {dsk_restart}
  	}
! 	$m add command -label "New Browser..." -underline 0 \
  		-command "dsk_ask_dir browser"
  	if [$this isa dsk_FileViewer] {
! 	    $m add command -label "Clone Window" -underline 2 \
  		    -command "dsk_FileViewer .fv\[dsk_FileViewer :: id\] \
  		    -dir \[$this curdir\] -num_lbs \[$this cget num_lbs\]"
  	} else {
! 	    $m add command -label "Clone Window" -underline 2 \
  		    -command "dsk_FileList .fl\[dsk_FileList :: id\] \
  		    -dir \[$this curdir\]"
  	}
  	if [winfo exists .dsk_appbar] {
! 	    $m add command -label "Hide AppBar" -underline 0 \
  		    -command "dsk_appbar"
  	} else {
! 	    $m add command -label "Display AppBar" -underline 0 \
  		    -command "dsk_appbar"
  	}
  	$m add separator
! 	$m add cascade -label "Configuration " -underline 0 \
  		-menu $m.edmenu
! 	$m add cascade -label "Auto Save" -underline 1 \
  		-menu $m.aumenu		
! 	$m add command -label "Save All Now" -underline 0 \
  		-command {dsk_save_config 1}
  
  	$m add separator
! 	$m add command -label "Close Window" -underline 0 \
  		-command "$this close"
  	if !$tkdesk(xmaster) {
! 	    $m add command -label "Quit" -underline 0 -command "dsk_exit"
  	} else {
! 	    $m add command -label "Quit X Windows" -underline 0 \
  		    -command "dsk_exit"
  	}
  	
  	menu [set em $m.edmenu] -tearoff 1
  	foreach cf $tkdesk(configfiles) {
  	    set cfs [format "%-12s" $cf]
  	    $em add command \
--- 176,221 ----
  	    bind $topl <Alt-x> {eval [selection get]; bell}
  	    bind $topl <Alt-r> {dsk_restart}
  	}
! 	$m add command -label "N ¥Õ¥©¥ë¥À¤ò³«¤¯..." -underline 0 \
  		-command "dsk_ask_dir browser"
  	if [$this isa dsk_FileViewer] {
! 	    $m add command -label "W ¥¦¥£¥ó¥É¥¦¤ÎÊ£À½" -underline 0 \
  		    -command "dsk_FileViewer .fv\[dsk_FileViewer :: id\] \
  		    -dir \[$this curdir\] -num_lbs \[$this cget num_lbs\]"
  	} else {
! 	    $m add command -label "W ¥¦¥£¥ó¥É¥¦¤ÎÊ£À½" -underline 0 \
  		    -command "dsk_FileList .fl\[dsk_FileList :: id\] \
  		    -dir \[$this curdir\]"
  	}
  	if [winfo exists .dsk_appbar] {
! 	    $m add command -label "H ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥Ð¡¼¤Î³«ÊÄ" -underline 0 \
  		    -command "dsk_appbar"
  	} else {
! 	    $m add command -label "D ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥Ð¡¼¤Î³«ÊÄ" -underline 0 \
  		    -command "dsk_appbar"
  	}
  	$m add separator
! 	$m add cascade -label "E ÀßÄê" -underline 0 \
  		-menu $m.edmenu
! 	$m add cascade -label "A ´Ä¶­¤ò¼«Æ°¤ÇÊÝÂ¸" -underline 0 \
  		-menu $m.aumenu		
! 	$m add command -label "S ¸½ºß¤Î´Ä¶­¤òÊÝÂ¸" -underline 0 \
  		-command {dsk_save_config 1}
  
  	$m add separator
! 	$m add command -label "C ¥¦¥£¥ó¥É¥¦¤òÊÄ¤¸¤ë" -underline 0 \
  		-command "$this close"
  	if !$tkdesk(xmaster) {
! 	    $m add command -label "Q ½ªÎ»" -underline 0 -command "dsk_exit"
  	} else {
! 	    $m add command -label "Q X¥¦¥£¥ó¥É¥¦¤ò½ªÎ»" -underline 0 \
  		    -command "dsk_exit"
  	}
  	
  	menu [set em $m.edmenu] -tearoff 1
+ 	$em add command -label "¥Ý¥Ã¥×¥¢¥Ã¥×ÀßÄê..." -command dsk_config_main
+ 	$em add command -label "¥·¥ç¡¼¥È¥«¥Ã¥ÈÀßÄê..." -command dsk_appbar_main
+ 	$em add separator
  	foreach cf $tkdesk(configfiles) {
  	    set cfs [format "%-12s" $cf]
  	    $em add command \
***************
*** 221,227 ****
  	}
  	
  	$em add separator
! 	$em add cascade -label "Reload" -menu [set rm $em.remenu]
  	menu $rm -tearoff 1
  	foreach cf $tkdesk(configfiles) {
  	    $rm add command \
--- 224,230 ----
  	}
  	
  	$em add separator
! 	$em add cascade -label "ºÆÆÉ¤ß¹þ¤ß" -menu [set rm $em.remenu]
  	menu $rm -tearoff 1
  	foreach cf $tkdesk(configfiles) {
  	    $rm add command \
***************
*** 229,297 ****
  		    -command "dsk_reread_config $cf"
  	}
  	$rm add separator
! 	$rm add checkbutton -label " Reload Automatically" \
  		-variable tkdesk(auto_reload_conf)
  	
! 	$em add command -label "Find in Config..." \
  		-command "dsk_find_files -path $tkdesk(configdir) -name [list $tkdesk(configfiles)] -type file"
! 	$em add command -label "Colors..." \
  			-command "dsk_config_panel colors"
! 	$em add command -label "Fonts..." \
  			-command "dsk_config_panel fonts"
! 	$em add command -label "Icons..." \
  			-command "dsk_config_panel icons"
! 	$em add command -label "Sounds..." \
  			-command "dsk_config_panel sounds"
  
  	menu [set am $m.aumenu]
  	$am add checkbutton -label " Annotations" \
  		-variable tkdesk(autosave,annotations)
! 	$am add checkbutton -label " Bookmarks" \
  		-variable tkdesk(autosave,bookmarks)
! 	$am add checkbutton -label " Histories" \
  		-variable tkdesk(autosave,history)
! 	$am add checkbutton -label " Options" \
  		-variable tkdesk(autosave,options)
! 	$am add checkbutton -label " Window Layout" \
  		-variable tkdesk(autosave,layout)
  
  	# ---- File Menu
! 	menubutton $frame.mbFile -text "File" -underline 0 \
  		-menu $frame.mbFile.menu
  	pack $frame.mbFile -side left
  
  	menu [set m $frame.mbFile.menu]
! 	$m add command -label "Information" -underline 0 \
  		-command "dsk_fileinfo" -accelerator "Ctrl-i"
! 	$m add command -label "New File..." -underline 0 \
  		-command "dsk_create file" -accelerator "Ctrl-n"
! 	$m add command -label "New Directory..." -underline 4 \
  		-command "dsk_create directory" -accelerator "Ctrl-d"
  	$m add separator
! 	$m add command -label "Open (Using Default)" -underline 0 \
  		-command "dsk_openall"
! 	$m add command -label "Open With..." -underline 0 \
  		-command "dsk_openwith" -accelerator "Ctrl-w"
! 	$m add command -label "Print..." -underline 0 \
  		-command "dsk_print" -accelerator "Ctrl-p"
! 	$m add command -label "Copy, Move, Link... " -underline 0 \
  		-command "dsk_copy" -accelerator "Ctrl-c"
! 	$m add command -label "Rename... " -underline 0 \
  		-command "dsk_rename" -accelerator "Ctrl-r"
! 	$m add command -label "Delete..." -underline 1 \
  		-command "dsk_delete" -accelerator "Del"
  	
  	$m add separator
! 	$m add command -label "Find Files..." -underline 0 \
  		-command "dsk_find_files" -accelerator "Ctrl-f"
! 	$m add command -label "Find Annotation..." -underline 5 \
  		-command "dsk_find_annotation"
! 	$m add command -label "Copy To X Selection" -underline 8 \
  		 -command "dsk_select X"
! 	$m add command -label "Copy Names Only " -underline 6 \
  		 -command "dsk_select X names"
  	$m add separator
! 	$m add cascade -label "History" -menu $m.mhf
  	menu $m.mhf -postcommand \
  		"file_history buildmenu $m.mhf; update"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
--- 232,302 ----
  		    -command "dsk_reread_config $cf"
  	}
  	$rm add separator
! 	$rm add checkbutton -label "¼«Æ°ºÆÆÉ¤ß¹þ¤ß" \
  		-variable tkdesk(auto_reload_conf)
  	
! 	$em add command -label "ÀßÄê¤ò¸¡º÷..." \
  		-command "dsk_find_files -path $tkdesk(configdir) -name [list $tkdesk(configfiles)] -type file"
! 	$em add command -label "¿§..." \
  			-command "dsk_config_panel colors"
! 	$em add command -label "¥Õ¥©¥ó¥È..." \
  			-command "dsk_config_panel fonts"
! 	$em add command -label "¥¢¥¤¥³¥ó..." \
  			-command "dsk_config_panel icons"
! 	$em add command -label "²»..." \
  			-command "dsk_config_panel sounds"
  
  	menu [set am $m.aumenu]
  	$am add checkbutton -label " Annotations" \
  		-variable tkdesk(autosave,annotations)
! 	$am add checkbutton -label " ¤·¤ª¤ê" \
  		-variable tkdesk(autosave,bookmarks)
! 	$am add checkbutton -label " ÍúÎò" \
  		-variable tkdesk(autosave,history)
! 	$am add checkbutton -label " ÀßÄê" \
  		-variable tkdesk(autosave,options)
! 	$am add checkbutton -label " ¥¦¥£¥ó¥É¥¦ÇÛÃÖ" \
  		-variable tkdesk(autosave,layout)
  
  	# ---- File Menu
! 	menubutton $frame.mbFile -text "F ¥Õ¥¡¥¤¥ë" -underline 0 \
  		-menu $frame.mbFile.menu
  	pack $frame.mbFile -side left
  
  	menu [set m $frame.mbFile.menu]
! 	$m add command -label "I ¾ðÊó" -underline 0 \
  		-command "dsk_fileinfo" -accelerator "Ctrl-i"
! 	$m add command -label "N ¿·¤·¤¤¥Õ¥¡¥¤¥ë..." -underline 0 \
  		-command "dsk_create file" -accelerator "Ctrl-n"
! 	$m add command -label "D ¿·¤·¤¤¥Õ¥©¥ë¥À..." -underline 0 \
  		-command "dsk_create directory" -accelerator "Ctrl-d"
  	$m add separator
! 	$m add command -label "O ³«¤¯" -underline 0 \
  		-command "dsk_openall"
! 	$m add command -label "O ¾ì½ê»ØÄê¤·¤Æ³«¤¯..." -underline 0 \
  		-command "dsk_openwith" -accelerator "Ctrl-w"
! 	$m add command -label "S °õºþÀßÄê..." -underline 0 \
! 		-command "exec easypr --setup &"
! 	$m add command -label "P °õºþ" -underline 0 \
  		-command "dsk_print" -accelerator "Ctrl-p"
! 	$m add command -label "C ¥³¥Ô¡¼¡¢°ÜÆ°¡¢¥ê¥ó¥¯... " -underline 0 \
  		-command "dsk_copy" -accelerator "Ctrl-c"
! 	$m add command -label "R Ì¾Á°ÊÑ¹¹... " -underline 0 \
  		-command "dsk_rename" -accelerator "Ctrl-r"
! 	$m add command -label "D ºï½ü..." -underline 0 \
  		-command "dsk_delete" -accelerator "Del"
  	
  	$m add separator
! 	$m add command -label "F ¥Õ¥¡¥¤¥ë¸¡º÷..." -underline 0 \
  		-command "dsk_find_files" -accelerator "Ctrl-f"
! 	$m add command -label "A Ãí¼á¤ò¸¡º÷..." -underline 0 \
  		-command "dsk_find_annotation"
! 	$m add command -label "X ¥»¥ì¥¯¥·¥ç¥ó¤ò¥³¥Ô¡¼" -underline 0 \
  		 -command "dsk_select X"
! 	$m add command -label "N Ì¾Á°¤Î¤ß¥³¥Ô¡¼" -underline 0 \
  		 -command "dsk_select X names"
  	$m add separator
! 	$m add cascade -label "ÍúÎò" -menu $m.mhf
  	menu $m.mhf -postcommand \
  		"file_history buildmenu $m.mhf; update"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
***************
*** 303,340 ****
  	bind $m.mhf <Control-ButtonRelease-3> "
  	set tkdesk(file_lb,control) 1
  	[bind Menu <ButtonRelease-3>]"
! 	$m add command -label "Close Window" -command "$this delete"
  	
  	# ---- Directories Menu
! 	menubutton $frame.mbDirs -text "Directory" -underline 0 \
  		-menu $frame.mbDirs.menu
  	pack $frame.mbDirs -side left
  
  	menu [set m $frame.mbDirs.menu]
! 	$m add command -label "Open..." -underline 0 \
  		-command "dsk_ask_dir" -accelerator "Ctrl-o"
! 	$m add command -label "New..." -underline 0 \
  		-command "dsk_create directory" -accelerator "Ctrl-d"
  	$m add separator
  
! 	$m add command -label "Home" -underline 0 \
  		-command {dsk_cd ~} \
  		-accelerator "Ctrl-Home"
! 	$m add command -label "Previous" -underline 0 \
  		-command {dsk_cd [list [dir_history back]]} \
  		-accelerator "Ctrl-Left"
! 	$m add command -label "Next" -underline 0 \
  		-command {dsk_cd [list [dir_history forward]]} \
  		-accelerator "Ctrl-Right"
  	$m add separator
  	
! 	$m add command -label "Open Trash Can" -underline 0 \
  		-command "dsk_FileList .dfl\[dsk_FileList :: id\] \
  			-directory $tkdesk(trashdir)"
! 	$m add command -label "Empty Trash Can" -underline 0 \
  		-command "dsk_empty_trash"
  	if {[info exists tkdesk(deskdir)]} {
! 	    $m add command -label "Open Desktop" -underline 0 \
  		    -command "dsk_FileList .dfl\[dsk_FileList :: id\] \
  		                     -directory $tkdesk(deskdir)"
  	}
--- 308,345 ----
  	bind $m.mhf <Control-ButtonRelease-3> "
  	set tkdesk(file_lb,control) 1
  	[bind Menu <ButtonRelease-3>]"
! 	$m add command -label "¥¦¥£¥ó¥É¥¦¤òÊÄ¤¸¤ë" -command "$this delete"
  	
  	# ---- Directories Menu
! 	menubutton $frame.mbDirs -text "D ¥Õ¥©¥ë¥À" -underline 0 \
  		-menu $frame.mbDirs.menu
  	pack $frame.mbDirs -side left
  
  	menu [set m $frame.mbDirs.menu]
! 	$m add command -label "O ³«¤¯..." -underline 0 \
  		-command "dsk_ask_dir" -accelerator "Ctrl-o"
! 	$m add command -label "N ºîÀ®..." -underline 0 \
  		-command "dsk_create directory" -accelerator "Ctrl-d"
  	$m add separator
  
! 	$m add command -label "H ¥Û¡¼¥à" -underline 0 \
  		-command {dsk_cd ~} \
  		-accelerator "Ctrl-Home"
! 	$m add command -label "P Ìá¤ë" -underline 0 \
  		-command {dsk_cd [list [dir_history back]]} \
  		-accelerator "Ctrl-Left"
! 	$m add command -label "N ¼¡¤Ø" -underline 0 \
  		-command {dsk_cd [list [dir_history forward]]} \
  		-accelerator "Ctrl-Right"
  	$m add separator
  	
! 	$m add command -label "B ¤´¤ßÈ¢¤ò³«¤¯" -underline 0 \
  		-command "dsk_FileList .dfl\[dsk_FileList :: id\] \
  			-directory $tkdesk(trashdir)"
! 	$m add command -label "E ¤´¤ßÈ¢¤ò¶õ¤Ë¤¹¤ë" -underline 0 \
  		-command "dsk_empty_trash"
  	if {[info exists tkdesk(deskdir)]} {
! 	    $m add command -label "O ¥Ç¥¹¥¯¥È¥Ã¥×¤ò³«¤¯" -underline 0 \
  		    -command "dsk_FileList .dfl\[dsk_FileList :: id\] \
  		                     -directory $tkdesk(deskdir)"
  	}
***************
*** 351,368 ****
  	}
  
  	$m add separator
! 	$m add cascade -label "Trees" -menu ${m}.fs
  	menu ${m}.fs
  	menu ${m}.fs.home -postcommand "dsk_casdirs $env(HOME) ${m}.fs.home 1"
  	${m}.fs add cascade -label "Home " -menu ${m}.fs.home
  	menu ${m}.fs.root -postcommand "dsk_casdirs / ${m}.fs.root 1"
  	${m}.fs add cascade -label "Root " -menu ${m}.fs.root
  
! 	$m add cascade -label "History" -menu $m.mhd
  	menu $m.mhd -postcommand \
  		"dir_history buildmenu $m.mhd open; update"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$m.mhd add command -label "dummy"
  	dir_history changed
  
  	bind $m <ButtonRelease-1> "
--- 356,373 ----
  	}
  
  	$m add separator
! 	$m add cascade -label "¥Ä¥ê¡¼" -menu ${m}.fs
  	menu ${m}.fs
  	menu ${m}.fs.home -postcommand "dsk_casdirs $env(HOME) ${m}.fs.home 1"
  	${m}.fs add cascade -label "Home " -menu ${m}.fs.home
  	menu ${m}.fs.root -postcommand "dsk_casdirs / ${m}.fs.root 1"
  	${m}.fs add cascade -label "Root " -menu ${m}.fs.root
  
! 	$m add cascade -label "ÍúÎò" -menu $m.mhd
  	menu $m.mhd -postcommand \
  		"dir_history buildmenu $m.mhd open; update"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$m.mhd add command -label "¥À¥ß¡¼"
  	dir_history changed
  
  	bind $m <ButtonRelease-1> "
***************
*** 380,424 ****
  	    #$m add command -label "Open Browser View" -underline 0 \
  		    -command "dsk_FileViewer .fv\[dsk_FileViewer :: id\] \
  		    -dir \[$this curdir\] -num_lbs \$tkdesk(num_lbs)"
! 	    $m add cascade -label "TkDesk" -menu $frame.mbOthers.menu.tkdesk
! 	    $m add cascade -label "Commands" -menu $frame.mbOthers.menu.cmd
! 	    $m add cascade -label "Bookmarks" -menu $frame.mbOthers.menu.book
! 	    $m add cascade -label "Options" -menu $frame.mbOthers.menu.opts
! 	    $m add cascade -label "Help" -menu $frame.mbOthers.menu.help
  	    $m add separator
! 	    $m add command -label "Open Browser " \
  	    	     -command "dsk_FileViewer .fv\[dsk_FileViewer :: id\] \
  	    		 -directory \[$this info public directory -value\]"
  	}
  
  	# ---- Commands Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbCmds -text "Commands" -underline 0 \
  		    -menu $frame.mbCmds.menu
  	    pack $frame.mbCmds -side left
  	    menu [set m $frame.mbCmds.menu]
  	} else {
  	    menu [set m $topl.fMenu.mbOthers.menu.cmd]
  	}
! 	$m add command -label "Execute..." -underline 0 \
  		-command "dsk_ask_exec" -accelerator "Ctrl-x"
! 	$m add command -label "Execute as root..." -underline 11 \
  		-command "$this exec_as_root"
! 	$m add command -label "Periodic Execution..." -underline 0 \
  		-command "dsk_periodic"
! 	$m add command -label "Job Control" -underline 0 -command "dsk_jobs"
! 	$m add command -label "Environment..." -underline 2 \
  		-command "dsk_env_edit"
  	$m add separator
! 	$m add command -label "Edit File..." -underline 0 \
  		-command {dsk_edit} -accelerator "Ctrl-e"
! 	$m add command -label "New File" -underline 0 \
  		-command {dsk_edit "New File"}
! 	$m add command -label "Edit Selected" -underline 0 \
! 		-command {eval [_expand_pc {dsk_edit %B}]}
! 	$m add cascade -label "Buffers" -menu $m.bufs
! 	menu [set tm $m.bufs] -postcommand \
! 		"dsk_Editor :: bufferMenu $tm"
  	$m add separator
  	if [info exists tkdesk(commands)] {
  	    foreach cmd $tkdesk(commands) {
--- 385,439 ----
  	    #$m add command -label "Open Browser View" -underline 0 \
  		    -command "dsk_FileViewer .fv\[dsk_FileViewer :: id\] \
  		    -dir \[$this curdir\] -num_lbs \$tkdesk(num_lbs)"
! 	    $m add cascade -label "¥Ç¥¹¥¯¥È¥Ã¥×" -menu $frame.mbOthers.menu.tkdesk
! 	    $m add cascade -label "¥³¥Þ¥ó¥É" -menu $frame.mbOthers.menu.cmd
! 	    $m add cascade -label "¤·¤ª¤ê" -menu $frame.mbOthers.menu.book
! 	    $m add cascade -label "¥ª¥×¥·¥ç¥ó" -menu $frame.mbOthers.menu.opts
! 	    $m add cascade -label "¥Ø¥ë¥×" -menu $frame.mbOthers.menu.help
  	    $m add separator
! 	    $m add command -label "¥Ö¥é¥¦¥¶¤Ç³«¤¯" \
  	    	     -command "dsk_FileViewer .fv\[dsk_FileViewer :: id\] \
  	    		 -directory \[$this info public directory -value\]"
  	}
  
  	# ---- Commands Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbCmds -text "C ¥³¥Þ¥ó¥É" -underline 0 \
  		    -menu $frame.mbCmds.menu
  	    pack $frame.mbCmds -side left
  	    menu [set m $frame.mbCmds.menu]
  	} else {
  	    menu [set m $topl.fMenu.mbOthers.menu.cmd]
  	}
! 	$m add command -label "E ¼Â¹Ô..." -underline 0 \
  		-command "dsk_ask_exec" -accelerator "Ctrl-x"
! 	$m add command -label "r ¥ë¡¼¥È¤Ç¼Â¹Ô..." -underline 0 \
  		-command "$this exec_as_root"
! 	$m add command -label "p Äê´üÅª¤Ë¼Â¹Ô..." -underline 0 \
  		-command "dsk_periodic"
! 	$m add command -label "j ¥¸¥ç¥ÖÀ©¸æ" -underline 0 -command "dsk_jobs"
! 	$m add command -label "e ´Ä¶­..." -underline 0 \
  		-command "dsk_env_edit"
  	$m add separator
! 	$m add command -label "G ¥á¡¼¥ë¼õ¿®" -underline 0 -command "dsk_receive_mail"
! 	$m add command -label "C ¥á¡¼¥ëºîÀ®" -underline 0 -command {
! 	    set tkdesk(TkMailer) "mail"
! 	    dsk_mailer {} {} {}
! 	}
! 	# $m add command -label "N ¥Ë¥å¡¼¥¹ºîÀ®" -underline 0 -command {
! 	#    set tkdesk(TkMailer) "news"
! 	#    dsk_mailer {} {} {}
! 	#}
! 	$m add separator
! 	$m add command -label "E ¥Õ¥¡¥¤¥ëÊÔ½¸..." -underline 0 \
  		-command {dsk_edit} -accelerator "Ctrl-e"
! 	$m add command -label "N ¿·µ¬ºîÀ®" -underline 0 \
  		-command {dsk_edit "New File"}
! 	# $m add command -label "S ÁªÂò¤µ¤ì¤¿¤â¤Î¤òÊÔ½¸" -underline 0 \
! 	#	-command {eval [_expand_pc {dsk_edit %B}]}
! 	# $m add cascade -label "¥Ð¥Ã¥Õ¥¡" -menu $m.bufs
! 	# menu [set tm $m.bufs] -postcommand \
! 	#	"dsk_Editor :: bufferMenu $tm"
  	$m add separator
  	if [info exists tkdesk(commands)] {
  	    foreach cmd $tkdesk(commands) {
***************
*** 431,441 ****
  	}
  
  	$m add separator
! 	$m add cascade -label "History" -menu $m.mhe
  	menu $m.mhe -postcommand \
  		"exec_history buildmenu $m.mhe; update"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$m.mhe add command -label "dummy"
  	exec_history changed
  	bind $m.mhe <ButtonRelease-3> "
  	set tkdesk(file_lb,control) 0
--- 446,456 ----
  	}
  
  	$m add separator
! 	$m add cascade -label "ÍúÎò" -menu $m.mhe
  	menu $m.mhe -postcommand \
  		"exec_history buildmenu $m.mhe; update"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$m.mhe add command -label "¥À¥ß¡¼"
  	exec_history changed
  	bind $m.mhe <ButtonRelease-3> "
  	set tkdesk(file_lb,control) 0
***************
*** 446,452 ****
  
  	# ---- Bookmarks Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbBook -text "Bookmarks" -underline 0 \
  		    -menu $frame.mbBook.menu
  	    pack $frame.mbBook -side left
  	    menu [set m $frame.mbBook.menu] \
--- 461,467 ----
  
  	# ---- Bookmarks Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbBook -text "B ¤·¤ª¤ê" -underline 0 \
  		    -menu $frame.mbBook.menu
  	    pack $frame.mbBook -side left
  	    menu [set m $frame.mbBook.menu] \
***************
*** 455,463 ****
  	    menu [set m $topl.fMenu.mbOthers.menu.book] \
  		    -postcommand "dsk_bookmark menu $m"
  	}
! 	
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$m add command -label "dummy"
  	bind $m <ButtonRelease-1> "
  		set tkdesk(file_lb,control) 0
  		[bind Menu <ButtonRelease-1>]"
--- 470,478 ----
  	    menu [set m $topl.fMenu.mbOthers.menu.book] \
  		    -postcommand "dsk_bookmark menu $m"
  	}
! 
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$m add command -label "¥À¥ß¡¼"
  	bind $m <ButtonRelease-1> "
  		set tkdesk(file_lb,control) 0
  		[bind Menu <ButtonRelease-1>]"
***************
*** 467,473 ****
  
  	# ---- Options Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbOpts -text "Options" -underline 0 \
  		    -menu $frame.mbOpts.menu
  	    pack $frame.mbOpts -side left
  	    menu [set m $frame.mbOpts.menu]
--- 482,488 ----
  
  	# ---- Options Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbOpts -text "O ÀßÄê" -underline 0 \
  		    -menu $frame.mbOpts.menu
  	    pack $frame.mbOpts -side left
  	    menu [set m $frame.mbOpts.menu]
***************
*** 478,625 ****
  	
  
  	# "File Lists" menu
! 	$optm add cascade -label "File Lists" -menu [set m $optm.mfl]
  	menu $m
! 	$m add checkbutton -label " Long Listing " -underline 1 \
  	    -variable tkdesk(long_listing) \
  	    -command "dsk_FileListbox :: longlist \$tkdesk(long_listing)"
! 	$m add checkbutton -label " Show All Files " -underline 1 \
  	    -variable tkdesk(show_all_files) \
  	    -command "dsk_FileListbox :: showall \$tkdesk(show_all_files)"
! 	$m add checkbutton -label " Add Icons " -underline 1 \
  	    -variable tkdesk(add_icons) \
  	    -command "dsk_FileListbox :: addicons \$tkdesk(add_icons)"
! 	$m add checkbutton -label " Folders On Top " -underline 1 \
  	    -variable tkdesk(folders_on_top) \
  	    -command "dsk_FileListbox :: topfolders \$tkdesk(folders_on_top)"
! 	$m add checkbutton -label " Append Type Char " -underline 2 \
  	    -variable tkdesk(append_type_char) \
  	    -command "dsk_FileListbox :: typechar \$tkdesk(append_type_char)"
  	$m add checkbutton -label " Dot: Execs Regular " -underline 1 \
  	    -variable tkdesk(dot_regular) \
  	    -command "dsk_FileListbox :: dotregular \$tkdesk(dot_regular)"
  	$m add separator
! 	$m add cascade -label "Sort by ..." -menu [set m $m.smenu]
  	menu $m
! 	$m add radiobutton -label " Name " \
  		-variable tkdesk(default_sort) -value name \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label " Name (fold) " \
  		-variable tkdesk(default_sort) -value fold \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label " Size " \
  		-variable tkdesk(default_sort) -value size \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label " Date " \
  		-variable tkdesk(default_sort) -value date \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label " Extension " \
  		-variable tkdesk(default_sort) -value ext \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label " Don't sort " \
  		-variable tkdesk(default_sort) -value not \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
  
  	# "Appearance" menu
! 	$optm add cascade -label "Appearance" -menu [set m $optm.map]
  	menu $m
! 	$m add checkbutton -label " Strip $env(HOME) " -underline 2 \
  	    -variable tkdesk(strip_home) \
  	    -command "$this refresh all"
! 	$m add checkbutton -label " Sort History " -underline 6 \
  	    -variable tkdesk(sort_history)
! 	$m add checkbutton -label " Dialogs At Pointer " -underline 1 \
  	    -variable tkdesk(at_pointer)
! 	$m add checkbutton -label " Status in List Windows " -underline 5 \
  	    -variable tkdesk(list_statbar) \
  	    -command "dsk_FileList :: status_bar \$tkdesk(list_statbar)"
! 	$m add checkbutton -label " Expand Dir Bookmarks " -underline 1 \
  	    -variable tkdesk(expand_dir_bookmarks)
! 	$m add checkbutton -label " Tear-off Menus " -underline 3 \
  	    -variable tkdesk(tearoff-menus) \
  	    -command {option add *Menu.tearOff $tkdesk(tearoff-menus)}
! 	$m add checkbutton -label " Strictly Motif " -underline 3 \
  	    -variable tkdesk(strict_motif) \
  	    -command {set tk_strictMotif $tkdesk(strict_motif)}
  	if [$this isa dsk_FileViewer] {
  	    $m add separator
! 	    $m add cascade -label "Number Of Listboxes" \
  		    -menu [set m $m.numlbs]
  	    menu $m
  	    set num_lbs [virtual cget -num_lbs]
  	    set [set this](num_lbs) $num_lbs
! 	    $m add radiobutton -label " 1 Listbox" \
  		    -variable [set this](num_lbs) \
  		    -value 1 -command "$this _resize"
! 	    $m add radiobutton -label " 2 Listboxes" \
  		    -variable [set this](num_lbs) \
  		    -value 2 -command "$this _resize"
! 	    $m add radiobutton -label " 3 Listboxes" \
  		    -variable [set this](num_lbs) \
  		    -value 3 -command "$this _resize"
! 	    $m add radiobutton -label " 4 Listboxes" \
  		    -variable [set this](num_lbs) \
  		    -value 4 -command "$this _resize"
! 	    $m add radiobutton -label " 5 Listboxes" \
  		    -variable [set this](num_lbs) \
  		    -value 5 -command "$this _resize"
! 	    $m add radiobutton -label " 6 Listboxes" \
  		    -variable [set this](num_lbs) \
  		    -value 6 -command "$this _resize"
  	}
  
  	# "Behavior" Menu
! 	$optm add cascade -label "Behavior" -menu [set m $optm.mbe]
  	menu $m
! 	$m add checkbutton -label " Single Click (Dirs) " -underline 4 \
  	    -variable tkdesk(single_click)
! 	$m add checkbutton -label " Always In Browser " -underline 11 \
  	    -variable tkdesk(in_browser)
! 	$m add checkbutton -label " Quick Drag'n'Drop " -underline 1 \
  	    -variable tkdesk(quick_dragndrop)
  	#$m add checkbutton -label " Dot: Execs Regular " -underline 1 \
  	#    -variable tkdesk(dot_regular)
! 	$m add checkbutton -label " Focus Follows Mouse " -underline 1 \
  	    -variable tkdesk(focus_follows_mouse) \
  	    -command {if $tkdesk(focus_follows_mouse) \
  	         {tk_focusFollowsMouse} else \
  	         {dsk_msg_info "You need to restart TkDesk to make this change take effect."}}
! 	$m add checkbutton -label " Autoraise AppBar " \
  		-variable tkdesk(appbar,autoraise)
  	
  	# "Confirmation" Menu
! 	$optm add cascade -label "Confirmation" -menu [set m $optm.mco]
  	menu $m
! 	$m add checkbutton -label " Overwrite Always " -underline 1 \
  	    -variable tkdesk(overwrite_always)
! 	$m add checkbutton -label " Really Delete " -underline 1 \
  	    -variable tkdesk(really_delete)
! 	$m add checkbutton -label " Ask On Delete " -underline 3 \
  	    -variable tkdesk(ask_on_delete)
! 	$m add checkbutton -label " Start Netscape " -underline 7 \
  	    -variable tkdesk(confirm_netscape)
! 	$m add checkbutton -label " Ask On Exit " -underline 8 \
  	    -variable tkdesk(ask_on_exit)
  	
  	# "Help" Menu
! 	$optm add cascade -label "Help Options" -menu [set m $optm.mhe]
  	menu $m
! 	$m add checkbutton -label "Balloon Help" \
  		-variable cb_tools(balloon_help)
! 	$m add checkbutton -label "Use Netscape for Help" \
  		-variable tkdesk(netscape_help)
  
  	# Other entries
  	set m $optm
  	$m add separator
! 	$m add checkbutton -label " TkDesk Server " -underline 4 \
  		-command "dsk_setup_server" -variable tkdesk(tkdesk_server)
! 	$m add checkbutton -label " Use Sound " -underline 8 \
  		-variable tkdesk(use_sound)
  	
  	# ---- Help Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbHelp -text "Help" -underline 0 \
  		    -menu $frame.mbHelp.menu
  	    pack $frame.mbHelp -side right
  	    menu [set m $frame.mbHelp.menu]
--- 493,643 ----
  	
  
  	# "File Lists" menu
! 	$optm add cascade -label "¥Õ¥¡¥¤¥ë°ìÍ÷" -menu [set m $optm.mfl]
  	menu $m
! 	$m add checkbutton -label " L ¾ÜºÙÉ½¼¨" -underline 1 \
  	    -variable tkdesk(long_listing) \
  	    -command "dsk_FileListbox :: longlist \$tkdesk(long_listing)"
! 	$m add checkbutton -label " S Á´¤ÆÉ½¼¨" -underline 1 \
  	    -variable tkdesk(show_all_files) \
  	    -command "dsk_FileListbox :: showall \$tkdesk(show_all_files)"
! 	$m add checkbutton -label " A ¥¢¥¤¥³¥ó¤ÎÄÉ²Ã" -underline 1 \
  	    -variable tkdesk(add_icons) \
  	    -command "dsk_FileListbox :: addicons \$tkdesk(add_icons)"
! 	$m add checkbutton -label " F ¥Õ¥©¥ë¥À¤òÀèÆ¬¤ËÉ½¼¨" -underline 1 \
  	    -variable tkdesk(folders_on_top) \
  	    -command "dsk_FileListbox :: topfolders \$tkdesk(folders_on_top)"
! 	$m add checkbutton -label " A ¼Â¹Ô¥Õ¥¡¥¤¥ë¤Ë¡ö¤ò¤Ä¤±¤ë" -underline 1 \
  	    -variable tkdesk(append_type_char) \
  	    -command "dsk_FileListbox :: typechar \$tkdesk(append_type_char)"
  	$m add checkbutton -label " Dot: Execs Regular " -underline 1 \
  	    -variable tkdesk(dot_regular) \
  	    -command "dsk_FileListbox :: dotregular \$tkdesk(dot_regular)"
  	$m add separator
! 	$m add cascade -label "¥½¡¼¥È..." -menu [set m $m.smenu]
  	menu $m
! 	$m add radiobutton -label "Ì¾Á°½ç(Âç¾®Ê¸»úÊÌ)" \
  		-variable tkdesk(default_sort) -value name \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label "Ì¾Á°½ç" \
  		-variable tkdesk(default_sort) -value fold \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label "¥µ¥¤¥º½ç" \
  		-variable tkdesk(default_sort) -value size \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label "ÆüÉÕ½ç" \
  		-variable tkdesk(default_sort) -value date \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label "³ÈÄ¥»Ò½ç" \
  		-variable tkdesk(default_sort) -value ext \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
! 	$m add radiobutton -label "¥½¡¼¥È¤·¤Ê¤¤" \
  		-variable tkdesk(default_sort) -value not \
  		-command "dsk_FileListbox :: sort \$tkdesk(default_sort)"
  
  	# "Appearance" menu
! 	$optm add cascade -label "É½¼¨ÀßÄê" -menu [set m $optm.map]
  	menu $m
! 	$m add checkbutton -label " t $env(HOME)¤Ë¤¹¤ë" -underline 1 \
  	    -variable tkdesk(strip_home) \
  	    -command "$this refresh all"
! 	$m add checkbutton -label " S ÍúÎò¤Î¥½¡¼¥È" -underline 1 \
  	    -variable tkdesk(sort_history)
! 	$m add checkbutton -label " D ¥Ý¥¤¥ó¥¿¤Ç¥À¥¤¥¢¥í¥°É½¼¨" -underline 1 \
  	    -variable tkdesk(at_pointer)
! 	$m add checkbutton -label " S ¥¦¥£¥ó¥É¥¦¥ê¥¹¥È¤Î¥¹¥Æ¡¼¥¿¥¹" -underline 1 \
  	    -variable tkdesk(list_statbar) \
  	    -command "dsk_FileList :: status_bar \$tkdesk(list_statbar)"
! 	$m add checkbutton -label " E ¤·¤ª¤êÁªÂò¤Î³ÈÄ¥" -underline 1 \
  	    -variable tkdesk(expand_dir_bookmarks)
! 	$m add checkbutton -label " a ¥á¥Ë¥å¡¼¤¬ÀÚ¤êÎ¥¤·²ÄÇ½" -underline 1 \
  	    -variable tkdesk(tearoff-menus) \
  	    -command {option add *Menu.tearOff $tkdesk(tearoff-menus)}
! 	$m add checkbutton -label " S Motif¤Î¸«±É¤¨" -underline 1 \
  	    -variable tkdesk(strict_motif) \
  	    -command {set tk_strictMotif $tkdesk(strict_motif)}
  	if [$this isa dsk_FileViewer] {
  	    $m add separator
! 	    $m add cascade -label "¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Î¿ô" \
  		    -menu [set m $m.numlbs]
  	    menu $m
  	    set num_lbs [virtual cget -num_lbs]
  	    set [set this](num_lbs) $num_lbs
! 	    $m add radiobutton -label " 1¥ê¥¹¥È¥Ü¥Ã¥¯¥¹" \
  		    -variable [set this](num_lbs) \
  		    -value 1 -command "$this _resize"
! 	    $m add radiobutton -label " 2¥ê¥¹¥È¥Ü¥Ã¥¯¥¹" \
  		    -variable [set this](num_lbs) \
  		    -value 2 -command "$this _resize"
! 	    $m add radiobutton -label " 3¥ê¥¹¥È¥Ü¥Ã¥¯¥¹" \
  		    -variable [set this](num_lbs) \
  		    -value 3 -command "$this _resize"
! 	    $m add radiobutton -label " 4¥ê¥¹¥È¥Ü¥Ã¥¯¥¹" \
  		    -variable [set this](num_lbs) \
  		    -value 4 -command "$this _resize"
! 	    $m add radiobutton -label " 5¥ê¥¹¥È¥Ü¥Ã¥¯¥¹" \
  		    -variable [set this](num_lbs) \
  		    -value 5 -command "$this _resize"
! 	    $m add radiobutton -label " 6¥ê¥¹¥È¥Ü¥Ã¥¯¥¹" \
  		    -variable [set this](num_lbs) \
  		    -value 6 -command "$this _resize"
  	}
  
  	# "Behavior" Menu
! 	$optm add cascade -label "Æ°ºîÀßÄê" -menu [set m $optm.mbe]
  	menu $m
! 	$m add checkbutton -label " S ¥·¥ó¥°¥ë¥¯¥ê¥Ã¥¯¤Ç¥Õ¥©¥ë¥À¤ò³«¤¯" -underline 1 \
  	    -variable tkdesk(single_click)
! 	$m add checkbutton -label " B ¾ï¤Ë¥Ö¥é¥¦¥¸¥ó¥°" -underline 1 \
  	    -variable tkdesk(in_browser)
! 	$m add checkbutton -label " Q ¥É¥é¥Ã¥°¡¦¥É¥í¥Ã¥×" -underline 1 \
  	    -variable tkdesk(quick_dragndrop)
  	#$m add checkbutton -label " Dot: Execs Regular " -underline 1 \
  	#    -variable tkdesk(dot_regular)
! 	$m add checkbutton -label " F ¥Þ¥¦¥¹¤Î¾ì½ê¤ò¥Õ¥©¡¼¥«¥¹" -underline 1 \
  	    -variable tkdesk(focus_follows_mouse) \
  	    -command {if $tkdesk(focus_follows_mouse) \
  	         {tk_focusFollowsMouse} else \
  	         {dsk_msg_info "You need to restart TkDesk to make this change take effect."}}
! 	$m add checkbutton -label " A ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥Ð¡¼¤ò¥Õ¥©¡¼¥«¥¹" \
  		-variable tkdesk(appbar,autoraise)
  	
  	# "Confirmation" Menu
! 	$optm add cascade -label "³ÎÇ§" -menu [set m $optm.mco]
  	menu $m
! 	$m add checkbutton -label " V ¾ï¤Ë¾å½ñ¤­¤¹¤ë" -underline 1 \
  	    -variable tkdesk(overwrite_always)
! 	$m add checkbutton -label " R ¼ÂºÝ¤Ëºï½ü" -underline 1 \
  	    -variable tkdesk(really_delete)
! 	$m add checkbutton -label " A ³ÎÇ§¤·¤Æºï½ü" -underline 1 \
  	    -variable tkdesk(ask_on_delete)
! 	$m add checkbutton -label " S ¥Í¥Ã¥È¥¹¥±¡¼¥×¤òµ¯Æ°" -underline 1 \
  	    -variable tkdesk(confirm_netscape)
! 	$m add checkbutton -label " Q ½ªÎ»»þ¤Ë³ÎÇ§" -underline 1 \
  	    -variable tkdesk(ask_on_exit)
  	
  	# "Help" Menu
! 	$optm add cascade -label "¥Ø¥ë¥×ÀßÄê" -menu [set m $optm.mhe]
  	menu $m
! 	$m add checkbutton -label "¥Ð¥ë¡¼¥ó¥Ø¥ë¥×" \
  		-variable cb_tools(balloon_help)
! 	$m add checkbutton -label "¥Ø¥ë¥×¤Ë¥Í¥Ã¥È¥¹¥±¡¼¥×¤ò»ÈÍÑ" \
  		-variable tkdesk(netscape_help)
  
  	# Other entries
  	set m $optm
  	$m add separator
! 	$m add checkbutton -label " TkDesk¥µ¡¼¥Ð¡¼" -underline 4 \
  		-command "dsk_setup_server" -variable tkdesk(tkdesk_server)
! 	$m add checkbutton -label " S ²»¤ò»ÈÍÑ" -underline 1 \
  		-variable tkdesk(use_sound)
+ 	$m add separator
+ 	$m add command -label "E ¥á¡¼¥ë´ÊÃ±ÀßÄê" -underline 0 -command "dsk_easyconf_mail"
+ 	$m add command -label "S ¥á¡¼¥ë¾ÜºÙÀßÄê" -underline 0 -command "dsk_config_mail"
  	
  	# ---- Help Menu
  	if [$this isa dsk_FileViewer] {
! 	    menubutton $frame.mbHelp -text "H ¥Ø¥ë¥×" -underline 0 \
  		    -menu $frame.mbHelp.menu
  	    pack $frame.mbHelp -side right
  	    menu [set m $frame.mbHelp.menu]
***************
*** 627,651 ****
  	    menu [set m $topl.fMenu.mbOthers.menu.help]
  	}
  
! 	$m add command -label "User's Guide  " \
  		-command "dsk_help guide" \
  		-accelerator "F1"
! 	$m add command -label "Manual Page... " \
  		-command "dsk_man"
  	$m add separator
! 	$m add command -label "Getting Started" \
  		-command "dsk_help quick"
! 	$m add command -label "TkDesk FAQ" \
  		-command "dsk_help faq"
! 	$m add command -label "Changes" \
  		-command "dsk_help changes"
! 	$m add command -label "License" \
  		-command "dsk_help license"
  	$m add separator
! 	$m add command -label "About TkDesk..." \
  		-command dsk_about
  	if $tkdesk(in_development) {
! 	    $m add command -label "About TkDesk (Web)..." \
  		    -command dsk_about_web
  	}
      }
--- 645,671 ----
  	    menu [set m $topl.fMenu.mbOthers.menu.help]
  	}
  
! 	$m add command -label "¥æ¡¼¥¶¡¼¥º¥¬¥¤¥É" \
  		-command "dsk_help guide" \
  		-accelerator "F1"
! 	$m add command -label "¥Þ¥Ë¥å¥¢¥ë¥Ú¡¼¥¸... " \
  		-command "dsk_man"
  	$m add separator
! 	$m add command -label "ÆþÌç¥¬¥¤¥É" \
  		-command "dsk_help quick"
! 	$m add command -label "¥á¡¼¥ëµ¡Ç½¤Î²òÀâ" \
! 		-command "dsk_help mail"
! 	$m add command -label "TkDeskÌäÅú½¸" \
  		-command "dsk_help faq"
! 	$m add command -label "ÊÑ¹¹ÍúÎò" \
  		-command "dsk_help changes"
! 	$m add command -label "¥é¥¤¥»¥ó¥¹" \
  		-command "dsk_help license"
  	$m add separator
! 	$m add command -label "TkDesk¤Ë¤Ä¤¤¤Æ..." \
  		-command dsk_about
  	if $tkdesk(in_development) {
! 	    $m add command -label "TkDesk¤Ë¤Ä¤¤¤Æ(Web)..." \
  		    -command dsk_about_web
  	}
      }
***************
*** 890,896 ****
  	    $m add separator
  	    
  	    set sm $m.sub
! 	    $m add cascade -label "Subdirectories " -menu $sm
  	    menu $sm
  	    set p $op
  	    set i 0
--- 910,916 ----
  	    $m add separator
  	    
  	    set sm $m.sub
! 	    $m add cascade -label "²¼¤Î¥Õ¥©¥ë¥À" -menu $sm
  	    menu $sm
  	    set p $op
  	    set i 0
***************
*** 906,912 ****
  	    }
  	    
  	    set sm $m.files
! 	    $m add cascade -label "... and Files " -menu $sm
  	    menu $sm
  	    set p $op
  	    set i 0
--- 926,932 ----
  	    }
  	    
  	    set sm $m.files
! 	    $m add cascade -label "²¼¤Î¥Õ¥¡¥¤¥ë" -menu $sm
  	    menu $sm
  	    set p $op
  	    set i 0
diff -Pcr tkdesk-1.2/tcldesk/Editor.tcl tkdesk-1.2-jp/tcldesk/Editor.tcl
*** tkdesk-1.2/tcldesk/Editor.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/Editor.tcl	Fri Sep 15 17:46:38 2000
***************
*** 157,281 ****
  
  	# ---- File Menu
  
! 	menubutton $top.fMenu.mbFile -text "File" -underline 0 \
  		-menu $top.fMenu.mbFile.menu
   	pack $top.fMenu.mbFile -side left
  
  	menu [set m $top.fMenu.mbFile.menu]
! 	$m add command -label "New  " -underline 0 \
  		-command "$this buffer new {}" \
  		-accelerator [lindex $accel(file,new) 0]
! 	$m add command -label "Open...  " -underline 0 \
  		-command "$this load" \
  		-accelerator [lindex $accel(file,open) 0]
! 	$m add cascade -label "Same Dir..." -menu $m.odm
  	menu $m.odm -postcommand "$this _openFromSameDir $m.odm"
  	$m add separator
! 	$m add command -label "Insert...  " -underline 0 \
  		-command "$this insertfile" \
  		-accelerator [lindex $accel(file,insert) 0]
! 	$m add command -label "Find...  " -underline 0 \
  		-command "$this findfile"
! 	$m add command -label "Reload " -underline 0 \
  		-command "$this buffer reload" \
  		-accelerator [lindex $accel(file,reload) 0]
  	$m add separator
! 	$m add command -label "Save " -underline 0 \
! 		-command "$this save" \
! 		-accelerator [lindex $accel(file,save) 0]
! 	$m add command -label "Save as...  " -underline 5 \
  		-command "$this save as"
! 	$m add command -label "Save all" -underline 2 \
  		-command "dsk_Editor :: save_all"
! 	$m add command -label "Print... " -underline 0 \
! 		-command "$this print" \
! 		-accelerator [lindex $accel(file,print) 0]
! 	$m add command -label "Mail to... " -underline 0 \
  		-command "$this mail"
  	$m add separator
! 	$m add command -label "Close Buffer " -underline 0 \
  		-command "$this buffer delete *current*" \
  		-accelerator [lindex $accel(file,close) 0]
! 	$m add command -label "Close Window " -underline 6 \
  		-command "$this close_win"
! 	$m add command -label "Close All " -underline 2 \
  		-command "dsk_editor delall"
  
  	# ---- Edit Menu
  	
! 	menubutton $top.fMenu.mbEdit -text "Edit" -underline 0 \
  		-menu $top.fMenu.mbEdit.menu
  	pack $top.fMenu.mbEdit -side left
  
  	menu [set m $top.fMenu.mbEdit.menu]
! 	$m add command -label "Undo" -underline 0 -command "$this undo" \
  		-accelerator [lindex $accel(edit,undo) 0] -state disabled
  	$m add separator
! 	$m add command -label "Cut" -underline 0 -command "$this cut" \
  		-accelerator [lindex $accel(edit,cut) 0]
! 	$m add command -label "Copy" -underline 1 -command "$this copy" \
  		-accelerator [lindex $accel(edit,copy) 0]
! 	$m add command -label "Paste" -underline 0 -command "$this paste" \
  		-accelerator [lindex $accel(edit,paste) 0]
! 	$m add command -label "Select all" -underline 7 \
  		-command "$top.ft.text tag add sel 1.0 end
  	                  catch {$this update_status}" \
  		-accelerator [lindex $accel(edit,selall) 0]
  	$m add separator
! 	$m add command -label "Search/Replace... " -underline 0 \
  		-command "$this search" \
  		-accelerator [lindex $accel(edit,search) 0]
! 	$m add command -label "HyperSearch... " -underline 0 \
  		-command "$this hypersearch" \
  		-accelerator [lindex $accel(edit,hyper) 0]
! 	$m add command -label "Find Selection" -underline 0 \
  		-command "$this findsel" \
  		-accelerator [lindex $accel(edit,searchsel) 0]
! 	$m add command -label "Goto Line... " -underline 0 \
  		-command "$this gotoline" \
  		-accelerator [lindex $accel(edit,goto) 0]
  	$m add separator
! 	$m add command -label "Insert Form Feed " -underline 0 \
  		-command "$this insert_ff" \
  		-accelerator [lindex $accel(edit,ff) 0]
! 	$m add command -label "Insert Time Stamp " -underline 0 \
  		-command "$this insert_timestamp" \
  		-accelerator [lindex $accel(edit,time) 0]
  
! 	# ---- Selection Menu
  
! 	menubutton $top.fMenu.mbSel -text "Selection" -underline 2 \
  		-menu $top.fMenu.mbSel.menu
  	pack $top.fMenu.mbSel -side left
  
  	menu [set m $top.fMenu.mbSel.menu]
! 	$m add command -label "Shift Left" -underline 6 \
  		-command "$this sel_op shift_left" \
  		-accelerator [lindex $accel(sel,left) 0]
! 	$m add command -label "Shift Right" -underline 6 \
  		-command "$this sel_op shift_right" \
  		-accelerator [lindex $accel(sel,right) 0]
  	$m add separator
! 	$m add cascade -label "Pipe..." -menu $m.pm
  	menu $m.pm
! 	$m.pm add command -label "Replace..." \
  		-command "$this sel_op pipe replace"
! 	$m.pm add command -label "Insert..." \
  		-command "$this sel_op pipe insert"
! 	$m.pm add command -label "View..." \
  		-command "$this sel_op pipe view"
! 	$m.pm add command -label "Execute..." \
  		-command "$this sel_op pipe exec"
  	
  	# ---- Options Menu
  
! 	menubutton $top.fMenu.mbOptions -text "Options" -underline 0 \
  		-menu $top.fMenu.mbOptions.menu
  	pack $top.fMenu.mbOptions -side left
  
  	menu [set m $top.fMenu.mbOptions.menu]
  	::set [set this](auto_indent) $tkdesk(editor,auto_indent)
! 	$m add checkbutton -label " Auto Indent" -underline 1 \
  		-variable [set this](auto_indent) \
  		-command "$this set_auto_indent"
  	::set [set this](brace_indent) $tkdesk(editor,brace_indent)
--- 157,281 ----
  
  	# ---- File Menu
  
! 	menubutton $top.fMenu.mbFile -text "F ¥Õ¥¡¥¤¥ë" -underline 0 \
  		-menu $top.fMenu.mbFile.menu
   	pack $top.fMenu.mbFile -side left
  
  	menu [set m $top.fMenu.mbFile.menu]
! 	$m add command -label "N ¿·µ¬ºîÀ®" -underline 0 \
  		-command "$this buffer new {}" \
  		-accelerator [lindex $accel(file,new) 0]
! 	$m add command -label "O ÆÉ¤ß¹þ¤ß..." -underline 0 \
  		-command "$this load" \
  		-accelerator [lindex $accel(file,open) 0]
! 	$m add cascade -label "Æ±¤¸¥Õ¥©¥ë¥À..." -menu $m.odm
  	menu $m.odm -postcommand "$this _openFromSameDir $m.odm"
  	$m add separator
! 	$m add command -label "I ÁÞÆþ..." -underline 0 \
  		-command "$this insertfile" \
  		-accelerator [lindex $accel(file,insert) 0]
! 	$m add command -label "F ¸¡º÷...  " -underline 0 \
  		-command "$this findfile"
! 	$m add command -label "R ºÆÆÉ¤ß¹þ¤ß" -underline 0 \
  		-command "$this buffer reload" \
  		-accelerator [lindex $accel(file,reload) 0]
  	$m add separator
! 	$m add command -label "S ÊÝÂ¸" -underline 0 \
! 		-command "$this save" -accelerator "Meta-s"
! 	$m add command -label "a Ì¾Á°¤ò¤Ä¤±¤ÆÊÝÂ¸..." -underline 0 \
  		-command "$this save as"
! 	$m add command -label "v Á´¤ÆÊÝÂ¸" -underline 0 \
  		-command "dsk_Editor :: save_all"
! 	$m add command -label "P °õºþ..." -underline 0 \
! 		-command "$this print"
! 	$m add command -label "M ¥á¡¼¥ëÁ÷¿®..." -underline 0 \
  		-command "$this mail"
+ 	$m add command -label "D ¥Ë¥å¡¼¥¹Åê¹Æ..." -underline 0 \
+ 		-command "$this news"
  	$m add separator
! 	$m add command -label "C ¥Ð¥Ã¥Õ¥¡¤òÊÄ¤¸¤ë" -underline 0 \
  		-command "$this buffer delete *current*" \
  		-accelerator [lindex $accel(file,close) 0]
! 	$m add command -label "W ¥¦¥£¥ó¥É¥¦¤òÊÄ¤¸¤ë" -underline 0 \
  		-command "$this close_win"
! 	$m add command -label "o Á´¤ÆÊÄ¤¸¤ë" -underline 0 \
  		-command "dsk_editor delall"
  
  	# ---- Edit Menu
  	
! 	menubutton $top.fMenu.mbEdit -text "E ÊÔ½¸" -underline 0 \
  		-menu $top.fMenu.mbEdit.menu
  	pack $top.fMenu.mbEdit -side left
  
  	menu [set m $top.fMenu.mbEdit.menu]
! 	$m add command -label "U ¸µ¤ËÌá¤¹" -underline 0 -command "$this undo" \
  		-accelerator [lindex $accel(edit,undo) 0] -state disabled
  	$m add separator
! 	$m add command -label "C ÀÚ¤ê¼è¤ê" -underline 0 -command "$this cut" \
  		-accelerator [lindex $accel(edit,cut) 0]
! 	$m add command -label "o ¥³¥Ô¡¼" -underline 0 -command "$this copy" \
  		-accelerator [lindex $accel(edit,copy) 0]
! 	$m add command -label "P Å½¤êÉÕ¤±" -underline 0 -command "$this paste" \
  		-accelerator [lindex $accel(edit,paste) 0]
! 	$m add command -label "a Á´¤ÆÁªÂò" -underline 0 \
  		-command "$top.ft.text tag add sel 1.0 end
  	                  catch {$this update_status}" \
  		-accelerator [lindex $accel(edit,selall) 0]
  	$m add separator
! 	$m add command -label "S ¸¡º÷/ÃÖ´¹... " -underline 0 \
  		-command "$this search" \
  		-accelerator [lindex $accel(edit,search) 0]
! 	$m add command -label "H ¥Ï¥¤¥Ñ¡¼¸¡º÷... " -underline 0 \
  		-command "$this hypersearch" \
  		-accelerator [lindex $accel(edit,hyper) 0]
! 	$m add command -label "F ÁªÂò¤µ¤ì¤¿Ê¸»ú¤ò¸¡º÷" -underline 0 \
  		-command "$this findsel" \
  		-accelerator [lindex $accel(edit,searchsel) 0]
! 	$m add command -label "G ¹ÔÈÖ¹æ¤ò»ØÄê... " -underline 0 \
  		-command "$this gotoline" \
  		-accelerator [lindex $accel(edit,goto) 0]
  	$m add separator
! 	$m add command -label "I ²þ¥Ú¡¼¥¸¤òÁÞÆþ" -underline 0 \
  		-command "$this insert_ff" \
  		-accelerator [lindex $accel(edit,ff) 0]
! 	$m add command -label "I »þ¹ï¤òÁÞÆþ" -underline 0 \
  		-command "$this insert_timestamp" \
  		-accelerator [lindex $accel(edit,time) 0]
  
! #  ---- Selection Menu
  
! 	menubutton $top.fMenu.mbSel -text "l ¥»¥ì¥¯¥·¥ç¥ó" -underline 0 \
  		-menu $top.fMenu.mbSel.menu
  	pack $top.fMenu.mbSel -side left
  
  	menu [set m $top.fMenu.mbSel.menu]
! 	$m add command -label "L º¸¥·¥Õ¥È" -underline 0 \
  		-command "$this sel_op shift_left" \
  		-accelerator [lindex $accel(sel,left) 0]
! 	$m add command -label "R ±¦¥·¥Õ¥È" -underline 0 \
  		-command "$this sel_op shift_right" \
  		-accelerator [lindex $accel(sel,right) 0]
  	$m add separator
! 	$m add cascade -label "¥Ñ¥¤¥×..." -menu $m.pm
  	menu $m.pm
! 	$m.pm add command -label "¹¹¿·..." \
  		-command "$this sel_op pipe replace"
! 	$m.pm add command -label "ÁÞÆþ..." \
  		-command "$this sel_op pipe insert"
! 	$m.pm add command -label "±ÜÍ÷..." \
  		-command "$this sel_op pipe view"
! 	$m.pm add command -label "¼Â¹Ô..." \
  		-command "$this sel_op pipe exec"
  	
  	# ---- Options Menu
  
! 	menubutton $top.fMenu.mbOptions -text "O ÀßÄê" -underline 0 \
  		-menu $top.fMenu.mbOptions.menu
  	pack $top.fMenu.mbOptions -side left
  
  	menu [set m $top.fMenu.mbOptions.menu]
  	::set [set this](auto_indent) $tkdesk(editor,auto_indent)
! 	$m add checkbutton -label "O ÀßÄê" -underline 0 \
  		-variable [set this](auto_indent) \
  		-command "$this set_auto_indent"
  	::set [set this](brace_indent) $tkdesk(editor,brace_indent)
***************
*** 283,301 ****
  		-variable [set this](brace_indent)
  	$m add separator
  	::set [set this](quick_load) 0
! 	$m add checkbutton -label " Quick Load" -underline 1 \
  		-variable [set this](quick_load) \
  		-command "$this set_quick_load"
! 	$m add checkbutton -label " Load Once" -underline 1 \
  		-variable tkdesk(editor,load_once)
  	::set [set this](do_backups) $tkdesk(editor,do_backups)
! 	$m add checkbutton -label " Create Backups" -underline 1 \
  		-variable [set this](do_backups)
  	::set [set this](send_netscape) 0
! 	$m add checkbutton -label " Send to Netscape" -underline 9 \
  		-variable [set this](send_netscape)
  	::set [set this](statbar) $tkdesk(editor,statbar)
! 	$m add checkbutton -label " Status Bar" -underline 1 \
  		-variable [set this](statbar) \
  		-command "$this set_statbar"
  	$m add separator
--- 283,301 ----
  		-variable [set this](brace_indent)
  	$m add separator
  	::set [set this](quick_load) 0
! 	$m add checkbutton -label " A ¼«Æ°¥¤¥ó¥Ç¥ó¥È" -underline 1 \
  		-variable [set this](quick_load) \
  		-command "$this set_quick_load"
! 	$m add checkbutton -label " L ½é²ó¤À¤±ÆÉ¤ß¹þ¤ß" -underline 1 \
  		-variable tkdesk(editor,load_once)
  	::set [set this](do_backups) $tkdesk(editor,do_backups)
! 	$m add checkbutton -label " C ¥Ð¥Ã¥¯¥¢¥Ã¥×ºîÀ®" -underline 1 \
  		-variable [set this](do_backups)
  	::set [set this](send_netscape) 0
! 	$m add checkbutton -label " S ¥Í¥Ã¥È¥¹¥±¡¼¥×¤ËÁ÷¿®" -underline 1 \
  		-variable [set this](send_netscape)
  	::set [set this](statbar) $tkdesk(editor,statbar)
! 	$m add checkbutton -label " S ¥¹¥Æ¡¼¥¿¥¹¡¦¥Ð¡¼" -underline 1 \
  		-variable [set this](statbar) \
  		-command "$this set_statbar"
  	$m add separator
***************
*** 306,342 ****
  	#	 -underline 0 \
  	#	 -command "$this setfont default"
  
! 	$m add cascade -label "Tab Stops" -menu $m.mtab \
  		-underline 0
  	menu [set m $m.mtab]
  	::set [set this](realtabs) $tkdesk(editor,real_tabs)
! 	$m add radiobutton -label "Real Tabs" \
  		-underline 0 \
  		-variable [set this](realtabs) \
  		-value 1 \
  		-command "$this set_tab_string"
! 	$m add radiobutton -label "Tab Width..." \
  		-underline 0 \
  		-variable [set this](realtabs) \
  		-value 0 \
  		-command "$this set_tab_string"
  	
  	set m $top.fMenu.mbOptions.menu
! 	$m add cascade -label "Line Wrap" -menu $m.mwrap \
  		-underline 0
  	menu [set m $m.mwrap]
  	::set [set this](wrap) $tkdesk(editor,wrap)
! 	$m add radiobutton -label "None" \
  		-underline 0 \
  		-variable [set this](wrap) \
  		-value none \
  		-command "$this set_line_wrap"
! 	$m add radiobutton -label "Character" \
  		-underline 0 \
  		-variable [set this](wrap) \
  		-value char \
  		-command "$this set_line_wrap"
! 	$m add radiobutton -label "Word" \
  		-underline 0 \
  		-variable [set this](wrap) \
  		-value word \
--- 306,342 ----
  	#	 -underline 0 \
  	#	 -command "$this setfont default"
  
! 	$m add cascade -label "T ¥¿¥ÖÀßÄê" -menu $m.mtab \
  		-underline 0
  	menu [set m $m.mtab]
  	::set [set this](realtabs) $tkdesk(editor,real_tabs)
! 	$m add radiobutton -label "R ¥¿¥Ö¥³¡¼¥É" \
  		-underline 0 \
  		-variable [set this](realtabs) \
  		-value 1 \
  		-command "$this set_tab_string"
! 	$m add radiobutton -label "T ¥¹¥Ú¡¼¥¹¥¿¥ÖÉý..." \
  		-underline 0 \
  		-variable [set this](realtabs) \
  		-value 0 \
  		-command "$this set_tab_string"
  	
  	set m $top.fMenu.mbOptions.menu
! 	$m add cascade -label "L ¹ÔÀÞ¤êÊÖ¤·" -menu $m.mwrap \
  		-underline 0
  	menu [set m $m.mwrap]
  	::set [set this](wrap) $tkdesk(editor,wrap)
! 	$m add radiobutton -label "N ¤Ê¤·" \
  		-underline 0 \
  		-variable [set this](wrap) \
  		-value none \
  		-command "$this set_line_wrap"
! 	$m add radiobutton -label "C Ê¸»ú" \
  		-underline 0 \
  		-variable [set this](wrap) \
  		-value char \
  		-command "$this set_line_wrap"
! 	$m add radiobutton -label "W Ã±¸ì" \
  		-underline 0 \
  		-variable [set this](wrap) \
  		-value word \
***************
*** 344,350 ****
  	
  	# ---- Buffer Menu
  
! 	menubutton $top.fMenu.mbBuffer -text "Buffers" -underline 0 \
  		-menu $top.fMenu.mbBuffer.menu
  	pack $top.fMenu.mbBuffer -side left
  
--- 344,350 ----
  	
  	# ---- Buffer Menu
  
! 	menubutton $top.fMenu.mbBuffer -text "B ¥Ð¥Ã¥Õ¥¡" -underline 0 \
  		-menu $top.fMenu.mbBuffer.menu
  	pack $top.fMenu.mbBuffer -side left
  
***************
*** 359,385 ****
  
  	# ---- Help Menu
  
! 	menubutton $top.fMenu.mbHelp -text "Help" -underline 0 \
  		-menu $top.fMenu.mbHelp.menu
  	pack $top.fMenu.mbHelp -side right
  
  	menu [set m $top.fMenu.mbHelp.menu]
! 	$m add command -label "User's Guide  " \
  		-command "dsk_help guide" \
  		-accelerator [lindex $accel(help,guide) 0]
! 	$m add command -label "Manual Page... " \
  		-command "dsk_man"
  	$m add separator
! 	$m add command -label "Getting Started" \
  		-command "dsk_help quick"
! 	$m add command -label "TkDesk FAQ" \
  		-command "dsk_help faq"
! 	$m add command -label "Changes" \
  		-command "dsk_help changes"
! 	$m add command -label "License" \
  		-command "dsk_help license"
  	$m add separator
! 	$m add command -label "About TkDesk..." \
  		-command dsk_about
  	if $tkdesk(in_development) {
  	    $m add command -label "About TkDesk (Web)..." \
--- 359,385 ----
  
  	# ---- Help Menu
  
! 	menubutton $top.fMenu.mbHelp -text "H ¥Ø¥ë¥×" -underline 0 \
  		-menu $top.fMenu.mbHelp.menu
  	pack $top.fMenu.mbHelp -side right
  
  	menu [set m $top.fMenu.mbHelp.menu]
! 	$m add command -label "¥æ¡¼¥¶¡¼¥º¥¬¥¤¥É" \
  		-command "dsk_help guide" \
  		-accelerator [lindex $accel(help,guide) 0]
! 	$m add command -label "¥Þ¥Ë¥å¥¢¥ë¥Ú¡¼¥¸... " \
  		-command "dsk_man"
  	$m add separator
! 	$m add command -label "ÆþÌç¥¬¥¤¥É" \
  		-command "dsk_help quick"
! 	$m add command -label "TkDeskÌäÅú½¸" \
  		-command "dsk_help faq"
! 	$m add command -label "ÊÑ¹¹ÍúÎò" \
  		-command "dsk_help changes"
! 	$m add command -label "¥é¥¤¥»¥ó¥¹" \
  		-command "dsk_help license"
  	$m add separator
! 	$m add command -label "TkDesk¤Ë¤Ä¤¤¤Æ..." \
  		-command dsk_about
  	if $tkdesk(in_development) {
  	    $m add command -label "About TkDesk (Web)..." \
***************
*** 594,605 ****
  	}
  
  	while {1} {
! 	    set file [dsk_filesel "Select a file to edit:" $filter showall]
  	    
  	    if {$file != ""} {
  		if [file isdirectory $file] {
  		    dsk_errbell
! 		    cb_error "$file is a directory. Please choose a file."
  		} else {
  		    $this buffer create $file
  		    break
--- 594,605 ----
  	}
  
  	while {1} {
! 	    set file [dsk_filesel "ÊÔ½¸¤¹¤ë¥Õ¥¡¥¤¥ë¤òÁªÂò:" $filter showall]
  	    
  	    if {$file != ""} {
  		if [file isdirectory $file] {
  		    dsk_errbell
! 		    cb_error "$file ¤Ï¡¢¥Õ¥©¥ë¥À¤Ç¤¹¡£¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤¡£"
  		} else {
  		    $this buffer create $file
  		    break
***************
*** 625,636 ****
  	#set file [cb_fileSelector -filter $filter \
  		#-label "Select file to insert:" -showall 1]
  	while {1} {
! 	    set file [dsk_filesel "Select a file to insert:" $filter showall]
  	    
  	    if {$file != ""} {
  		if [file isdirectory $file] {
  		    dsk_errbell
! 		    cb_error "$file is a directory. Please choose a file."
  		} else {
  		    $this buffer create $file 1
  		    break
--- 625,636 ----
  	#set file [cb_fileSelector -filter $filter \
  		#-label "Select file to insert:" -showall 1]
  	while {1} {
! 	    set file [dsk_filesel "ÁÞÆþ¤¹¤ë¥Õ¥¡¥¤¥ë¤ò»ØÄê:" $filter showall]
  	    
  	    if {$file != ""} {
  		if [file isdirectory $file] {
  		    dsk_errbell
! 		    cb_error "$file ¥Õ¥©¥ë¥À¤Ç¤¹¡£¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤¡£"
  		} else {
  		    $this buffer create $file 1
  		    break
***************
*** 690,696 ****
  	    }
  	    #set fname [cb_fileSelector -filter $filter \
  		    #-label "Save file as:" -showall 1]
! 	    set fname [dsk_filesel "Save file as:" $filter showall]
  	    if {$fname == ""} {
  		return "cancel"
  	    } else {
--- 690,696 ----
  	    }
  	    #set fname [cb_fileSelector -filter $filter \
  		    #-label "Save file as:" -showall 1]
! 	    set fname [dsk_filesel "Ì¾Á°¤ò¤Ä¤±¤ÆÊÝÂ¸:" $filter showall]
  	    if {$fname == ""} {
  		return "cancel"
  	    } else {
***************
*** 767,777 ****
      }
  	
      method mail {} {
! 	global tkdesk tmppcmd
! 
! 	dsk_mail "" [$top.ft.text get 1.0 end]
      }
  	
      method buffer {cmd args} {
  	switch -- $cmd {
  	    new {return [eval _buffer_new $args]}
--- 767,785 ----
      }
  	
      method mail {} {
!     	global tkdesk
!     	
!     	set tkdesk(TkMailer) "mail"
! 	dsk_mailer {} {} [$top.ft.text get 1.0 end]
      }
  	
+     method news {} {
+     	global tkdesk tmppcmd
+     	
+     	set tkdesk(TkMailer) "news"
+ 	dsk_mailer {} {} [$top.ft.text get 1.0 end]
+     }
+ 
      method buffer {cmd args} {
  	switch -- $cmd {
  	    new {return [eval _buffer_new $args]}
***************
*** 922,935 ****
  	if {[string first $tkdesk(configdir) $file] == 0} {
  	    
  	    if ![winfo exists $top.fMenu.mbTkDesk] {
! 		menubutton $top.fMenu.mbTkDesk -text "Configuration" \
  			-menu [set m $top.fMenu.mbTkDesk.m] \
  			-underline 0
  		pack propagate $top.fMenu 0
  		pack $top.fMenu.mbTkDesk -side left
  		
  		menu $m
! 		$m add cascade -label "Load..." \
  			-menu $m.cfg
  		menu $m.cfg
  		foreach cf $tkdesk(configfiles) {
--- 930,943 ----
  	if {[string first $tkdesk(configdir) $file] == 0} {
  	    
  	    if ![winfo exists $top.fMenu.mbTkDesk] {
! 		menubutton $top.fMenu.mbTkDesk -text "C ´Ä¶­ÀßÄê" \
  			-menu [set m $top.fMenu.mbTkDesk.m] \
  			-underline 0
  		pack propagate $top.fMenu 0
  		pack $top.fMenu.mbTkDesk -side left
  		
  		menu $m
! 		$m add cascade -label "ÆÉ¹þ..." \
  			-menu $m.cfg
  		menu $m.cfg
  		foreach cf $tkdesk(configfiles) {
***************
*** 938,970 ****
  			    -label "$cfs 	($tkdesk(configxpl,$cf))" \
  			    -command "$this buffer create $tkdesk(configdir)/$cf"
  		}
! 		$m add command -label "Find in Config..." \
  			-command "dsk_find_files -path $tkdesk(configdir) -name [list $tkdesk(configfiles)] -type file"
  		$m add separator
  		
! 		$m add command -label "Save and Reload into TkDesk " \
  			-command "$this _tkdesk reload" \
  			-accelerator F5
! 		$m add command -label "Save, Reload and Close" \
  			-command "$this _tkdesk reload_and_close" \
  			-accelerator F6
! 		$m add command -label "Evaluate Selection" \
  			-command {dsk_catch {eval [selection get]}} \
  			-accelerator F7
! 		$m add command -label "Load Default Version" \
  			-command "$this _load_default_cfg" \
  			-accelerator F8
  		$m add separator
! 		$m add command -label "Colors..." \
  			-command "dsk_config_panel colors $top.ft.text" \
  			-accelerator F9
! 		$m add command -label "Fonts..." \
  			-command "dsk_config_panel fonts $top.ft.text" \
  			-accelerator F10
! 		$m add command -label "Icons..." \
  			-command "dsk_config_panel icons $top.ft.text" \
  			-accelerator F11
! 		$m add command -label "Sounds..." \
  			-command "dsk_config_panel sounds $top.ft.text" \
  			-accelerator F12
  		bind $top.ft.text <F5> "$this _tkdesk reload"
--- 946,978 ----
  			    -label "$cfs 	($tkdesk(configxpl,$cf))" \
  			    -command "$this buffer create $tkdesk(configdir)/$cf"
  		}
! 		$m add command -label "ÀßÄê¥Õ¥¡¥¤¥ë¤ò¸¡º÷..." \
  			-command "dsk_find_files -path $tkdesk(configdir) -name [list $tkdesk(configfiles)] -type file"
  		$m add separator
  		
! 		$m add command -label "ÀßÄê¤òÊÝÂ¸¤·¤ÆÆÉ¤ß¹þ¤ßÄ¾¤¹" \
  			-command "$this _tkdesk reload" \
  			-accelerator F5
! 		$m add command -label "ÀßÄê¤òÊÝÂ¸¤·¤ÆÆÉ¤ß¹þ¤ßÄ¾¤·¤ÆÊÄ¤¸¤ë" \
  			-command "$this _tkdesk reload_and_close" \
  			-accelerator F6
! 		$m add command -label "ÁªÂò¤µ¤ì¤¿Ê¸»ú¤òÉ¾²Á" \
  			-command {dsk_catch {eval [selection get]}} \
  			-accelerator F7
! 		$m add command -label "¥Ç¥Õ¥©¥ë¥È¥Ð¡¼¥¸¥ç¥ó¤òÆÉ¤ß¹þ¤à" \
  			-command "$this _load_default_cfg" \
  			-accelerator F8
  		$m add separator
! 		$m add command -label "¿§..." \
  			-command "dsk_config_panel colors $top.ft.text" \
  			-accelerator F9
! 		$m add command -label "¥Õ¥©¥ó¥È..." \
  			-command "dsk_config_panel fonts $top.ft.text" \
  			-accelerator F10
! 		$m add command -label "¥¢¥¤¥³¥ó..." \
  			-command "dsk_config_panel icons $top.ft.text" \
  			-accelerator F11
! 		$m add command -label "²»..." \
  			-command "dsk_config_panel sounds $top.ft.text" \
  			-accelerator F12
  		bind $top.ft.text <F5> "$this _tkdesk reload"
***************
*** 1101,1109 ****
  
  	    cb_raise $top
  	    catch {destroy $top.tqmod}
! 	    set ans [cb_dialog $top.tqmod "File modified" \
! 		    "[file tail $buffer($id,file)]:\nThis file has been modified. Save it?" \
! 		    questhead 0 "Yes" "No" "Cancel"]
  	    if {$ans == 0} {
  		set ret [save]
  		if {$ret == "cancel"} {
--- 1109,1117 ----
  
  	    cb_raise $top
  	    catch {destroy $top.tqmod}
! 	    set ans [cb_dialog $top.tqmod "¥Õ¥¡¥¤¥ë¤Î¹¹¿·" \
! 		    "[file tail $buffer($id,file)]:\n¤³¤Î¥Õ¥¡¥¤¥ë¤ÏÊÑ¹¹¤µ¤ì¤Æ¤¤¤Þ¤¹¤¬¡¢ÊÝÂ¸¤·¤Þ¤¹¤«¡©" \
! 		    questhead 0 "¤Ï¤¤" "¤¤¤¤¤¨" "¼è¾Ã"]
  	    if {$ans == 0} {
  		set ret [save]
  		if {$ret == "cancel"} {
***************
*** 1185,1192 ****
  	    cb_raise $top
  	    catch {destroy $top.tqmod}
  	    set ans [cb_dialog $top.tqmod "File modified" \
! 		    "This file has been modified. Save it?" \
! 		    questhead 0 "Yes" "No" "Cancel"]
  	    if {$ans == 0} {
  		save
  	    } elseif {$ans == 2} {
--- 1193,1200 ----
  	    cb_raise $top
  	    catch {destroy $top.tqmod}
  	    set ans [cb_dialog $top.tqmod "File modified" \
! 		    "¤³¤Î¥Õ¥¡¥¤¥ë¤ÏÊÑ¹¹¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ÊÝÂ¸¤·¤Þ¤¹¤«¡©" \
! 		    questhead 0 "¤Ï¤¤" "¤¤¤¤¤¨" "¼è¾Ã"]
  	    if {$ans == 0} {
  		save
  	    } elseif {$ans == 2} {
***************
*** 1252,1258 ****
  	# prepare for undo
  	if !$undo_enabled($currentid) {
  	    set undo_enabled($currentid) 1
! 	    $top.fMenu.mbEdit.menu entryconfigure "Undo" -state normal
  	}
  	set ip [$top.ft.text index insert]
  	set selr [$top.ft.text tag ranges sel]
--- 1260,1266 ----
  	# prepare for undo
  	if !$undo_enabled($currentid) {
  	    set undo_enabled($currentid) 1
! 	    catch {$top.fMenu.mbEdit.menu entryconfigure "Undo" -state normal}
  	}
  	set ip [$top.ft.text index insert]
  	set selr [$top.ft.text tag ranges sel]
***************
*** 1479,1485 ****
  	
  	set curline [lindex [split [$top.ft.text index insert] "."] 0]
  	set tmplnr ""
! 	cb_readString "Goto line (current: $curline):" tmplnr "Goto Line" 10
  	if {$tmplnr != ""} {
  	    # test if $tmplnr contains a number:
  	    set err [catch {$top.ft.text mark set insert $tmplnr.0}]
--- 1487,1493 ----
  	
  	set curline [lindex [split [$top.ft.text index insert] "."] 0]
  	set tmplnr ""
! 	cb_readString "¹ÔÈÖ¹æ¤ò»ØÄê (¸½ºß $curline ¹Ô):" tmplnr "Goto Line" 10
  	if {$tmplnr != ""} {
  	    # test if $tmplnr contains a number:
  	    set err [catch {$top.ft.text mark set insert $tmplnr.0}]
***************
*** 1488,1494 ****
  		update_status
  	    } else {
  		dsk_errbell
! 		cb_error "Invalid line number!"
  	    }
  	}
  	unset tmplnr
--- 1496,1502 ----
  		update_status
  	    } else {
  		dsk_errbell
! 		cb_error "¹ÔÈÖ¹æ¤Î»ØÄê¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹¡£"
  	    }
  	}
  	unset tmplnr
***************
*** 1514,1528 ****
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
  	frame $t.fslf
  	pack $t.fslf -in $t.fsf -fill x
! 	label $t.ls -text "Search for:" -anchor w
  	pack $t.ls -in $t.fslf -side left
! 	checkbutton $t.cbRegexp -text "RegExp" -relief flat \
  		-variable [set this](regexp) -underline 0
  	pack $t.cbRegexp -in $t.fslf -side right
! 	checkbutton $t.cbCase -text "Case " -relief flat \
  		-variable [set this](case) -underline 0
  	pack $t.cbCase -in $t.fslf -side right
! 	checkbutton $t.cbBack -text "Backward " -relief flat \
  		-variable [set this](back) -underline 0
  	pack $t.cbBack -in $t.fslf -side right
  	
--- 1522,1536 ----
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
  	frame $t.fslf
  	pack $t.fslf -in $t.fsf -fill x
! 	label $t.ls -text "¸¡º÷Ê¸»úÎó:" -anchor w
  	pack $t.ls -in $t.fslf -side left
! 	checkbutton $t.cbRegexp -text "R Àµµ¬É½¸½" -relief flat \
  		-variable [set this](regexp) -underline 0
  	pack $t.cbRegexp -in $t.fslf -side right
! 	checkbutton $t.cbCase -text "C Âç¾®Ê¸»ú¤ò¶èÊÌ" -relief flat \
  		-variable [set this](case) -underline 0
  	pack $t.cbCase -in $t.fslf -side right
! 	checkbutton $t.cbBack -text "B ¸åÊý¤«¤é¸¡º÷" -relief flat \
  		-variable [set this](back) -underline 0
  	pack $t.cbBack -in $t.fslf -side right
  	
***************
*** 1540,1546 ****
  	
  	menu $t.mbSHist.menu -postcommand "$this _histmenu search_history $t.mbSHist.menu $t.es"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$t.mbSHist.menu add command -label "dummy"
  	search_history changed
  	
  	pack $t.fsfe -in $t.fsf -fill x -expand yes
--- 1548,1554 ----
  	
  	menu $t.mbSHist.menu -postcommand "$this _histmenu search_history $t.mbSHist.menu $t.es"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$t.mbSHist.menu add command -label "¥À¥ß¡¼"
  	search_history changed
  	
  	pack $t.fsfe -in $t.fsf -fill x -expand yes
***************
*** 1568,1574 ****
  	frame $t.frf
  	pack $t.frf -in $t.fr -fill both -expand yes \
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
! 	label $t.lr -text "Replace with:" -anchor w
  	pack $t.lr -in $t.frf -anchor w
  
  	frame $t.frfr
--- 1576,1582 ----
  	frame $t.frf
  	pack $t.frf -in $t.fr -fill both -expand yes \
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
! 	label $t.lr -text "ÃÖ´¹Ê¸»úÎó:" -anchor w
  	pack $t.lr -in $t.frf -anchor w
  
  	frame $t.frfr
***************
*** 1584,1590 ****
  	
  	menu $t.mbRHist.menu -postcommand "$this _histmenu replace_history $t.mbRHist.menu $t.er"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$t.mbRHist.menu add command -label "dummy"
  	replace_history changed
  	
  	pack $t.frfr -in $t.frf -fill x -expand yes
--- 1592,1598 ----
  	
  	menu $t.mbRHist.menu -postcommand "$this _histmenu replace_history $t.mbRHist.menu $t.er"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$t.mbRHist.menu add command -label "¥À¥ß¡¼"
  	replace_history changed
  	
  	pack $t.frfr -in $t.frf -fill x -expand yes
***************
*** 1607,1619 ****
  
  	frame $t.fb -bd 1 -relief raised
  	pack $t.fb -fill x
! 	cb_button $t.bSearch -text  "Search" -default 1 \
  		-command "$this _do_search"
! 	cb_button $t.bReplace -text "Replace" \
  		-command "$this _do_replace"
! 	cb_button $t.bRepAll -text "Replace all" \
  		-command "$this _do_replace all"
! 	cb_button $t.bClose -text " Close " -command "destroy $t; focus -force $top"
  	pack $t.bSearch $t.bReplace $t.bRepAll $t.bClose \
  		-in $t.fb -side left \
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
--- 1615,1627 ----
  
  	frame $t.fb -bd 1 -relief raised
  	pack $t.fb -fill x
! 	cb_button $t.bSearch -text  "¸¡º÷" -default 1 \
  		-command "$this _do_search"
! 	cb_button $t.bReplace -text "ÃÖ´¹" \
  		-command "$this _do_replace"
! 	cb_button $t.bRepAll -text "Á´¤ÆÃÖ´¹" \
  		-command "$this _do_replace all"
! 	cb_button $t.bClose -text "ÊÄ¤¸¤ë" -command "destroy $t; focus -force $top"
  	pack $t.bSearch $t.bReplace $t.bRepAll $t.bClose \
  		-in $t.fb -side left \
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
***************
*** 1628,1634 ****
  		\}"
  	
  	
! 	wm title $t "Search/Replace"
  	wm minsize $t 311 170
  	update idletasks
  
--- 1636,1642 ----
  		\}"
  	
  	
! 	wm title $t "¸¡º÷/ÃÖ´¹"
  	wm minsize $t 311 170
  	update idletasks
  
***************
*** 1723,1731 ****
         	dsk_lazy
  	if !$success {
  	    if [set [set this](back)] {
! 		set restart ![cb_yesno "No more matches. Restart at bottom?"]
  	    } else {
! 		set restart ![cb_yesno "No more matches. Restart at top?"]
  	    }
  	    if $restart {
  		dsk_busy
--- 1731,1739 ----
         	dsk_lazy
  	if !$success {
  	    if [set [set this](back)] {
! 		set restart ![cb_yesno "°ìÃ×¤¹¤ëÊ¸»úÎó¤¬¤¢¤ê¤Þ¤»¤ó¡¢¸å¤í¤«¤é¸¡º÷¤·¤Þ¤¹¤«?"]
  	    } else {
! 		set restart ![cb_yesno "°ìÃ×¤¹¤ëÊ¸»úÎó¤¬¤¢¤ê¤Þ¤»¤ó¡¢ÀèÆ¬¤«¤é¸¡º÷¤·¤Þ¤¹¤«?"]
  	    }
  	    if $restart {
  		dsk_busy
***************
*** 1870,1881 ****
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
  	frame $t.fslf
  	pack $t.fslf -in $t.fsf -fill x
! 	label $t.ls -text "Search for (RegExp):" -anchor w
  	pack $t.ls -in $t.fslf -side left
! 	checkbutton $t.cbCase -text "Case Sensitive" -relief flat \
  		-variable [set this](case)
  	pack $t.cbCase -in $t.fslf -side right
! 	checkbutton $t.cbSort -text "Sort    " -relief flat \
  		-variable [set this](sort)
  	pack $t.cbSort -in $t.fslf -side right
  	entry $t.es -bd 2 -relief sunken -width 40
--- 1878,1889 ----
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
  	frame $t.fslf
  	pack $t.fslf -in $t.fsf -fill x
! 	label $t.ls -text "¥Ñ¥¿¡¼¥ó¸¡º÷ (Àµµ¬É½¸½):" -anchor w
  	pack $t.ls -in $t.fslf -side left
! 	checkbutton $t.cbCase -text "Âç¾®Ê¸»ú¤ò¶èÊÌ" -relief flat \
  		-variable [set this](case)
  	pack $t.cbCase -in $t.fslf -side right
! 	checkbutton $t.cbSort -text "¥½¡¼¥È" -relief flat \
  		-variable [set this](sort)
  	pack $t.cbSort -in $t.fslf -side right
  	entry $t.es -bd 2 -relief sunken -width 40
***************
*** 1885,1891 ****
      	menu $t.mbHist.menu \
  		-postcommand "hsearch_history buildmenu $t.mbHist.menu"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$t.mbHist.menu add command -label "dummy"
  	hsearch_history changed
  	pack $t.es \
  		-in $t.fsf -side left -fill x -expand yes \
--- 1893,1899 ----
      	menu $t.mbHist.menu \
  		-postcommand "hsearch_history buildmenu $t.mbHist.menu"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$t.mbHist.menu add command -label "¥À¥ß¡¼"
  	hsearch_history changed
  	pack $t.es \
  		-in $t.fsf -side left -fill x -expand yes \
***************
*** 1904,1910 ****
  	frame $t.fmf
  	pack $t.fmf -in $t.fm -fill both -expand yes \
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
! 	label $t.lMatches -text "Matches:" -anchor w
  	pack $t.lMatches -in $t.fmf -fill x
  	cb_listbox $t.flb -vscroll 1 -hscroll 1 -lborder 0 -uborder 1 \
  		-width 10 -height 4 \
--- 1912,1918 ----
  	frame $t.fmf
  	pack $t.fmf -in $t.fm -fill both -expand yes \
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
! 	label $t.lMatches -text "¹çÃ×¤·¤¿¥Ñ¥¿¡¼¥ó:" -anchor w
  	pack $t.lMatches -in $t.fmf -fill x
  	cb_listbox $t.flb -vscroll 1 -hscroll 1 -lborder 0 -uborder 1 \
  		-width 10 -height 4 \
***************
*** 1922,1933 ****
  
  	frame $t.fb -bd 1 -relief raised
  	pack $t.fb -fill x
! 	cb_button $t.bSearch -text " Search " \
  		-command "$this _do_hsearch ; \
  		          hsearch_history add \[list \[$t.es get\]\]" \
  		-default 1
! 	cb_button $t.bClose -text "  Close  " -command "destroy $t"
! 	cb_button $t.bRemove -text " Remove Entry " \
  		-command "hsearch_history remove \[$t.es get\]"
  	pack $t.bSearch $t.bClose \
  		-in $t.fb -side left \
--- 1930,1941 ----
  
  	frame $t.fb -bd 1 -relief raised
  	pack $t.fb -fill x
! 	cb_button $t.bSearch -text "¸¡º÷" \
  		-command "$this _do_hsearch ; \
  		          hsearch_history add \[list \[$t.es get\]\]" \
  		-default 1
! 	cb_button $t.bClose -text "ÊÄ¤¸¤ë" -command "destroy $t"
! 	cb_button $t.bRemove -text "¹àÌÜ¤òºï½ü" \
  		-command "hsearch_history remove \[$t.es get\]"
  	pack $t.bSearch $t.bClose \
  		-in $t.fb -side left \
***************
*** 1938,1944 ****
  
  	bind $t <Any-Enter> "if \$tkdesk(focus_follows_mouse) \{focus $t.es\}"
  	
! 	wm title $t "HyperSearch"
  	wm minsize $t 5 2
  	#wm geometry $t 20x6
  	dsk_place_window $t hypersearch  20x6 1
--- 1946,1952 ----
  
  	bind $t <Any-Enter> "if \$tkdesk(focus_follows_mouse) \{focus $t.es\}"
  	
! 	wm title $t "¥Ï¥¤¥Ñ¡¼¸¡º÷"
  	wm minsize $t 5 2
  	#wm geometry $t 20x6
  	dsk_place_window $t hypersearch  20x6 1
***************
*** 2020,2026 ****
  		$tw mark set insert "$fi + [string length $exp] chars"
  	    } else {
  		dsk_errbell
! 		set restart ![cb_yesno "No more matches. Restart at top?"]
  		if $restart {
  		    $tw mark set insert 1.0
  		    findsel
--- 2028,2034 ----
  		$tw mark set insert "$fi + [string length $exp] chars"
  	    } else {
  		dsk_errbell
! 		set restart ![cb_yesno "°ìÃ×¤¹¤ëÊ¸»úÎó¤¬¤¢¤ê¤Þ¤»¤ó¡¢ÀèÆ¬¤«¤é¸¡º÷¤·¤Þ¤¹¤«?"]
  		if $restart {
  		    $tw mark set insert 1.0
  		    findsel
diff -Pcr tkdesk-1.2/tcldesk/FileInfo.tcl tkdesk-1.2-jp/tcldesk/FileInfo.tcl
*** tkdesk-1.2/tcldesk/FileInfo.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/FileInfo.tcl	Fri Sep 15 17:46:38 2000
***************
*** 199,205 ****
      method touch {} {
  	if {![file owned $file] && ![dsk_is_superuser]} {
  	    dsk_errbell
! 	    cb_error "Sorry, you're not the owner of [file tail $file]!"
  	    return
  	}
  
--- 199,205 ----
      method touch {} {
  	if {![file owned $file] && ![dsk_is_superuser]} {
  	    dsk_errbell
! 	    cb_error "¤¢¤Ê¤¿¤Ï[file tail $file]¤Î½êÍ­¼Ô¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡ª"
  	    return
  	}
  
***************
*** 282,288 ****
  
  	if {![file owned $file] && ![dsk_is_superuser]} {
  	    dsk_errbell
! 	    cb_error "Sorry, you're not the owner of [file tail $file]!"
  	    return
  	}
  	if [dsk_on_rofs $file] {
--- 282,288 ----
  
  	if {![file owned $file] && ![dsk_is_superuser]} {
  	    dsk_errbell
! 	    cb_error "¤¢¤Ê¤¿¤Ï[file tail $file]¤Î½êÍ­¼Ô¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡ª"
  	    return
  	}
  	if [dsk_on_rofs $file] {
***************
*** 571,577 ****
  
      if {$files == ""} {
  	dsk_bell
! 	cb_info "Please select one or more files first."
  	return
      }
  
--- 571,577 ----
  
      if {$files == ""} {
  	dsk_bell
! 	cb_info "¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤"
  	return
      }
  
diff -Pcr tkdesk-1.2/tcldesk/FileListbox.tcl tkdesk-1.2-jp/tcldesk/FileListbox.tcl
*** tkdesk-1.2/tcldesk/FileListbox.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/FileListbox.tcl	Fri Sep 15 17:46:38 2000
***************
*** 131,187 ****
  		-menu $frame.mb.menu -indicatoron 0
  
  	menu $frame.mb.menu
! 	$frame.mb.menu add command -label "Refresh " \
  		-command "$this refresh; $this _selstatus"
! 	$frame.mb.menu add command -label "Set Mask... " \
  		-command "$this _ask_mask"
! 	$frame.mb.menu add command -label "No Mask " \
  		-command "$this no_mask"
  	$frame.mb.menu add separator
! 	$frame.mb.menu add command -label "Disk Usage " \
  		-command "dsk_du \[$this curdir\]"
! 	$frame.mb.menu add command -label "Free Space " \
  		-command "dsk_periodic \[list $tkdesk(cmd,df) \[$this cget -directory\]\] 60"
! 	$frame.mb.menu add command -label "Execute here... " \
  		-command "$this command"
! 	$frame.mb.menu add command -label "Execute as root... " \
  		-command "$this command {} root"
  	$frame.mb.menu add separator
! 	$frame.mb.menu add checkbutton -label " Long Listing " \
  		-variable [set this](longlist) \
  		-command "$this config -longlist \[set [set this](longlist)\]"
  	::set [set this](longlist) $longlist
! 	$frame.mb.menu add checkbutton -label " Show All Files " \
  		-variable [set this](showall) \
  		-command "$this config -showall \[set [set this](showall)\]"
  	::set [set this](showall) $showall
! 	$frame.mb.menu add checkbutton -label " Inverse Order " \
  		-variable [set this](invert) \
  		-command "$this config -invert \[set [set this](invert)\]"
  	::set [set this](invert) $invert
! 	$frame.mb.menu add cascade -label "Sort by ... " -menu $frame.mb.menu.smenu
  	$frame.mb.menu add separator
! 	$frame.mb.menu add command -label "Open List Window" \
  		-command "dsk_FileList .dfl\[dsk_FileList :: id\] \
  			-directory \[$this info public directory -value\]"
  	
  	menu $frame.mb.menu.smenu
! 	$frame.mb.menu.smenu add radiobutton -label " Name " \
  		-variable [set this](sort) -value name \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label " Name (fold)" \
  		-variable [set this](sort) -value fold \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label " Size " \
  		-variable [set this](sort) -value size \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label " Date " \
  		-variable [set this](sort) -value date \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label " Extension " \
  		-variable [set this](sort) -value ext \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label " Don't sort " \
  		-variable [set this](sort) -value not \
  		-command "$this config -sort \[set [set this](sort)\]"
  	::set [set this](sort) $sort
--- 131,187 ----
  		-menu $frame.mb.menu -indicatoron 0
  
  	menu $frame.mb.menu
! 	$frame.mb.menu add command -label "ºÇ¿·¤Î¾ðÊó¤Ë¹¹¿·" \
  		-command "$this refresh; $this _selstatus"
! 	$frame.mb.menu add command -label "É½¼¨¥Õ¥¡¥¤¥ë¤ÎÁªÂò... " \
  		-command "$this _ask_mask"
! 	$frame.mb.menu add command -label "É½¼¨¥Õ¥¡¥¤¥ë¤ÎÁªÂò²ò½ü" \
  		-command "$this no_mask"
  	$frame.mb.menu add separator
! 	$frame.mb.menu add command -label "¥Ç¥£¥¹¥¯¤Î»ÈÍÑ¾õ¶·" \
  		-command "dsk_du \[$this curdir\]"
! 	$frame.mb.menu add command -label "¶õ¤­ÎÎ°è" \
  		-command "dsk_periodic \[list $tkdesk(cmd,df) \[$this cget -directory\]\] 60"
! 	$frame.mb.menu add command -label "¤³¤Î¥Õ¥©¥ë¥À¤Ç¼Â¹Ô... " \
  		-command "$this command"
! 	$frame.mb.menu add command -label "¥ë¡¼¥È¤Ç¼Â¹Ô... " \
  		-command "$this command {} root"
  	$frame.mb.menu add separator
! 	$frame.mb.menu add checkbutton -label "¾ÜºÙÉ½¼¨" \
  		-variable [set this](longlist) \
  		-command "$this config -longlist \[set [set this](longlist)\]"
  	::set [set this](longlist) $longlist
! 	$frame.mb.menu add checkbutton -label "Á´¤Æ¤Î¥Õ¥¡¥¤¥ë¤òÉ½¼¨ " \
  		-variable [set this](showall) \
  		-command "$this config -showall \[set [set this](showall)\]"
  	::set [set this](showall) $showall
! 	$frame.mb.menu add checkbutton -label "µÕ½ç¤ËÉ½¼¨" \
  		-variable [set this](invert) \
  		-command "$this config -invert \[set [set this](invert)\]"
  	::set [set this](invert) $invert
! 	$frame.mb.menu add cascade -label "¥½¡¼¥È... " -menu $frame.mb.menu.smenu
  	$frame.mb.menu add separator
! 	$frame.mb.menu add command -label "¤³¤Î¥Õ¥©¥ë¥À¤Î¥¦¥£¥ó¥É¥¦¤òºîÀ®" \
  		-command "dsk_FileList .dfl\[dsk_FileList :: id\] \
  			-directory \[$this info public directory -value\]"
  	
  	menu $frame.mb.menu.smenu
! 	$frame.mb.menu.smenu add radiobutton -label "Ì¾Á°(Âç¾®Ê¸»úÊÌ)" \
  		-variable [set this](sort) -value name \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label "Ì¾Á°" \
  		-variable [set this](sort) -value fold \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label "Âç¤­¤µ" \
  		-variable [set this](sort) -value size \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label "ÆüÉÕ" \
  		-variable [set this](sort) -value date \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label "³ÈÄ¥»Ò" \
  		-variable [set this](sort) -value ext \
  		-command "$this config -sort \[set [set this](sort)\]"
! 	$frame.mb.menu.smenu add radiobutton -label "¥½¡¼¥È¤·¤Ê¤¤ " \
  		-variable [set this](sort) -value not \
  		-command "$this config -sort \[set [set this](sort)\]"
  	::set [set this](sort) $sort
***************
*** 669,682 ****
      method _ask_mask {} {
  	
  	dsk_HistEntry .he[dsk_HistEntry :: id] \
! 		-title " Set Mask " \
! 		-label "Mask for files to show or select:" \
  		-history mask_history \
  		-entrydefault $_last_mask \
  		-callback "$this _ask_mask_ok" \
  		-addbutton "Select" \
  		-addcallback "$this _ask_mask_select" \
! 		-checklabel "Invert Mask" \
  		-checkvalue $invert_mask
      }
  
--- 669,682 ----
      method _ask_mask {} {
  	
  	dsk_HistEntry .he[dsk_HistEntry :: id] \
! 		-title " É½¼¨¥Õ¥¡¥¤¥ë¤ÎÁªÂò " \
! 		-label "¥Õ¥¡¥¤¥ë¤òÉ½¼¨¤µ¤»¤ë¥Ñ¥¿¡¼¥ó:" \
  		-history mask_history \
  		-entrydefault $_last_mask \
  		-callback "$this _ask_mask_ok" \
  		-addbutton "Select" \
  		-addcallback "$this _ask_mask_select" \
! 		-checklabel "»ØÄê°Ê³°" \
  		-checkvalue $invert_mask
      }
  
***************
*** 956,962 ****
  	    cb_balloonHelp $frame.mb "$dn/$mask"
  	} else {
  	    bind $frame.mb <Enter> {}
! 	    cb_balloonHelp $frame.mb "This is a menu button!"
  	}
  	return $l
      }
--- 956,962 ----
  	    cb_balloonHelp $frame.mb "$dn/$mask"
  	} else {
  	    bind $frame.mb <Enter> {}
! 	    cb_balloonHelp $frame.mb "¥Õ¥©¥ë¥ÀÁàºî¤Î¥á¥Ë¥å¡¼¥Ü¥¿¥ó¤Ç¤¹¡ª"
  	}
  	return $l
      }
***************
*** 1534,1551 ****
  	    $frame.mb.menu delete $laste            ;# delete " Open Window "
  
  	    $frame.mb.menu insert [expr $laste -2] checkbutton \
! 		    -label " Add Icons " \
  	            -variable [set this](add_icons) \
  		    -command "$this config -add_icons \[set [set this](add_icons)\]"
  	    ::set [set this](add_icons) $add_icons
  	    $frame.mb.menu insert [expr $laste -2] checkbutton \
! 		    -label " Folders On Top " \
  		    -variable [set this](topfolders) \
  		    -command "$this config -topfolders \[set [set this](topfolders)\]"
  	    ::set [set this](topfolders) $topfolders
  
  	    $frame.mb.menu add separator
! 	    $frame.mb.menu add command -label "Open Browser " \
  		-command "dsk_FileViewer .fv\[dsk_FileViewer :: id\] \
  			-directory \[$this info public directory -value\]"
  	}
--- 1534,1551 ----
  	    $frame.mb.menu delete $laste            ;# delete " Open Window "
  
  	    $frame.mb.menu insert [expr $laste -2] checkbutton \
! 		    -label "¥¢¥¤¥³¥ó¤òÉ½¼¨" \
  	            -variable [set this](add_icons) \
  		    -command "$this config -add_icons \[set [set this](add_icons)\]"
  	    ::set [set this](add_icons) $add_icons
  	    $frame.mb.menu insert [expr $laste -2] checkbutton \
! 		    -label "¥Õ¥©¥ë¥À¤òÀèÆ¬¤ËÉ½¼¨" \
  		    -variable [set this](topfolders) \
  		    -command "$this config -topfolders \[set [set this](topfolders)\]"
  	    ::set [set this](topfolders) $topfolders
  
  	    $frame.mb.menu add separator
! 	    $frame.mb.menu add command -label "¥Ö¥é¥¦¥¶¤ò³«¤¯" \
  		-command "dsk_FileViewer .fv\[dsk_FileViewer :: id\] \
  			-directory \[$this info public directory -value\]"
  	}
diff -Pcr tkdesk-1.2/tcldesk/HistEntry.tcl tkdesk-1.2-jp/tcldesk/HistEntry.tcl
*** tkdesk-1.2/tcldesk/HistEntry.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/HistEntry.tcl	Fri Sep 15 17:46:38 2000
***************
*** 126,133 ****
  	frame $top.fb -bd 1 -relief raised
  	pack $top.fb -fill x
  
! 	cb_button $top.bOK -text "   OK   " \
! 		-underline 3 -default 1 -command "
  	    set tkdesk(geometry,hist_entry) \[wm geometry $top\]
  	    set [set this](entry) \[$top.entry get\]
  	    destroy $top
--- 126,133 ----
  	frame $top.fb -bd 1 -relief raised
  	pack $top.fb -fill x
  
! 	cb_button $top.bOK -text "O Î»²ò" \
! 		-underline 0 -default 1 -command "
  	    set tkdesk(geometry,hist_entry) \[wm geometry $top\]
  	    set [set this](entry) \[$top.entry get\]
  	    destroy $top
***************
*** 135,142 ****
  	    $this ok_pressed
  	"
  
! 	cb_button $top.bApply -text " Apply " \
! 		-underline 1 -command "
  	    set [set this](entry) \[$top.entry get\]
  	    $this ok_pressed 0
  	"
--- 135,142 ----
  	    $this ok_pressed
  	"
  
! 	cb_button $top.bApply -text "A ¼Â¹Ô" \
! 		-underline 0 -command "
  	    set [set this](entry) \[$top.entry get\]
  	    $this ok_pressed 0
  	"
***************
*** 159,166 ****
  	    cb_addShortcutBinding $top.entry $top.bAdd.button "$sc"
  	}
  
! 	cb_button $top.bCancel -text " Cancel " \
! 		-underline 1 -command "
  	    set tkdesk(geometry,hist_entry) \[wm geometry $top\]
  	    $this delete
  	"
--- 159,166 ----
  	    cb_addShortcutBinding $top.entry $top.bAdd.button "$sc"
  	}
  
! 	cb_button $top.bCancel -text "C ¼è¾Ã" \
! 		-underline 0 -command "
  	    set tkdesk(geometry,hist_entry) \[wm geometry $top\]
  	    $this delete
  	"
***************
*** 258,264 ****
  	    incr ne
  	    if {$ne > $tkdesk(_max_menu_entries)} {
  		set om $menu
! 		$menu add cascade -label "More..." \
  			-menu [set menu $menu.c$ne]
  		catch {destroy $menu}; menu $menu; set ne 0
  		foreach b [bind $om] {bind $menu $b [bind $om $b]}
--- 258,264 ----
  	    incr ne
  	    if {$ne > $tkdesk(_max_menu_entries)} {
  		set om $menu
! 		$menu add cascade -label "¤â¤Ã¤È..." \
  			-menu [set menu $menu.c$ne]
  		catch {destroy $menu}; menu $menu; set ne 0
  		foreach b [bind $om] {bind $menu $b [bind $om $b]}
diff -Pcr tkdesk-1.2/tcldesk/List.tcl tkdesk-1.2-jp/tcldesk/List.tcl
*** tkdesk-1.2/tcldesk/List.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/List.tcl	Fri Sep 15 17:46:38 2000
***************
*** 100,106 ****
  	bind $top.entry <Tab> "focus $top"
  	bind $top.entry <3> "update idletasks; $this _path_popup %X %Y"
  	cb_bindForCompletion $top.entry <Control-Tab>
! 	cb_balloonHelp $top.entry {The path displayed in the current window. Change to visit another directory.  The right mouse button gives a popup menu of parent directories.}
      	blt_drag&drop target $top.entry \
  			handler file "dd_handle_text $top.entry %v 1"
  
--- 100,106 ----
  	bind $top.entry <Tab> "focus $top"
  	bind $top.entry <3> "update idletasks; $this _path_popup %X %Y"
  	cb_bindForCompletion $top.entry <Control-Tab>
! 	cb_balloonHelp $top.entry {¤³¤Î¥¦¥£¥ó¥É¥¦¤ËÉ½¼¨¤µ¤ì¤Æ¤¤¤ë¥Ñ¥¹Ì¾¤Ç¤¹¡£Â¾¤Î¥Õ¥©¥ë¥À¤Ë°Ü¤ê¤¿¤¤¾ì¹ç¤ÏÊÑ¹¹¤·¤Æ¤¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¥Þ¥¦¥¹¤Î±¦¥¯¥ê¥Ã¥¯¤Ç¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤¬¸½¤ì¤Æ¥Õ¥©¥ë¥À¤ò°ÜÆ°¤Ç¤­¤Þ¤¹¡£}
      	blt_drag&drop target $top.entry \
  			handler file "dd_handle_text $top.entry %v 1"
  
***************
*** 117,123 ****
  	menu $top.mbHist.menu \
  		-postcommand "dir_history buildmenu $top.mbHist.menu ; update"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$top.mbHist.menu add command -label "dummy"
  	dir_history changed
  	bind $top.mbHist.menu <ButtonRelease-1> "
  		set tkdesk(menu,control) 0
--- 117,123 ----
  	menu $top.mbHist.menu \
  		-postcommand "dir_history buildmenu $top.mbHist.menu ; update"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$top.mbHist.menu add command -label "¥À¥ß¡¼"
  	dir_history changed
  	bind $top.mbHist.menu <ButtonRelease-1> "
  		set tkdesk(menu,control) 0
***************
*** 248,254 ****
  
  	    button $f.bOK \
  		    -command "$this _fs_ok; $this delete" \
! 		    -text " OK " -width 7
  	    button $f.bCancel \
  		    -command "$this _fs_cancel; $this delete" \
  		    -text "Cancel" -width 7
--- 248,254 ----
  
  	    button $f.bOK \
  		    -command "$this _fs_ok; $this delete" \
! 		    -text "Î»²ò" -width 7
  	    button $f.bCancel \
  		    -command "$this _fs_cancel; $this delete" \
  		    -text "Cancel" -width 7
***************
*** 784,791 ****
      public pad {4} {
      }
      public isFileSel 0
!     public fileSelTitle "Select File"
!     public fileSelLabel "Selection:"
  
      protected height_set 0
      protected last_directory ""
--- 784,791 ----
      public pad {4} {
      }
      public isFileSel 0
!     public fileSelTitle "¥Õ¥¡¥¤¥ë¤ÎÁªÂò"
!     public fileSelLabel "ÁªÂò:"
  
      protected height_set 0
      protected last_directory ""
diff -Pcr tkdesk-1.2/tcldesk/Mail.tcl tkdesk-1.2-jp/tcldesk/Mail.tcl
*** tkdesk-1.2/tcldesk/Mail.tcl	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/tcldesk/Mail.tcl	Fri Sep 15 17:46:38 2000
***************
*** 0 ****
--- 1,1193 ----
+ proc dsk_mailer {to subject msg} {
+     dsk_mailer2 $to $subject $msg 0
+ }
+ 
+ proc dsk_mailer2 {to subject msg msgid} {
+     global tkdesk dsk_mailer dsk_get_config tkdesk
+ 
+     catch {destroy .dsk_mailer}
+     toplevel [set t .dsk_mailer]
+     wm withdraw $t
+     wm title $t "TkMailer Composer"  
+     set dsk_mailer(size) "46x15"
+     set dsk_mailer(msgid) $msgid
+     set mailer "¥á¡¼¥ë"
+     if {$tkdesk(TkMailer) == "news"} {
+         set mailer "¥Ë¥å¡¼¥¹"
+     }
+ 
+     frame $t.ti -bd 1 -relief raised
+     pack $t.ti -fill x
+     label $t.lti -text "TkMailerÆüËÜ¸ìÈÇ($mailer ºîÀ®) by »°´ä¹¬É×"
+     pack $t.lti -in $t.ti
+     frame $t.f0 -bd 1 -relief raised
+     pack $t.f0 -fill x
+     label $t.lt -text "°¸Àè:"
+     pack $t.lt -in $t.f0 -side left -padx 4 -pady 4
+     entry $t.et -width 10 -bd 2 -relief sunken
+     $t.et insert end $to
+     pack $t.et -in $t.f0 -side left -fill x -expand yes 
+     frame $t.f1 -bd 1 -relief raised
+     pack $t.f1 -fill x
+     label $t.ls -text "·ïÌ¾:"
+     pack $t.ls -in $t.f1 -side left -padx 4 -pady 4
+     entry $t.es -width 10 -bd 2 -relief sunken
+     $t.es insert end $subject
+     pack $t.es -in $t.f1 -side left -fill x -expand yes
+     frame $t.f4 -bd 1 -relief raised
+     pack $t.f4 -fill x
+     label $t.lc -text "£Ã£Ã:"
+     pack $t.lc -in $t.f4 -side left -padx 4 -pady 4
+     entry $t.ec -width 10 -bd 2 -relief sunken
+     pack $t.ec -in $t.f4 -side left -fill x -expand yes
+ 
+     frame $t.f2 -bd 1 -relief raised
+     pack $t.f2 -fill both -expand yes
+     frame $t.f2a
+     frame $t.f2b
+     pack $t.f2a -in $t.f2 -fill both -side left -expand yes -padx 4 -pady 4
+     pack $t.f2b -in $t.f2 -fill y -side right -padx 4 -pady 4
+     text $t.tm -width 20 -height 1 -bd 2 -relief sunken -setgrid 1 \
+ 	    -yscroll "$t.sb set"
+     $t.tm insert end "$msg"
+     $t.tm mark set insert 2.0
+     pack $t.tm -in $t.f2a -side left -fill both -expand yes
+     scrollbar $t.sb -orient vertical -command "$t.tm yview"
+     pack $t.sb -in $t.f2a -side left -fill y
+     label $t.filesl -text "ÅºÉÕ¥Õ¥¡¥¤¥ë"
+     listbox $t.files -width 16 -bd 1 -height 1 -relief sunken -bg navy -fg gold \
+         -xscroll "$t.fsbx set" -selectmode extended -font $tkdesk(font,entries)
+     bind $t.files <Delete> "dsk_delete_listbox $t.files"
+     scrollbar $t.fsbx -orient horiz -command "$t.files xview"
+     pack $t.filesl -in $t.f2b -side top -fill x
+     pack $t.files -in $t.f2b -side top -fill both -expand yes
+     pack $t.fsbx -in $t.f2b -side bottom -fill x
+ 
+     frame $t.f3 -bd 1 -relief raised
+     pack $t.f3 -fill x
+     button $t.bc -text "¼è¾Ã" -command "destroy $t"
+     button $t.bs -text "ÊÝÂ¸..." -command "dsk_mailer_save $t"
+     button $t.bi -text "ÅºÉÕ..." -command "dsk_mailer_set_listbox $t.files ÅºÉÕ¥Õ¥¡¥¤¥ë¤ò»ØÄê"
+     button $t.bd -text "ÅºÉÕºï½ü" -command "dsk_delete_listbox $t.files"
+     button $t.bg -text "ÀßÄê" -command dsk_config_mail
+     button $t.br -text "Á÷¿®" -command "dsk_mailer_remote $t"
+     set dsk_get_config(#easy) "no"
+     dsk_get_config
+     if {$dsk_get_config(#easy) == "yes"} {
+         $t.bg configure -command dsk_easyconf_mail
+     }
+     pack $t.br $t.bs $t.bi $t.bd $t.bg $t.bc -in $t.f3 -side left -padx 4 -pady 4 -ipady 1
+ 
+     wm protocol $t WM_DELETE_WINDOW "destroy $t"
+     wm geometry $t $dsk_mailer(size)
+     cb_centerToplevel $t
+     wm deiconify $t
+     focus $t.tm
+ }
+     
+ proc dsk_mailer_remote {t} {
+     global tkdesk dsk_mailer
+     
+     set com "| imput --ObeyHeader=on --JPconv=on  --filenameadd=on --AddHeader=TkMailer:tkdesk-ver$tkdesk(version)$tkdesk(patch) --Fcc=+send"
+     if {[$t.files size] >= 1} {
+     	set com "$com --MultipartAdd="
+         set items [$t.files get 0 end]
+         foreach item $items {
+             set com "$com$item,"
+         }
+     }
+     catch {set fd [open $com w]}
+     if ![info exists fd] {
+         cb_error "¼Â¹Ô¤Ç¤­¤Þ¤»¤ó: im¤ò¥¤¥ó¥¹¥È¡¼¥ë¤·¤Æ¤¯¤À¤µ¤¤¡£"
+         tkwait variable dsk_mailer(mail)
+     } else {
+         set msg [$t.tm get 1.0 end]
+         if {$dsk_mailer(msgid) != 0} {
+             puts $fd "In-Reply-To: Your message of \"$dsk_mailer(date)\""
+             puts $fd "             $dsk_mailer(msgid)"
+             puts $fd "References: $dsk_mailer(msgid)"
+         }
+         if {$tkdesk(TkMailer) == "mail"} {
+             puts $fd "To: [$t.et get] "
+         } else {
+             puts $fd "Newsgroups: [$t.et get] "
+         }
+         puts $fd "Subject: [$t.es get] "
+         if {[$t.ec get] != ""} {
+             puts $fd "Cc: [$t.ec get] "
+         }
+         puts -nonewline $fd $msg
+         close $fd
+     }
+     set tkdesk(TkMailer) "mail"
+     destroy $t
+ }
+     
+ proc dsk_mailer_save {t} {
+     while 1 {
+        set f [cb_fileSelector -label "¥á¡¼¥ë¤òÊÝÂ¸"]
+        if {$f != ""} {
+            set err [catch {set fd [open $f "w"]}]
+            if $err {
+                cb_error "½ñ¤­¹þ¤ß¤Ç $f ¤¬³«¤±¤Þ¤»¤ó¡ª"
+            } else {
+                set msg [$t.tm get 1.0 end]
+                puts -nonewline $fd $msg
+                close $fd
+                break
+            }
+        } else {
+            break
+        }
+     }
+ }
+ 
+ proc dsk_mailer_set_listbox {lb msg} {
+     set f [cb_fileSelector -label $msg]
+     if {$f != ""} {
+         $lb insert end $f
+     }
+ }
+ 
+ proc dsk_delete_listbox {lb} {
+     set items [$lb curselection]
+     foreach item $items {
+         $lb delete $item
+     }
+ }
+ 
+ proc dsk_mailer_file {to subject file} {
+     set err [catch {set fd [open $file "r"]}]
+     if $err {
+          cb_error "$file ¤¬³«¤±¤Þ¤»¤ó¡ª"
+     } else {
+          set msg [read -nonewline $fd]
+          close $fd
+     }
+     dsk_mailer $to $subject $msg
+ }
+ 
+ proc dsk_config_mail {} {
+     global dsk_config_mail dsk_config_mail_cb env
+ 
+     catch {destroy .dsk_config_mail}
+     toplevel [set t .dsk_config_mail]
+     wm withdraw $t
+     wm title $t "TkMailer Configure"  
+ 
+     set home $env(HOME)
+     set host [exec hostname]
+     frame $t.f1 -bd 1 -relief raised
+     pack $t.f1 -fill x
+     label $t.title -text "TkMailerÆüËÜ¸ìÈÇ(¥á¡¼¥ë&¥Ë¥å¡¼¥¹ÀßÄê) by »°´ä¹¬É×"
+     pack $t.title -in $t.f1 -padx 4 -pady 4
+ 
+     set titles(addr) "¥á¡¼¥ë¥¢¥É¥ì¥¹:" 
+     set titles(name) "¤¢¤Ê¤¿¤ÎÌ¾Á°:"
+     set titles(smtp) "¥á¡¼¥ë¥µ¡¼¥Ð¡¼:" 
+     set titles(emgsmtp) "ÂåÂØ¥á¡¼¥ë¥µ¡¼¥Ð¡¼:" 
+     set titles(nntp) "¥Ë¥å¡¼¥¹¥µ¡¼¥Ð¡¼:" 
+     set titles(pop) "POP¥µ¡¼¥Ð¡¼:"
+     set titles(maildir) "¥á¡¼¥ë¤Î³ÊÇ¼¾ì½ê:" 
+     set titles(newsdir) "¥Ë¥å¡¼¥¹¤Î³ÊÇ¼¾ì½ê:" 
+     set titles(width) "¥á¡¼¥ë¤Î¹Ô¿ô:" 
+     set titles(jissafe) "JIS¤òÇÛÎ¸" 
+     set titles(jphead) "JIS¥Ø¥Ã¥À"
+ #    set titles(jpconv) "JIS¤ØÊÑ´¹" 
+     set titles(nofold) "ÀÞÊÖÍÞ»ß"
+     set titles(qencode) "Q¥¨¥ó¥³¡¼¥É" 
+     set titles(8to7) "7¥Ó¥Ã¥ÈÊÑ´¹"
+     set titles(keep) "¥á¡¼¥ë¤ò»Ä¤¹"
+     set dsk_config_mail(addr) Address
+     set dsk_config_mail(name) Name
+     set dsk_config_mail(smtp) Smtpservers
+     set dsk_config_mail(emgsmtp) EmgSmtpSvrs 
+     set dsk_config_mail(nntp) NntpServers 
+     set dsk_config_mail(pop) #PopServers 
+     set dsk_config_mail(maildir) MailDir 
+     set dsk_config_mail(newsdir) NewsDir 
+     set dsk_config_mail(width) Width
+     set dsk_config_mail(jissafe) JisSafe 
+     set dsk_config_mail(jphead) JPheader
+ #    set dsk_config_mail(jpconv) JPconv 
+     set dsk_config_mail(nofold) NoHdrFolding 
+     set dsk_config_mail(qencode) HdrQEncoding
+     set dsk_config_mail(8to7) 8to7
+     set dsk_config_mail(keep) keep
+     set dsk_config_mail(disphead) #head
+     set i 6
+     foreach wname {addr name smtp emgsmtp pop nntp maildir newsdir width} {
+         frame $t.f$i 
+         pack $t.f$i -fill x
+         label $t.l$i -text $titles($wname)
+         pack $t.l$i -in $t.f$i -side left
+         entry $t.$wname -width 38 -bd 2 -relief sunken
+         pack $t.$wname -in $t.f$i -side left -fill x -expand yes
+         incr i
+     }
+     frame $t.f3
+     pack $t.f3 -fill x
+     radiobutton $t.disphead1 -text "¥Ø¥Ã¥À¤òÉ½¼¨¤·¤Ê¤¤" -variable dsk_config_mail_cb(disphead) -value none
+     radiobutton $t.disphead2 -text "¥Ø¥Ã¥À¤òÁ´¤ÆÉ½¼¨" -variable dsk_config_mail_cb(disphead) -value all
+     radiobutton $t.disphead3 -text "¥Ø¥Ã¥À¤ò´ÊÎ¬¤·¤ÆÉ½¼¨" -variable dsk_config_mail_cb(disphead) -value some
+     pack $t.disphead1 $t.disphead2 $t.disphead3 -in $t.f3 -side left
+     $t.disphead1 select
+     frame $t.f4
+     pack $t.f4 -fill x
+     foreach wname {jissafe jphead nofold qencode 8to7} {
+         checkbutton $t.$wname -text $titles($wname) \
+             -variable dsk_config_mail_cb($wname) -onvalue "on" -offvalue "off"
+         pack $t.$wname -in $t.f4 -side left
+     }
+     frame $t.f5
+     pack $t.f5 -fill x
+     checkbutton $t.keep -text $titles(keep) \
+             -variable dsk_config_mail_cb(keep) -onvalue "-1" -offvalue "0"
+     pack $t.keep -in $t.f5 -side left
+     set err [catch {set fd [open "$home/.im/Config" "r"]}]
+     if $err {
+         catch {exec mkdir $home/.im}
+         dsk_mail_default $t
+     } else {
+     	 while {[gets $fd line] != -1} {
+     	     set option [split $line =]
+     	     set opt1 [lindex $option 0]
+     	     set opt2 [lindex $option 1]
+              foreach wname {addr name smtp emgsmtp pop nntp maildir newsdir width} {
+                  if {$opt1 == $dsk_config_mail($wname)} {
+                      $t.$wname insert end $opt2
+                  }
+              }
+              foreach wname {jissafe jphead nofold qencode 8to7} {
+                  if {$opt1 == $dsk_config_mail($wname)} {
+              	     if {$opt2 == "on"} {
+              	         $t.$wname select
+              	     }
+                  }
+              }
+              if {$opt1 == $dsk_config_mail(keep)} {
+              	 if {$opt2 == "-1"} {
+              	     $t.$wname select
+              	 }
+              }
+              if {$opt1 == $dsk_config_mail(disphead)} {
+              	 if {$opt2 == "all"} {
+              	     $t.disphead2 select
+              	 }
+              	 if {$opt2 == "some"} {
+              	     $t.disphead3 select
+              	 }
+              }
+          }
+     	 set option [gets $fd]
+          close $fd
+     }
+     
+     frame $t.f0 -bd 1 -relief raised
+     pack $t.f0 -fill x
+     button $t.bc -text "¼è¾Ã" -command "destroy $t"
+     button $t.bs -text "ÀßÄê" -command "dsk_set_mail $t"
+ #    button $t.bd -text "¥Ç¥Õ¥©¥ë¥È" -command "dsk_mail_default $t"
+     pack $t.bs $t.bc -in $t.f0 -side left -padx 2 -pady 2 -ipady 1
+ 
+     wm protocol $t WM_DELETE_WINDOW "destroy $t"
+     cb_centerToplevel $t
+     wm deiconify $t
+ }
+ 
+ proc dsk_easyconf_mail {} {
+     global dsk_easyconf_mail env
+ 
+     catch {destroy .dsk_easyconf_mail}
+     toplevel [set t .dsk_easyconf_mail]
+     wm withdraw $t
+     wm title $t "TkMailer Easy Setup"  
+ 
+     set home $env(HOME)
+     set host [exec hostname]
+     frame $t.f1 -bd 1 -relief raised
+     pack $t.f1 -fill x
+     label $t.title -text "TkMailerÆüËÜ¸ìÈÇ(¥á¡¼¥ë&¥Ë¥å¡¼¥¹´ÊÃ±ÀßÄê) by »°´ä¹¬É×"
+     pack $t.title -in $t.f1 -padx 4 -pady 4
+ 
+     set dsk_easyconf_mail(addr) Address
+     set dsk_easyconf_mail(smtp) Smtpservers
+     set dsk_easyconf_mail(nntp) NntpServers
+ 
+     frame $t.f2
+     pack $t.f2 -fill x
+     label $t.l2 -text "¤¢¤Ê¤¿¤Î¥á¡¼¥ë¥¢¥É¥ì¥¹"
+     pack $t.l2 -in $t.f2 -side left
+     entry $t.addr -width 38 -bd 2 -relief sunken
+     pack $t.addr -in $t.f2 -side left -fill x -expand yes
+     frame $t.f3
+     pack $t.f3 -fill x
+     label $t.l3 -text "¥×¥í¥Ð¥¤¥À¤Î¥á¡¼¥ë¥µ¡¼¥Ð¡¼"
+     pack $t.l3 -in $t.f3 -side left
+     entry $t.smtp -width 38 -bd 2 -relief sunken
+     pack $t.smtp -in $t.f3 -side left -fill x -expand yes
+     frame $t.f4
+     pack $t.f4 -fill x
+     label $t.l4 -text "¥×¥í¥Ð¥¤¥À¤Î¥Ë¥å¡¼¥¹¥µ¡¼¥Ð¡¼"
+     pack $t.l4 -in $t.f4 -side left
+     entry $t.nntp -width 38 -bd 2 -relief sunken
+     pack $t.nntp -in $t.f4 -side left -fill x -expand yes
+ 
+     set err [catch {set fd [open "$env(HOME)/.im/Config" "r"]}]
+     if $err {
+         catch {exec mkdir $home/.im}
+         $t.addr insert end "$env(LOGNAME)@$host"
+         $t.smtp insert end $host
+     } else {
+     	 while {[gets $fd line] != -1} {
+     	     set option [split $line =]
+     	     set opt1 [lindex $option 0]
+     	     set opt2 [lindex $option 1]
+              foreach wname {addr smtp nntp} {
+                  if {$opt1 == $dsk_easyconf_mail($wname)} {
+                      $t.$wname insert end $opt2
+                  }
+              }
+          }
+          close $fd
+     }
+     
+     frame $t.f0 -bd 1 -relief raised
+     pack $t.f0 -fill x
+     button $t.bc -text "¼è¾Ã" -command "destroy $t"
+     button $t.bs -text "ÀßÄê" -command "dsk_easyset_mail $t"
+     pack $t.bs $t.bc -in $t.f0 -side left -padx 2 -pady 2 -ipady 1
+ 
+     wm protocol $t WM_DELETE_WINDOW "destroy $t"
+     cb_centerToplevel $t
+     wm deiconify $t
+ }
+ 
+ proc dsk_get_config {} {
+     global dsk_get_config
+ 
+     set err [catch {set fd [open "~/.im/Config" "r"]}]
+     if $err {
+         catch {exec mkdir $env(HOME)/.im}
+ #        dsk_mail_default $t
+     } else {
+     	 while {[gets $fd line] != -1} {
+     	     set option [split $line =]
+     	     set opt1 [lindex $option 0]
+     	     set opt2 [lindex $option 1]
+     	     set dsk_get_config($opt1) $opt2
+          }
+          close $fd
+     }
+ }
+ 
+ proc dsk_mail_default {t} {
+     global env
+ 
+     set host [exec hostname]
+     foreach wname {addr name smtp emgsmtp pop nntp maildir newsdir width} {
+     	$t.$wname delete 0 end
+     }
+     $t.addr insert end "$env(LOGNAME)@$host"
+     $t.name insert end $env(LOGNAME)
+     foreach wname {smtp emgsmtp pop nntp} {
+         $t.$wname insert end $host
+     }
+     $t.maildir insert end "Mail"
+     $t.newsdir insert end "News"
+     $t.width insert end "80"
+     foreach wname {jissafe jphead 8to7} {
+         $t.$wname select
+     }
+     foreach wname {nofold qencode keep} {
+         $t.$wname deselect
+     }
+ }
+ 
+ proc dsk_set_mail {t} {
+     global tkdesk dsk_config_mail dsk_config_mail_cb env dsk_get_config
+     
+     set home $env(HOME)
+     if {[cb_dialog $t.que "ÀßÄê¥Õ¥¡¥¤¥ë¤Î¾å½ñ¤­" \
+         "$home/.im/Config¤¬¾å½ñ¤­¤µ¤ì¸½ºß¤ÎÀßÄê¤Ï $home/.im/Config.old¤ËÊÝÂ¸¤µ¤ì¤Þ¤¹¤¬¤è¤í¤·¤¤¤Ç¤¹¤«¡©\n(ÄÌ¾ï¤Ï¡ÖÎ»²ò¡×¤òÁªÂò¤·¤Þ¤¹)" \
+ 	questhead 0 "Î»²ò" "¼è¾Ã"] == 1} {
+    	return
+     }
+     catch { exec cp $home/.im/Config $home/.im/Config.old }
+     set err [catch {set fd [open "$home/.im/Config" "w"]}]
+     if $err {
+         cb_error "~/.im¤¬³«¤±¤Þ¤»¤ó¡ª"
+     } else {
+         foreach wname {addr name smtp pop emgsmtp nntp maildir newsdir width} {
+             set value [$t.$wname get]
+             puts $fd "$dsk_config_mail($wname)=$value"
+         }
+         foreach wname {jissafe jphead nofold qencode 8to7 keep disphead} {
+             puts $fd "$dsk_config_mail($wname)=$dsk_config_mail_cb($wname)"
+         }
+     	set addrlist [split [$t.addr get] @]
+     	set user [lindex $addrlist 0]
+     	set domain [lindex $addrlist 1]
+ 	puts $fd "NameInComment=off"
+     	puts $fd "User=$user"
+     	puts $fd "ToDomain=$domain"
+     	puts $fd "FromDomain=$domain"
+     	puts $fd "Defcode=EUC"
+ #    	puts $fd "AddHeader=TkMailer: ver$tkdesk(version) $tkdesk(patch)"
+     	close $fd
+     }
+     dsk_get_config
+     destroy $t
+ }
+ 
+ proc dsk_resend_mail {t} {
+     global tkdesk dsk_mailer
+ 
+     set filename $tkdesk(TkMailerFile)
+     if {$filename == "none"} {
+         return
+     }
+     set fd [open "| jisdecode < $filename | nkf -e" "r"]
+     set re ""
+     set multi "no"
+     gets $fd line
+     while {[gets $fd line] != -1 && $line != ""} {
+         set head [string tolower $line]
+         set pos [string first "subject: " $head]
+         if {$pos == 0} {
+             set subject [string range $line [expr $pos + 9] end]
+        	}
+         set pos [string first "from: " $head]
+         if {$pos == 0} {
+             set from [string range $line [expr $pos + 6] end]
+        	}
+         set pos [string first "reply-to: " $head]
+         if {$pos == 0} {
+             set re [string range $line [expr $pos + 10] end]
+        	}
+         set pos [string first "content-type: multipart/mixed" $head]
+         if {$pos >= 0} {
+             set multi "yes"
+         }
+         set pos [string first "content-type: multipart/alternative" $head]
+         if {$pos >= 0} {
+             set multi "yes"
+         }
+         set pos [string first "message-id: " $head]
+         if {$pos == 0} {
+             set msgid [string range $line [expr $pos + 12] end]
+         }
+         set pos [string first "date: " $head]
+         if {$pos == 0} {
+             set date [string range $line [expr $pos + 6] end]
+         }
+         if {$multi == "yes"} {
+             set head [string tolower $line]
+             set pos [string first "boundary=" $head]
+             set b [expr $pos + 10]
+             set e [expr [string length $line] - 2]
+             if {$pos != -1} {
+                 set boundary [string range $line $b $e]
+             }
+         }
+     }
+     if {$re == ""} {
+         set re $from
+     }
+     catch {close $fd}
+     set fd [open "| nkf -e < $filename" "r"]
+     while {[gets $fd line] != -1 && $line != ""} {}
+     set msg ""
+     if {$multi == "yes"} {
+         while {[gets $fd line] != -1 && [string first $boundary $line] == -1} {}
+         while {[gets $fd line] != -1 && $line != ""} {}
+         while {[gets $fd line] != -1 && [string first $boundary $line] == -1} {
+             set msg "$msg> $line\n"
+         }
+     } else {
+         while {[gets $fd line] != -1} {
+             set msg "$msg> $line\n"
+         }
+     }
+     catch {close $fd}
+     set str [string toupper [string range $subject 0 2]]
+     if {$str != "RE:"} {
+         set subject "Re: $subject"
+     }
+     set tkdesk(TkMailer) "mail"
+     set dsk_mailer(date) $date
+     dsk_mailer2 $re $subject $msg $msgid
+ }
+ 
+ proc dsk_easyset_mail {t} {
+     global tkdesk dsk_get_config dsk_easyconf_mail env
+     
+     if {[cb_dialog $t.que "ÀßÄê¥Õ¥¡¥¤¥ë¤Î¾å½ñ¤­" \
+         "$env(HOME)/.im/Config¤¬¾å½ñ¤­¤µ¤ì¸½ºß¤ÎÀßÄê¤Ï $env(HOME)/.im/Config.old¤ËÊÝÂ¸¤µ¤ì¤Þ¤¹¤¬¤è¤í¤·¤¤¤Ç¤¹¤«¡©\n(ÄÌ¾ï¤Ï¡ÖÎ»²ò¡×¤òÁªÂò¤·¤Þ¤¹)" \
+ 	questhead 0 "Î»²ò" "¼è¾Ã"] == 1} {
+    	return
+     }
+     catch { exec cp $env(HOME)/.im/Config $env(HOME)/.im/Config.old }
+     set err [catch {set fd [open "~/.im/Config" "w"]}]
+     if $err {
+         cb_error "~/.im¤¬³«¤±¤Þ¤»¤ó¡ª"
+     } else {
+         foreach wname {addr smtp nntp} {
+             set value [$t.$wname get]
+             puts $fd "$dsk_easyconf_mail($wname)=$value"
+         }
+     	set addrlist [split [$t.addr get] @]
+     	set user [lindex $addrlist 0]
+     	set domain [lindex $addrlist 1]
+     	set smtp [$t.smtp get]
+ 	puts $fd "Name=$user"
+ 	puts $fd "#PopServers=$smtp"
+ 	puts $fd "MailDir=Mail"
+ 	puts $fd "NewsDir=News"
+ 	puts $fd "Width=80"
+ 	puts $fd "JisSafe=on"
+ 	puts $fd "JPheader=on"
+ 	puts $fd "JPconv=on"
+ 	puts $fd "NoHdrFolding=off"
+ 	puts $fd "HdrQEncoding=off"
+ 	puts $fd "NameInComment=off"
+ 	puts $fd "8to7=on"
+     	puts $fd "User=$user"
+     	puts $fd "ToDomain=$domain"
+     	puts $fd "FromDomain=$domain"
+     	puts $fd "Defcode=EUC"
+     	puts $fd "keep=0"
+     	puts $fd "AddHeader=TkMailer: ver$tkdesk(version) $tkdesk(patch)"
+     	puts $fd "#easy=yes"
+     	close $fd
+     }
+     dsk_get_config
+     destroy $t
+ }
+ 
+ proc dsk_receive_mail {} {
+     global dsk_receive_mail dsk_get_config env tkdesk
+ 
+     set dsk_receive_mail(sjsize) 46
+     set dsk_receive_mail(fromsize) 32
+     set dsk_receive_mail(sjnum) 7
+     set dsk_receive_mail(size) "50x14"
+     set dsk_receive_mail(folder) "inbox"
+     set dsk_get_config(#easy) "no"
+     dsk_get_config
+     set dsk_receive_mail(rootdir) "$env(HOME)/$dsk_get_config(MailDir)"
+     
+     catch {destroy .dsk_receive_mail}
+     toplevel [set t .dsk_receive_mail]
+     wm withdraw $t
+     wm title $t "TkMailer Viewer"  
+ 
+     frame $t.f1 -bd 1 -relief raised
+     pack $t.f1 -fill x
+     menubutton $t.folder -text "¥Õ¥©¥ë¥À" -menu $t.folder.m
+     menu $t.folder.m
+     label $t.title -anchor center -text "TkMailerÆüËÜ¸ìÈÇ(¥á¡¼¥ë¼õ¿®) by »°´ä¹¬É×"
+     pack $t.folder -in $t.f1 -side left
+     pack $t.title -in $t.f1 -side left -fill x -expand yes -padx 4 -pady 4
+ 
+     frame $t.f2 -bd 1 -relief raised
+     pack $t.f2 -fill x
+     frame $t.f2a
+     pack $t.f2a -in $t.f2 -fill x -expand yes -padx 4 -pady 4
+     listbox $t.sj -height $dsk_receive_mail(sjnum) -bd 2 -relief sunken -yscroll \
+       "$t.sby set" -xscroll "$t.sbx set" -selectmode extended -font $tkdesk(font,entries)
+     pack $t.sj -in $t.f2a -side left -fill x -expand yes
+     bind $t.sj <Double-Button-1> "dsk_mail_settext $t %x %y"
+     bind $t.sj <Delete> "dsk_delete_mail $t"
+     scrollbar $t.sby -orient vertical -command "$t.sj yview"
+     pack $t.sby -in $t.f2a -side left -fill y
+     scrollbar $t.sbx -orient horiz -command "$t.sj xview"
+     pack $t.sbx -in $t.f2 -side bottom -fill x
+ 
+     set curdir [pwd]
+     set err [catch {cd  $dsk_receive_mail(rootdir)}]
+     if $err {
+         exec mkdir $dsk_receive_mail(rootdir)
+         exec mkdir $dsk_receive_mail(rootdir)/inbox
+         exec mkdir $dsk_receive_mail(rootdir)/trash
+         exec mkdir $dsk_receive_mail(rootdir)/send
+         cd  $dsk_receive_mail(rootdir)
+     }
+     set dirs [glob -nocomplain *]
+     set dirs [lsort $dirs]
+     foreach dir $dirs {
+     	if {[file isdirectory $dir]} {
+             $t.folder.m add command -label "$dir" \
+                 -command "dsk_set_maildir $t $dsk_receive_mail(rootdir) $dir"
+             cd $dir
+     	    set subdirs [glob -nocomplain *]
+             set subdirs [lsort $subdirs]
+             foreach subdir $subdirs {
+     	        if {[file isdirectory $subdir]} {
+                     $t.folder.m add command -label "-$subdir" \
+                          -command "dsk_set_maildir $t $dsk_receive_mail(rootdir) $dir/$subdir"
+     	        }
+             }
+     	    cd ..
+         }
+     }
+     $t.folder.m add separator
+     $t.folder.m add command -label "¥Õ¥©¥ë¥ÀºîÀ®"\
+         -command "dsk_mk_maildir $dsk_receive_mail(rootdir)/inbox"
+     $t.folder.m add command -label "¥á¡¼¥ë¿¶¤êÊ¬¤±" -command dsk_mail_seldef
+     $t.folder.m add command -label "¤´¤ßÈ¢¤ò¶õ¤Ë¤¹¤ë" -command "catch {exec imclean}"
+     cd $curdir
+ 
+     frame $t.f3 -bd 1 -relief raised
+     pack $t.f3 -fill both -expand yes
+     frame $t.f3a
+     frame $t.f3b
+     pack $t.f3a -in $t.f3 -fill both -side left -expand yes -padx 4 -pady 4
+     pack $t.f3b -in $t.f3 -fill y -side right -padx 4 -pady 4
+     text $t.tm -bd 2 -height 1 -width 30 -relief sunken -setgrid 1 -yscroll "$t.sby3 set"
+     pack $t.tm -in $t.f3a -side left -fill both -expand yes
+     scrollbar $t.sby3 -orient vertical -command "$t.tm yview"
+     pack $t.sby3 -in $t.f3a -side left -fill y
+     listbox $t.files -width 12 -bd 2 -height 1 -relief sunken -bg navy -fg gold \
+        -font $tkdesk(font,entries)
+     bind $t.files <Double-Button-1> "dsk_mail_savefile $t %x %y"
+     pack $t.files -in $t.f3b -side left -fill y
+ 
+     frame $t.f0 -bd 1 -relief raised
+     pack $t.f0 -fill x
+     button $t.bn -text "¹¹¿·" -command "dsk_set_subject $t"
+     button $t.br -text "POP¼è¹þ" -command "dsk_remote_receive $t"
+     button $t.bl -text "¼è¹þ" -command "dsk_local_receive $t"
+     button $t.bre -text "ÊÖ¿®" -command "dsk_resend_mail $t"
+     button $t.bse -text "¿¶Ê¬" -command "dsk_mail_select $t"
+     button $t.bsv -text "ÊÝÂ¸..." -command "dsk_mailer_save $t"
+     button $t.bd -text "ºï½ü" -command "dsk_delete_mail $t"
+ #    button $t.bs -text "ÀßÄê" -command dsk_config_mail
+     button $t.bc -text "ÊÄ¤¸¤ë" -command "destroy $t"
+     if {$dsk_get_config(#easy) == "yes"} {
+         $t.bl configure -state disabled
+ #        $t.bs configure -command dsk_easyconf_mail
+     }
+     pack $t.bn $t.br $t.bl $t.bre $t.bse $t.bsv $t.bd $t.bc -in $t.f0 \
+         -side left -padx 2 -pady 2 -ipady 1
+ 
+     set dsk_receive_mail(curdir) "$dsk_receive_mail(rootdir)/$dsk_receive_mail(folder)"
+     dsk_set_subject $t
+ 
+     wm geometry $t $dsk_receive_mail(size)
+     wm protocol $t WM_DELETE_WINDOW "destroy $t"
+     cb_centerToplevel $t
+     wm deiconify $t
+ }
+ 
+ proc dsk_set_maildir {t root dir} {
+     global dsk_receive_mail
+    
+     set dsk_receive_mail(curdir) "$root/$dir"
+     set dsk_receive_mail(folder) $dir
+     dsk_set_subject $t
+ }
+ 
+ proc dsk_mk_maildir {dir} {
+     set name [cb_readString "¿·µ¬¥á¡¼¥ë¥Õ¥©¥ë¥À¤ÎÌ¾Á°"]
+     catch {exec mkdir "$dir/$name"}
+ }
+ 
+ proc dsk_delete_mail {t} {
+     global dsk_receive_mail
+ 
+     set size [$t.sj size]
+     set lists [$t.sj curselection]
+     if {[llength $lists] <= 0} {
+         return
+     }
+     set newlists ""
+     foreach item $lists {
+     	incr item
+     	set newlists [concat $newlists $item]
+     }
+     exec sh -c "imrm --src=+$dsk_receive_mail(folder) $newlists"
+     dsk_set_subject $t
+ }
+ 
+ proc dsk_local_receive {t} {
+     catch {exec imget > "~/.tkdesk/mailerr"}
+ #    dsk_set_subject $t
+ }
+ 
+ proc dsk_remote_receive {t} {
+     global tkdesk dsk_get_config
+ 
+     dsk_get_config
+     set command "--src=pop/POP:$dsk_get_config(User)@$dsk_get_config(#PopServers)"
+     dsk_exec $tkdesk(cmd,xterm) -sb -T "POP" -e pauseme "imget $command"
+     catch {exec imget > "~/.tkdesk/mailerr"}
+ #    dsk_set_subject $t
+ }
+ 
+ proc dsk_mail_settext {t x y} {
+     global tkdesk dsk_receive_mail dsk_mail_settext dsk_get_config 
+ 
+     dsk_get_config
+     set disphead {}
+     catch {set disphead $dsk_get_config(#head)}
+     set multi "no"
+     set n [$t.sj index @$x,$y]
+     incr n
+     set dir $dsk_receive_mail(curdir)
+     if {[file exists $dir/$n] == 0} {
+         return
+     }
+     $t.files delete 0 end
+     $t.tm delete 1.0 end
+     set tkdesk(TkMailerFile) "$dir/$n"
+     set fd [open "| nkf -e < $dir/$n" "r"]
+     while {[gets $fd line] != -1 && $line != ""} {
+         set head [string tolower $line]
+         set pos [string first "content-type: multipart/mixed" $head]
+         if {$pos >= 0} {
+             set multi "yes"
+         }
+         set pos [string first "content-type: multipart/alternative" $head]
+         if {$pos >= 0} {
+             set multi "yes"
+         }
+         if {$multi == "yes"} {
+             set head [string tolower $line]
+             set pos [string first "boundary=" $head]
+             set b [expr $pos + 10]
+             set e [expr [string length $line] - 2]
+             if {$pos != -1} {
+                 set boundary [string range $line $b $e]
+             }
+         }
+         if {$disphead == "all"} {
+             $t.tm insert end "$line\n"
+         }
+         if {$disphead == "some"} {
+             set key [string range $head 0 1]
+             if {$key == "to"} {
+                 $t.tm insert end "$line\n"
+             }
+             if {$key == "cc"} {
+                 $t.tm insert end "$line\n"
+             }
+             set key [string range $head 0 3]
+             if {$key == "from"} {
+                 $t.tm insert end "$line\n"
+             }
+             if {$key == "date"} {
+                 $t.tm insert end "$line\n"
+             }
+         }
+     }
+     if {$disphead == "all" || $disphead == "some"} {
+         $t.tm insert end "\n"
+     }
+     if {$multi == "no"} {
+         set msg [read -nonewline $fd]
+         $t.tm insert end $msg
+         catch {close $fd}
+         return
+     }
+     set i -2
+     while {[gets $fd line] != -1} {
+         if {[string first $boundary $line] != -1} {
+             set heads "on"
+             incr i
+             set name "noname$i"
+             set dsk_mail_settext($name) ""
+             set dsk_mail_settext($i) ""
+             set hf "off"
+         } else {
+             if {$i == -1} {
+                 if {$heads == "off"} {
+                     $t.tm insert end "$line\n"
+                 }
+                 if {$line == "" && $heads == "on"} {
+                     set heads "off"
+                 }
+             }
+             if {$i >= 0} {
+                 if {$heads == "on"} {
+                     if {$line == ""} {
+                         set dsk_mail_settext($name) ""
+                         set heads "off"
+                         if {$hf == "on"} {
+                             $t.files insert end $name
+                         }
+                     } else {
+                     	set hf "on"
+                         set head [string tolower $line]
+                         set pos [string first "content-transfer-encoding: base64" $head]
+                         if {$pos >= 0} {
+                             set dsk_mail_settext($i) "base64"
+                         }
+                         set pos [string first "filename=" $head]
+                         if {$pos != -1} {
+                             set head [string range $head $pos end]
+                             set b [string first "\"" $head]
+                             set e [string last "\"" $head]
+                             if {$b != -1 && $e != -1} {
+                                 set name [string range $head [expr $b + 1] [expr $e - 1]]
+                             } else {
+                             	set b [string first "=" $head]
+                                 set name [string range $head [expr $b + 1] end]
+                             }
+                         }
+                     }
+                 } else {
+                     set dsk_mail_settext($name) "$dsk_mail_settext($name)$line\n"
+                 }
+             }
+         }
+     }
+     catch {close $fd}
+ }
+ 
+ proc dsk_mail_savefile {t x y} {
+     global dsk_mail_settext
+ 
+     if {[$t.files size] == 0} {
+         return
+     } 
+     set n [$t.files index @$x,$y]
+     set name [$t.files get $n]
+     set form $dsk_mail_settext($n)
+     set varname $name
+     while 1 {
+         set f [cb_fileSelector -label "ÅºÉÕ¥Õ¥¡¥¤¥ë $varname ¤òÊÝÂ¸" -variable varname ]
+         if {$f != ""} {
+        	    if {$form == "base64"} {
+        	        set f "| text2bin > $f"
+        	    }
+             set err [catch {set fd [open $f "w"]}]
+             if $err {
+                 cb_error "½ñ¤­¹þ¤ß¤Ç $f ¤¬³«¤±¤Þ¤»¤ó¡ª"
+             } else {
+                 set msg $dsk_mail_settext($name)
+                 puts -nonewline $fd $msg
+                 catch {close $fd}
+                 break
+             }
+         } else {
+             break
+         }
+     }
+ }
+ 
+ proc dsk_mail_select {t} {
+     global dsk_get_config env
+ 
+     dsk_get_config
+     set dir "$env(HOME)/$dsk_get_config(MailDir)/inbox"
+     set dsk_mail_select(·ïÌ¾) subject
+     set dsk_mail_select(º¹½Ð¿Í) from
+     set dsk_mail_select(°¸Àè) to
+     set config [dsk_mail_seldef_read]
+     set fd [open "| catheader $dir | nkf -e" "r"]
+     set j 0
+     foreach list $config {
+         set folder [lindex $list 1]
+         set command($j) "exec immv --src=+inbox --dst=+inbox/$folder "
+         set flag($j) "off"
+         incr j
+     }
+     set i 1
+     gets $fd line
+     while {[gets $fd line] != -1} {
+         set head [string tolower $line]
+         set pos [string first "subject: " $head]
+         if {$pos == 0} {
+             set dsk_mail_select(subject) [string range $line [expr $pos + 9] end]
+        	}
+         set pos [string first "from: " $head]
+         if {$pos == 0} {
+             set dsk_mail_select(from) [string range $line [expr $pos + 6] end]
+        	}
+         set pos [string first "to: " $head]
+         if {$pos == 0} {
+             set dsk_mail_select(to) [string range $line [expr $pos + 4] end]
+        	}
+         set head [string range $line 0 4]
+         if {$head == "---- "} {
+             set j 0
+             foreach list $config {
+                 set item [lindex $list 0]
+                 set match [lindex $list 2]
+                 set varname $dsk_mail_select($item)
+                 if {[string first $match $dsk_mail_select($varname)] >= 0} {
+                      set command($j) "$command($j) $i"
+                      set flag($j) "on"
+                 }
+                 incr j
+             }
+             incr i
+         }
+     }
+     catch {close $fd}
+     set j 0
+     foreach list $config {
+         set item [lindex $list 0]
+         set match [lindex $list 2]
+         set varname $dsk_mail_select($item)
+         if {[string first $match $dsk_mail_select($varname)] >= 0} {
+             set command($j) "$command($j) $i"
+             set flag($j) "on"
+         }
+     	if {$flag($j) == "on"} {
+             eval $command($j)
+         }
+         incr j
+     }
+     dsk_set_subject $t
+ }
+ 
+ proc dsk_sort_mails {} {
+     global dsk_receive_mail
+ 
+     set dir $dsk_receive_mail(curdir)
+     set dirs [glob -nocomplain $dir/*]
+     set dirs [lsort $dirs]
+     set max 0
+     set n 0
+     foreach item $dirs {
+         if {[file isfile $item]} {
+             set cur [file tail $item]
+             if {$max <= $cur} {
+                  set max $cur
+             }
+             incr n
+         }
+     }
+     if {$n != $max} {
+         set j 1
+         for {set i 1} {$i <= $max} {incr i} {
+             if {[file exists $dir/$i]} {
+                 if {"$dir/$i" != "$dir/$j"} {
+                     exec mv $dir/$i $dir/$j
+                 }
+                 incr j
+             }
+         }
+     }
+ }
+ 
+ proc dsk_set_subject_form {subject from date} {
+     global dsk_receive_mail
+ 
+     set n $dsk_receive_mail(sjsize)
+     set f $dsk_receive_mail(fromsize)
+     set form [format "%%-%ds" $n]
+     set str [format $form $subject]
+     set title [string range $str 0 [expr $n - 1]]
+     set form [format "%%-%ds" $f]
+     set str [format $form $from]
+     set str [string range $str 0 [expr $f - 1]]
+     set title "$title $str"
+     set str [format "%32s" $date]
+     set str [string range $str 0 31]
+     set title "$title $str"
+     return $title
+ }
+ 
+ proc dsk_set_subject {t} {
+     global dsk_receive_mail tkdesk
+ 
+     dsk_sort_mails
+     set n $dsk_receive_mail(sjsize)
+     set f $dsk_receive_mail(fromsize)
+     set dir $dsk_receive_mail(curdir)
+     if {$dir == "$dsk_receive_mail(rootdir)/trash"} {
+         $t.bd configure -state disabled
+     } else {
+         $t.bd configure -state active
+     }
+     $t.sj delete 0 end
+     set subject "(·ïÌ¾¤Ê¤·)"
+     set count 0
+     set fd [open "| catheader $dir | nkf -e" "r"]
+     set form [format "%%-%ds %%-%ds %%32s" $n $f]
+     gets $fd line
+     while {[gets $fd line] != -1} {
+     	incr count
+         set head [string tolower $line]
+         set pos [string first "subject: " $head]
+         if {$pos >= 0} {
+             set subject [string range $line [expr $pos + 9] end]
+        	}
+         set pos [string first "from: " $head]
+         if {$pos >= 0} {
+             set from [string range $line [expr $pos + 6] end]
+        	}
+         set pos [string first "date: " $head]
+         if {$pos >= 0} {
+             set dt [string range $line [expr $pos + 6] end]
+        	}
+         set head [string range $line 0 4]
+         if {$head == "---- "} {
+             $t.sj insert end [dsk_set_subject_form $subject $from $dt]
+             set subject "(·ïÌ¾¤Ê¤·)"
+         }
+     }
+     if {$count > 0} {
+         $t.sj insert end [dsk_set_subject_form $subject $from $dt]
+     }
+     catch {close $fd}
+     $t.tm delete 1.0 end
+     set tkdesk(TkMailerFile) "none"
+ }
+ 
+ proc dsk_mail_seldef {} {
+     global dsk_mail_seldef dsk_get_config env tkdesk
+ 
+     catch {destroy .dsk_mail_seldef}
+     toplevel [set t .dsk_mail_seldef]
+     wm withdraw $t
+     wm title $t "TkMailer Selection define"  
+ 
+     dsk_get_config
+     set home $env(HOME)
+     set maildir $dsk_get_config(MailDir)
+     set dsk_mail_seldef(item) ""
+     set dsk_mail_seldef(folder) ""
+     set dsk_mail_seldef(config) [dsk_mail_seldef_read]
+     frame $t.f1 -bd 1 -relief raised
+     pack $t.f1 -fill x
+     label $t.title -text "TkMailerÆüËÜ¸ìÈÇ(¥á¡¼¥ë¿¶¤êÊ¬¤±ÀßÄê) by »°´ä¹¬É×"
+     pack $t.title -in $t.f1 -padx 4 -pady 4
+ 
+     frame $t.f2
+     pack $t.f2 -fill x
+     menubutton $t.item -text "¹àÌÜ" -menu $t.item.m
+     menu $t.item.m
+     foreach item {·ïÌ¾ º¹½Ð¿Í °¸Àè} {
+         $t.item.m add command -label $item \
+           -command "dsk_mail_seldef_key $t 1 $item"
+     }
+     menubutton $t.folder -text "Å¾Á÷Àè" -menu $t.folder.m
+     menu $t.folder.m
+     set curdir [pwd]
+     cd "$home/$maildir/inbox"
+     set dirs [glob -nocomplain *]
+     set dirs [lsort $dirs]
+     foreach dir $dirs {
+     	if {[file isdirectory $dir]} {
+             $t.folder.m add command -label $dir \
+               -command "dsk_mail_seldef_key $t 2 $dir"
+        }
+     }
+     cd $curdir
+ 
+     label $t.lmatch -text "¥­¡¼¥ï¡¼¥É"
+     entry $t.match -bd 2 -width 48 -relief sunken
+     pack $t.item $t.folder $t.lmatch -in $t.f2 -side left
+     pack $t.match -in $t.f2 -side left -fill x -expand yes -padx 4 -pady 4
+ 
+     frame $t.f3
+     pack $t.f3 -fill x
+     entry $t.define
+     pack $t.define -in $t.f3 -side left -fill x -expand yes -padx 4 -pady 4
+      
+     frame $t.f4
+     pack $t.f4 -fill both -expand yes -padx 4 -pady 4
+     listbox $t.list -height 4 -bd 2 -relief sunken \
+         -yscroll "$t.y set" -selectmode browse -font $tkdesk(font,entries)
+     bind $t.list <Double-Button-1> {}
+     bind $t.list <Delete> {}
+     scrollbar $t.y -orient vertical -command "$t.list yview"
+     pack $t.list -in $t.f4 -side left -fill both -expand yes
+     pack $t.y -in $t.f4 -side right -fill y
+     dsk_mail_seldef_list $t
+ 
+     frame $t.f0 -bd 1 -relief raised
+     pack $t.f0 -fill x
+     button $t.bs -text "ÄÉ²Ã" -command "dsk_mail_add_config $t"
+     button $t.bd -text "ºï½ü" -command "dsk_mail_del_config $t"
+     button $t.bc -text "ÊÄ¤¸¤ë" -command "destroy $t"
+     pack $t.bs $t.bd $t.bc -in $t.f0 -side left -padx 2 -pady 2 -ipady 1
+ 
+     wm protocol $t WM_DELETE_WINDOW "destroy $t"
+     cb_centerToplevel $t
+     wm deiconify $t
+ }
+ 
+ proc dsk_mail_del_config {t} {
+     global dsk_mail_seldef env
+ 
+     set n [$t.list curselection]
+     set dsk_mail_seldef(config) [lreplace $dsk_mail_seldef(config) $n $n]
+     set err [catch {set fd [open "$env(HOME)/.tkdesk/_mailselconf" "w"]}]
+     if $err {
+         cb_error "½ñ¤­¹þ¤ß¤Ç $f ¤¬³«¤±¤Þ¤»¤ó¡ª"
+     } else {
+         puts -nonewline $fd $dsk_mail_seldef(config)
+         catch {close $fd}
+     }
+     dsk_mail_seldef_list $t
+ }
+ 
+ proc dsk_mail_add_config {t} {
+     global dsk_mail_seldef env
+ 
+     set item $dsk_mail_seldef(item)
+     set folder $dsk_mail_seldef(folder)
+     set match [$t.match get]
+     if {$item != "" && $folder != "" && $match != ""} {
+     	lappend dsk_mail_seldef(config) [list $item $folder $match]  
+     }
+     set item $dsk_mail_seldef(item)
+     set folder $dsk_mail_seldef(folder)
+     $t.match delete 0 end
+     $t.define delete 0 end
+     set err [catch {set fd [open "$env(HOME)/.tkdesk/_mailselconf" "w"]}]
+     if $err {
+         cb_error "½ñ¤­¹þ¤ß¤Ç $f ¤¬³«¤±¤Þ¤»¤ó¡ª"
+     } else {
+         puts -nonewline $fd $dsk_mail_seldef(config)
+         catch {close $fd}
+     }
+     dsk_mail_seldef_list $t
+ }
+ 
+ proc dsk_mail_seldef_list {t} {
+     global dsk_mail_seldef
+     
+     $t.list delete 0 end
+     foreach line $dsk_mail_seldef(config) {
+     	set item [lindex $line 0]
+     	set folder [lindex $line 1]
+     	set match [lindex $line 2]
+         $t.list insert end "$item ¤Ë $match ¤ò´Þ¤à¤Ê¤é $folder ¤Ë¿¶Ê¬"
+     }
+ }
+ 
+ proc dsk_mail_seldef_read {} {
+     global env
+ 
+     set confname "$env(HOME)/.tkdesk/_mailselconf"
+     set err [catch {set fd [open $confname "r"]}]
+     if $err {
+         return {}
+     } else {
+         set data [read -nonewline $fd]
+         close $fd
+     }
+     return $data
+ }
+ 
+ proc dsk_mail_seldef_key {t id text} {
+     global dsk_mail_seldef
+ 
+     if {$id == 1} {
+         set dsk_mail_seldef(item) $text
+     }
+     if {$id == 2} {
+         set dsk_mail_seldef(folder) $text
+     }
+     $t.define delete 0 end
+     set item $dsk_mail_seldef(item)
+     set folder $dsk_mail_seldef(folder)
+     set match [$t.match get]
+     $t.define insert end "$item ¤Ë $match ¤ò´Þ¤à¤Ê¤é $folder ¤Ë¿¶Ê¬"
+ }
diff -Pcr tkdesk-1.2/tcldesk/Viewer.tcl tkdesk-1.2-jp/tcldesk/Viewer.tcl
*** tkdesk-1.2/tcldesk/Viewer.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/Viewer.tcl	Fri Sep 15 17:46:39 2000
***************
*** 122,128 ****
  	bind $top.ePE <Tab> "focus $top; break"
  	bind $top.ePE <3> "update idletasks; $this _path_popup %X %Y"
  	cb_bindForCompletion $top.ePE <Control-Tab>
! 	cb_balloonHelp $top.ePE {The path displayed in the current window. Change to visit another directory.  The right mouse button gives a popup menu of parent directories.}
      	blt_drag&drop target $top.ePE \
  				handler file "dd_handle_text $top.ePE %v 1"
  
--- 122,128 ----
  	bind $top.ePE <Tab> "focus $top; break"
  	bind $top.ePE <3> "update idletasks; $this _path_popup %X %Y"
  	cb_bindForCompletion $top.ePE <Control-Tab>
! 	cb_balloonHelp $top.ePE {¤³¤Î¥¦¥£¥ó¥É¥¦¤ËÉ½¼¨¤µ¤ì¤Æ¤¤¤ë¥Ñ¥¹Ì¾¤Ç¤¹¡£Â¾¤Î¥Õ¥©¥ë¥À¤Ë°Ü¤ê¤¿¤¤¾ì¹ç¤ÏÊÑ¹¹¤·¤Æ¤¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¥Þ¥¦¥¹¤Î±¦¥¯¥ê¥Ã¥¯¤Ç¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤¬¸½¤ì¤Æ¥Õ¥©¥ë¥À¤ò°ÜÆ°¤Ç¤­¤Þ¤¹¡£}
      	blt_drag&drop target $top.ePE \
  				handler file "dd_handle_text $top.ePE %v 1"
  
diff -Pcr tkdesk-1.2/tcldesk/action.tcl tkdesk-1.2-jp/tcldesk/action.tcl
*** tkdesk-1.2/tcldesk/action.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/action.tcl	Fri Sep 15 17:46:39 2000
***************
*** 93,105 ****
  	if {$viewer != ""} {
  	    $viewer config -dir [$viewer curdir]
  	}
! 	cb_error "No such file or directory:\n$file"
  	return
      }
  
      if ![file readable $file] {
  	dsk_errbell
! 	cb_error "Permission denied."
  	return
      }
      
--- 93,105 ----
  	if {$viewer != ""} {
  	    $viewer config -dir [$viewer curdir]
  	}
! 	cb_error "¥Õ¥¡¥¤¥ë¤Þ¤¿¤Ï¥Õ¥©¥ë¥À¤¬¤¢¤ê¤Þ¤»¤ó:\n$file"
  	return
      }
  
      if ![file readable $file] {
  	dsk_errbell
! 	cb_error "¤³¤Î¥Õ¥¡¥¤¥ë¤òÁàºî¤¹¤ë¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡ª"
  	return
      }
      
***************
*** 108,114 ****
  
  	if ![file executable $file] {
  	    dsk_errbell
! 	    cb_error "Permission denied (directory not executable)."
  	    return
  	}
  	
--- 108,114 ----
  
  	if ![file executable $file] {
  	    dsk_errbell
! 	    cb_error "¤³¤Î¥Õ¥¡¥¤¥ë¤ò¼Â¹Ô¤¹¤ë¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡ª"
  	    return
  	}
  	
***************
*** 286,292 ****
  
      if {$files == ""} {
  	dsk_bell
! 	cb_info "Please select one or more files first."
  	return
      }
  
--- 286,292 ----
  
      if {$files == ""} {
  	dsk_bell
! 	cb_info "¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤¡£"
  	return
      }
  
***************
*** 312,318 ****
      
      if {$files == ""} {
  	dsk_bell
! 	cb_info "Please select one or more files first."
  	return
      }
  
--- 312,318 ----
      
      if {$files == ""} {
  	dsk_bell
! 	cb_info "¤Þ¤º¡¢¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤¡£"
  	return
      }
  
***************
*** 370,376 ****
      } else {
  	if ![dsk_auto_execok $p] {
  	    dsk_errbell
! 	    cb_alert "Can't execute: $p"
  	    return
  	}
      }
--- 370,376 ----
      } else {
  	if ![dsk_auto_execok $p] {
  	    dsk_errbell
! 	    cb_alert "¼Â¹Ô¤Ç¤­¤Þ¤»¤ó: $p"
  	    return
  	}
      }
***************
*** 618,635 ****
      }
  
      if $tkdesk(exec_as_root) {
! 	set lab "Open or Execute as root:"
  	set dsk_ask_exec(as_root) 1
      } else {
! 	set lab "Open or Execute:"
  	set dsk_ask_exec(as_root) 0
      }
      
      set dsk_asc_exec(cmd) ""
      dsk_HistEntry $t \
! 	    -title "Execute" \
  	    -label $lab \
! 	    -checklabel "View Output" \
  	    -checkvalue 0 \
  	    -entrydefault $cmd \
  	    -history cmd_history \
--- 618,635 ----
      }
  
      if $tkdesk(exec_as_root) {
! 	set lab "¥ë¡¼¥È¤È¤·¤Æ¼Â¹Ô¤Þ¤¿¤Ï³«¤¯:"
  	set dsk_ask_exec(as_root) 1
      } else {
! 	set lab "¼Â¹Ô¤Þ¤¿¤Ï³«¤¯:"
  	set dsk_ask_exec(as_root) 0
      }
      
      set dsk_asc_exec(cmd) ""
      dsk_HistEntry $t \
! 	    -title "execute" \
  	    -label $lab \
! 	    -checklabel "½ÐÎÏ¤òÉ½¼¨" \
  	    -checkvalue 0 \
  	    -entrydefault $cmd \
  	    -history cmd_history \
***************
*** 683,689 ****
  	dsk_open "" $tmpcmd
      } else {
  	dsk_errbell
! 	cb_error "Couldn't open/execute $tmpcmd."
      }
      set tkdesk(exec_as_root) $asr
      cd ~
--- 683,689 ----
  	dsk_open "" $tmpcmd
      } else {
  	dsk_errbell
! 	cb_error "$tmpcmd ¤ò³«¤¯¡¢¤Þ¤¿¤Ï¡¢¼Â¹Ô¤Ç¤­¤Þ¤»¤ó¡£"
      }
      set tkdesk(exec_as_root) $asr
      cd ~
***************
*** 704,711 ****
      
      dsk_HistEntry .he[dsk_HistEntry :: id] \
  	    -title "Open Directory" \
! 	    -label "Directory to open:" \
! 	    -checklabel "In Browser" \
  	    -checkvalue [expr [string match "browser" $browser] || \
  	                $tkdesk(in_browser)] \
  	    -history dir_history \
--- 704,711 ----
      
      dsk_HistEntry .he[dsk_HistEntry :: id] \
  	    -title "Open Directory" \
! 	    -label "¥Õ¥©¥ë¥À¤ò³«¤¯:" \
! 	    -checklabel "¥Ç¥¹¥¯¥È¥Ã¥×¤ò³«¤¯" \
  	    -checkvalue [expr [string match "browser" $browser] || \
  	                $tkdesk(in_browser)] \
  	    -history dir_history \
***************
*** 721,727 ****
      if {$tmpdir != ""} {
  	if ![file exists $tmpdir] {
  	    dsk_bell
! 	    cb_alert "The path you specified is not completely valid."
  	    set tmpdir [_make_path_valid $tmpdir]
  	}
  	if [file readable $tmpdir] {
--- 721,727 ----
      if {$tmpdir != ""} {
  	if ![file exists $tmpdir] {
  	    dsk_bell
! 	    cb_alert "»ØÄê¤µ¤ì¤¿¥Ñ¥¹¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹¡£"
  	    set tmpdir [_make_path_valid $tmpdir]
  	}
  	if [file readable $tmpdir] {
***************
*** 735,741 ****
  	    dsk_lazy
  	} else {
  	    dsk_errbell
! 	    cb_error "Permission denied."
  	}
      }
  }
--- 735,741 ----
  	    dsk_lazy
  	} else {
  	    dsk_errbell
! 	    cb_error "¤³¤Î¥Õ¥¡¥¤¥ë¤òÁàºî¤¹¤ë¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡ª"
  	}
      }
  }
***************
*** 754,762 ****
      global tkdesk
      
      dsk_HistEntry .he[dsk_HistEntry :: id] \
! 	    -title "Open Directory" \
! 	    -label "Directory to open:" \
! 	    -checklabel "In Browser" \
  	    -checkvalue [expr [string match "browser" $browser] || \
  	                $tkdesk(in_browser)] \
  	    -history dir_history \
--- 754,762 ----
      global tkdesk
      
      dsk_HistEntry .he[dsk_HistEntry :: id] \
! 	    -title "open folder" \
! 	    -label "¥Õ¥©¥ë¥À¤ò³«¤¯:" \
! 	    -checklabel "¥Ç¥¹¥¯¥È¥Ã¥×¤ò³«¤¯" \
  	    -checkvalue [expr [string match "browser" $browser] || \
  	                $tkdesk(in_browser)] \
  	    -history dir_history \
***************
*** 772,778 ****
      if {$tmpdir != ""} {
  	if ![file exists $tmpdir] {
  	    dsk_bell
! 	    cb_alert "The path you specified is not completely valid."
  	    set tmpdir [_make_path_valid $tmpdir]
  	}
  	if [file readable $tmpdir] {
--- 772,778 ----
      if {$tmpdir != ""} {
  	if ![file exists $tmpdir] {
  	    dsk_bell
! 	    cb_alert "»ØÄê¤µ¤ì¤¿¥Ñ¥¹¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹¡£"
  	    set tmpdir [_make_path_valid $tmpdir]
  	}
  	if [file readable $tmpdir] {
***************
*** 786,792 ****
  	    dsk_lazy
  	} else {
  	    dsk_errbell
! 	    cb_error "Permission denied."
  	}
      }
  }
--- 786,792 ----
  	    dsk_lazy
  	} else {
  	    dsk_errbell
! 	    cb_error "¤³¤Î¥Õ¥¡¥¤¥ë¤òÁàºî¤¹¤ë¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡ª"
  	}
      }
  }
***************
*** 1004,1010 ****
  	if {![file isdirectory $dir] && $special == ""} {
  	    set dir [_make_path_valid $dir]
  	    catch {dsk_bell}
! 	    cb_alert "The path you specified does not exist."
  	}
  	if {[info command dsk_cd_callback] != ""} {
  	    dsk_cd_callback $dir
--- 1004,1010 ----
  	if {![file isdirectory $dir] && $special == ""} {
  	    set dir [_make_path_valid $dir]
  	    catch {dsk_bell}
! 	    cb_alert "¤¢¤Ê¤¿¤Î»ØÄê¤·¤¿¥Ñ¥¹¤ÏÂ¸ºß¤·¤Þ¤»¤ó¡£"
  	}
  	if {[info command dsk_cd_callback] != ""} {
  	    dsk_cd_callback $dir
***************
*** 1041,1047 ****
  	}
      } else {
  	dsk_errbell
! 	cb_error "Permission denied."
      }
  
      return $f
--- 1041,1047 ----
  	}
      } else {
  	dsk_errbell
! 	cb_error "¤³¤Î¥Õ¥¡¥¤¥ë¤òÁàºî¤¹¤ë¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡ª"
      }
  
      return $f
***************
*** 1065,1071 ****
  		-num_lbs $tkdesk(num_lbs)
      } else {
  	dsk_errbell
! 	cb_error "Permission denied."
      }
  }
  
--- 1065,1071 ----
  		-num_lbs $tkdesk(num_lbs)
      } else {
  	dsk_errbell
! 	cb_error "¤³¤Î¥Õ¥¡¥¤¥ë¤òÁàºî¤¹¤ë¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡ª"
      }
  }
  
***************
*** 1098,1111 ****
  	if {[string first "%A" $cmd] > -1 || \
  	    [string first "%a" $cmd] > -1} {
  	    dsk_bell
! 	    cb_info "Please select one or more files first."
  	    return ""
  	} elseif {[string first "%" $cmd] > -1} {
  	    if {[string first "%B" $cmd] == -1 && \
  		[string first "%D" $cmd] == -1 && \
  		[string first "%X" $cmd] == -1 && \
  		[string first "%x" $cmd] == -1} {
! 	    	cb_info "Please select a file first."
  	    	return ""
  	    }
  	}
--- 1098,1111 ----
  	if {[string first "%A" $cmd] > -1 || \
  	    [string first "%a" $cmd] > -1} {
  	    dsk_bell
! 	    cb_info "¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤¡£"
  	    return ""
  	} elseif {[string first "%" $cmd] > -1} {
  	    if {[string first "%B" $cmd] == -1 && \
  		[string first "%D" $cmd] == -1 && \
  		[string first "%X" $cmd] == -1 && \
  		[string first "%x" $cmd] == -1} {
! 		cb_info "¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤¡£"
  	    	return ""
  	    }
  	}
***************
*** 1115,1121 ****
      if {[string first "%x" $cmd] > -1} {
  	set err [catch {set xsel [selection get]}]
  	if $err {
! 	    cb_info "The X-selection is empty."
  	    return ""
  	}
      } elseif {[string first "%X" $cmd] > -1} {
--- 1115,1121 ----
      if {[string first "%x" $cmd] > -1} {
  	set err [catch {set xsel [selection get]}]
  	if $err {
! 	    cb_info "X¥»¥ì¥¯¥·¥ç¥ó¤¬¶õ¤Ç¤¹¡£"
  	    return ""
  	}
      } elseif {[string first "%X" $cmd] > -1} {
***************
*** 1304,1310 ****
  	#	 -filter [string trimright [dsk_active dir] /]/* \
  	#	 -label "File to edit:" -showall 1]
  	while {1} {
! 	    set files [dsk_filesel "File to edit:" \
  		    [string trimright [dsk_active dir] /]/* showall]
  	    set isdir 0
  	    catch {set isdir [file isdirectory $files]}
--- 1304,1310 ----
  	#	 -filter [string trimright [dsk_active dir] /]/* \
  	#	 -label "File to edit:" -showall 1]
  	while {1} {
! 	    set files [dsk_filesel "¥Õ¥¡¥¤¥ë¤ÎÊÔ½¸:" \
  		    [string trimright [dsk_active dir] /]/* showall]
  	    set isdir 0
  	    catch {set isdir [file isdirectory $files]}
***************
*** 1312,1318 ****
  		return
  	    } elseif $isdir {
  		dsk_errbell
! 		cb_error "$files is a directory. Please choose a file."
  	    } else {
  		break
  	    }
--- 1312,1318 ----
  		return
  	    } elseif $isdir {
  		dsk_errbell
! 		cb_error "$files ¤Ï¥Õ¥©¥ë¥À¤Ç¤¹¡£¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤¡£"
  	    } else {
  		break
  	    }
***************
*** 1376,1382 ****
      set p [lindex $args 0]
      if ![dsk_auto_execok $p] {
  	dsk_errbell
! 	cb_alert "Can't execute: $p"
  	return
      }
      eval dsk_editor cmd $args
--- 1376,1382 ----
      set p [lindex $args 0]
      if ![dsk_auto_execok $p] {
  	dsk_errbell
! 	cb_alert "¼Â¹Ô¤Ç¤­¤Þ¤»¤ó: $p"
  	return
      }
      eval dsk_editor cmd $args
***************
*** 1453,1459 ****
      }
  
      dsk_HistEntry .he[dsk_HistEntry :: id] \
! 	    -title "Enter String" \
  	    -label $msg \
  	    -entrydefault $tmpvar \
  	    -history string_history \
--- 1453,1459 ----
      }
  
      dsk_HistEntry .he[dsk_HistEntry :: id] \
! 	    -title "Ê¸»ú¤ÎÆþÎÏ" \
  	    -label $msg \
  	    -entrydefault $tmpvar \
  	    -history string_history \
***************
*** 1529,1568 ****
  # ---------------------------------------------------------------------------
  # dsk_print:
  # Asks for the command to use when printing files.
! #
  proc dsk_print {args} {
      global tkdesk dsk_print
  
!     set files $args
!     if {$files == ""} {
!     	set files [_make_fnames_safe]
!     }
!     if {$files == ""} {
! 	dsk_bell
! 	cb_info "Please select one or more files first."
! 	return
!     }
!     set dsk_print(files) $files
!     set dsk_print(string) ""
! 
!     set cmd [printer_history last]
!     if {$cmd == ""} {
! 	if [info exists tkdesk(cmd,print)] {
! 	    set cmd $tkdesk(cmd,print)
! 	} else {
! 	    set cmd "lpr"
! 	}
      }
- 
-     dsk_HistEntry .he[dsk_HistEntry :: id] \
- 	    -title "Print" \
- 	    -label "Print command (file names will be appended):" \
- 	    -entrydefault $cmd \
- 	    -history printer_history \
- 	    -callback dsk_print_ok
-     
  }
  
  # ---------------------------------------------------------------------------
  # dsk_print_string:
  # Asks for the command to use when printing strings.
--- 1529,1576 ----
  # ---------------------------------------------------------------------------
  # dsk_print:
  # Asks for the command to use when printing files.
! 
  proc dsk_print {args} {
      global tkdesk dsk_print
  
!     foreach file $args {
!         exec easypr $file &
      }
  }
  
+ #proc dsk_print {args} {
+ #    global tkdesk dsk_print
+ #
+ #    set files $args
+ #    if {$files == ""} {
+ #   	set files [_make_fnames_safe]
+ #    }
+ #    if {$files == ""} {
+ #	dsk_bell
+ #	cb_info "Please select one or more files first."
+ #	return
+ #    }
+ #   set dsk_print(files) $files
+ #    set dsk_print(string) ""
+ #
+ #    set cmd [printer_history last]
+ #    if {$cmd == ""} {
+ #	if [info exists tkdesk(cmd,print)] {
+ #	    set cmd $tkdesk(cmd,print)
+ #	} else {
+ #	    set cmd "lpr"
+ #	}
+ #    }
+ #
+ #    dsk_HistEntry .he[dsk_HistEntry :: id] \
+ #	    -title "Print" \
+ #	    -label "Print command (file names will be appended):" \
+ #	    -entrydefault $cmd \
+ #	    -history printer_history \
+ #	    -callback dsk_print_ok
+ #    
+ #}
+ #
  # ---------------------------------------------------------------------------
  # dsk_print_string:
  # Asks for the command to use when printing strings.
***************
*** 1576,1587 ****
      if [info exists tkdesk(cmd,print)] {
  	set cmd $tkdesk(cmd,print)
      } else {
! 	set cmd "lpr"
      }
  
      dsk_HistEntry .he[dsk_HistEntry :: id] \
! 	    -title "Print" \
! 	    -label "Print command (pipe):" \
  	    -entrydefault $cmd \
  	    -history printer_history \
  	    -callback dsk_print_ok
--- 1584,1595 ----
      if [info exists tkdesk(cmd,print)] {
  	set cmd $tkdesk(cmd,print)
      } else {
! 	set cmd "lpr2"
      }
  
      dsk_HistEntry .he[dsk_HistEntry :: id] \
! 	    -title "°õºþ" \
! 	    -label "°õºþ¥³¥Þ¥ó¥É (¥Ñ¥¤¥×):" \
  	    -entrydefault $cmd \
  	    -history printer_history \
  	    -callback dsk_print_ok
***************
*** 1680,1686 ****
      if $err {
  	set start_netscape 0
  	if {$tkdesk(confirm_netscape)} {
! 	    if {[cb_yesno "Netscape doesn't seem to be running yet on your display. Start it now?"] == 0} {
  		set start_netscape 1
  	    }
  	} else {
--- 1688,1694 ----
      if $err {
  	set start_netscape 0
  	if {$tkdesk(confirm_netscape)} {
! 	    if {[cb_yesno "¥Í¥Ã¥È¥¹¥±¡¼¥×¤¬²èÌÌ¾å¤Ëµ¯Æ°¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£¤¤¤Þ¤¹¤°µ¯Æ°¤·¤Þ¤¹¤«¡©"] == 0} {
  		set start_netscape 1
  	    }
  	} else {
***************
*** 1739,1753 ****
      set dsk_exec(here,dir) $dir
      
      if $tkdesk(exec_as_root) {
! 	set lab "Execute as root (%A: all selected):"
      } else {
! 	set lab "Enter Command (%A: all selected):"
      }
      
      dsk_HistEntry .dsk_exec_here \
  	    -title "Execute here" \
  	    -label $lab \
! 	    -checklabel "View Output" \
  	    -checkvalue $dsk_exec(here,view) \
  	    -entrydefault $cmd \
  	    -history xhere_history \
--- 1747,1761 ----
      set dsk_exec(here,dir) $dir
      
      if $tkdesk(exec_as_root) {
! 	set lab "¥ë¡¼¥È¤È¤·¤Æ¼Â¹Ô (%A: ÁªÂò¤µ¤ì¤¿Á´¤Æ):"
      } else {
! 	set lab "¥³¥Þ¥ó¥É¤òÆþÎÏ (%A: ÁªÂò¤µ¤ì¤¿Á´¤Æ):"
      }
      
      dsk_HistEntry .dsk_exec_here \
  	    -title "Execute here" \
  	    -label $lab \
! 	    -checklabel "½ÐÎÏ¤ÎÉ½¼¨ " \
  	    -checkvalue $dsk_exec(here,view) \
  	    -entrydefault $cmd \
  	    -history xhere_history \
***************
*** 1796,1811 ****
  	set dsk_mail(file) $file
  	set dsk_mail(string) ""
  	dsk_HistEntry .dsk_mail \
! 		-title "Send File" \
! 		-label "Send file to:" \
  		-history mail_history \
  		-callback dsk_mail_ok
      } else {
  	set dsk_mail(file) ""
  	set dsk_mail(string) $string
  	dsk_HistEntry .dsk_mail \
! 		-title "Send Buffer" \
! 		-label "Send buffer to:" \
  		-history mail_history \
  		-callback dsk_mail_ok
      }
--- 1804,1819 ----
  	set dsk_mail(file) $file
  	set dsk_mail(string) ""
  	dsk_HistEntry .dsk_mail \
! 		-title "¥Õ¥¡¥¤¥ë¤ÎÁ÷¿®" \
! 		-label "Á÷¿®¥Õ¥¡¥¤¥ë¤ò»ØÄê :" \
  		-history mail_history \
  		-callback dsk_mail_ok
      } else {
  	set dsk_mail(file) ""
  	set dsk_mail(string) $string
  	dsk_HistEntry .dsk_mail \
! 		-title "¥Ð¥Ã¥Õ¥¡¤ÎÁ÷¿®" \
! 		-label "Á÷¿®¥Ð¥Ã¥Õ¥¡¤ò»ØÄê:" \
  		-history mail_history \
  		-callback dsk_mail_ok
      }
***************
*** 1855,1870 ****
  proc dsk_man {{names ""}} {
  
      if {$names == ""} {
! 	set names [dsk_read_string "Show manual page for: (e.g. col(1))"]
      }
      
      foreach name $names {
  	set l [split $name ()]
  	if {[llength $l] == 1} {
! 	    dsk_view man $l | col -b
  	    #dsk_cbhelp "| man $l | col -b" man
  	} else {
! 	    dsk_view man [lindex $l 1] [lindex $l 0] | col -b
  	    #dsk_cbhelp "| man [lindex $l 1] [lindex $l 0] | col -b" man
  	}
      }
--- 1863,1880 ----
  proc dsk_man {{names ""}} {
  
      if {$names == ""} {
! 	set names [dsk_read_string "¥Þ¥Ë¥å¥¢¥ë¥Ú¡¼¥¸¤ÎÉ½¼¨: (e.g. col(1))"]
      }
      
      foreach name $names {
  	set l [split $name ()]
  	if {[llength $l] == 1} {
! 	    dsk_view man $l | man2text
! 	    #dsk_view man $l | col -b
  	    #dsk_cbhelp "| man $l | col -b" man
  	} else {
! 	    dsk_view man [lindex $l 1] [lindex $l 0] | man2text
! 	    #dsk_view man [lindex $l 1] [lindex $l 0] | col -b
  	    #dsk_cbhelp "| man [lindex $l 1] [lindex $l 0] | col -b" man
  	}
      }
diff -Pcr tkdesk-1.2/tcldesk/bookmarks.tcl tkdesk-1.2-jp/tcldesk/bookmarks.tcl
*** tkdesk-1.2/tcldesk/bookmarks.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/bookmarks.tcl	Fri Sep 15 17:46:39 2000
***************
*** 62,68 ****
  	    bind $m <B1-ButtonRelease-3> break
  
  	    catch {$m delete 0 last}
! 	    $m add command -label "Add Bookmark" -underline 0 \
  		    -command "dsk_bookmark add"
  	    if {[llength $tkdesk(bookmarks)] > 0} {
  		$m add separator
--- 62,68 ----
  	    bind $m <B1-ButtonRelease-3> break
  
  	    catch {$m delete 0 last}
! 	    $m add command -label "A ¥Ö¥Ã¥¯¥Þ¡¼¥¯¤ÎÄÉ²Ã" -underline 0 \
  		    -command "dsk_bookmark add"
  	    if {[llength $tkdesk(bookmarks)] > 0} {
  		$m add separator
***************
*** 103,109 ****
  	    }
  	    
  	    $m add separator
! 	    $m add cascade -label "Remove Bookmark" -menu $m.rb
  	    catch {destroy $m.rb}
  	    menu [set m $m.rb]
  
--- 103,109 ----
  	    }
  	    
  	    $m add separator
! 	    $m add cascade -label "¥Ö¥Ã¥¯¥Þ¡¼¥¯¤Îºï½ü" -menu $m.rb
  	    catch {destroy $m.rb}
  	    menu [set m $m.rb]
  
diff -Pcr tkdesk-1.2/tcldesk/cb_tools/bindings.tcl tkdesk-1.2-jp/tcldesk/cb_tools/bindings.tcl
*** tkdesk-1.2/tcldesk/cb_tools/bindings.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/cb_tools/bindings.tcl	Fri Sep 15 17:46:39 2000
***************
*** 30,35 ****
--- 30,39 ----
  bind Text <Control-d> {%W delete insert}
  bind Text <Control-t> {catch {tkTextTranspose %W}}
  
+ # KANJI CONVERT
+ bind Text <Shift-space> "kinput_start %W over"
+ bind Entry <Shift-space> "kinput_start %W over"
+ 
  # Text:
  bind Text <2> {
      %W scan mark %x %y
***************
*** 112,141 ****
  catch {bind Entry <bracketright> {tkEntryInsert %W \]}}
  catch {bind Entry <backslash> {tkEntryInsert %W \\}}
  catch {bind Entry <at> {tkEntryInsert %W @}}
- catch {bind Entry <mu> {tkEntryInsert %W µ}}
- catch {bind Entry <bar> {tkEntryInsert %W |}}
- catch {bind Entry <adiaeresis> {tkEntryInsert %W ä}}
- catch {bind Entry <odiaeresis> {tkEntryInsert %W ö}}
- catch {bind Entry <udiaeresis> {tkEntryInsert %W ü}}
- catch {bind Entry <Adiaeresis> {tkEntryInsert %W Ä}}
- catch {bind Entry <Odiaeresis> {tkEntryInsert %W Ö}}
- catch {bind Entry <Udiaeresis> {tkEntryInsert %W Ü}}
- catch {
-     bind Entry <ssharp> {
- 	if {%s == 0} {
- 	    tkEntryInsert %W ß
- 	} else {
- 	    tkEntryInsert %W \\
- 	}
-     }
- }
  
  # These might need to be commented out when using XKB:
  catch {bind Entry <asciitilde> {tkEntryInsert %W ~}}
  catch {bind Entry <grave> {tkEntryInsert %W `}}
  catch {bind Entry <dead_tilde> {tkEntryInsert %W ~}}
  catch {bind Entry <dead_grave> {tkEntryInsert %W `}}
- catch {bind Entry <dead_acute> {tkEntryInsert %W ´}}
  catch {bind Entry <dead_circumflex> {tkEntryInsert %W ^}}
  
  
--- 116,127 ----
***************
*** 153,185 ****
  	tkTextInsert %W \\}}
  catch {bind Text <at> {cb_Text_change_callback %W insert @; \
  	tkTextInsert %W @}}
- catch {bind Text <mu> {cb_Text_change_callback %W insert µ; \
- 	tkTextInsert %W µ}}
- catch {bind Text <bar> {cb_Text_change_callback %W insert |; \
- 	tkTextInsert %W |}}
- catch {bind Text <adiaeresis> {cb_Text_change_callback %W insert ä; \
-         tkTextInsert %W ä}}
- catch {bind Text <odiaeresis> {cb_Text_change_callback %W insert ö; \
-         tkTextInsert %W ö}}
- catch {bind Text <udiaeresis> {cb_Text_change_callback %W insert ü; \
-         tkTextInsert %W ü}}
- catch {bind Text <Adiaeresis> {cb_Text_change_callback %W insert Ä; \
-         tkTextInsert %W Ä}}
- catch {bind Text <Odiaeresis> {cb_Text_change_callback %W insert Ö; \
-         tkTextInsert %W Ö}}
- catch {bind Text <Udiaeresis> {cb_Text_change_callback %W insert Ü; \
-         tkTextInsert %W Ü}}
- catch {
-     bind Text <ssharp> {
- 	if {%s == 0} {
- 	    cb_Text_change_callback %W insert ß
- 	    tkTextInsert %W ß
- 	} else {
- 	    cb_Text_change_callback %W insert \\
- 	    tkTextInsert %W \\
- 	}
-     }
- }
  
  # These might need to be commented out when using XKB:
  catch {bind Text <asciitilde> {cb_Text_change_callback %W insert ~; \
--- 139,144 ----
***************
*** 190,197 ****
  	tkTextInsert %W ~}}
  catch {bind Text <dead_grave> {cb_Text_change_callback %W insert `; \
  	tkTextInsert %W `}}
- catch {bind Text <dead_acute> {cb_Text_change_callback %W insert ´; \
- 	tkTextInsert %W ´}}
  catch {bind Text <dead_circumflex> {cb_Text_change_callback %W insert ^; \
  	tkTextInsert %W ^}}
  
--- 149,154 ----
***************
*** 263,268 ****
--- 220,227 ----
  bind Text <Key> "cb_Text_change_callback %W insert %A; [bind Text <Key>]"
  bind Text <Control-d> "cb_Text_change_callback %W delete char; \
  	[bind Text <Control-d>]"
+ bind Text <Delete> "cb_Text_change_callback %W delete char; \
+ 	[bind Text <Delete>]"
  bind Text <Control-h> "cb_Text_change_callback %W delete backchar; \
  	[bind Text <Control-h>]"
  bind Text <Control-i> "cb_Text_change_callback %W insert <tab>; \
***************
*** 271,285 ****
  bind Text <Control-t> "cb_Text_change_callback %W; [bind Text <Control-t>]"
  bind Text <BackSpace> "cb_Text_change_callback %W delete backchar; \
  	[bind Text <BackSpace>]"
- bind Text <Delete> "cb_Text_change_callback %W delete char; \
- 	[bind Text <Delete>]"
  bind Text <F18> "cb_Text_change_callback %W; [bind Text <F18>]"
  bind Text <F20> "cb_Text_change_callback %W; [bind Text <F20>]"
  bind Text <Return> "cb_Text_change_callback %W insert return; \
  	[bind Text <Return>]"
  bind Text <Tab> "cb_Text_change_callback %W insert <tab>; \
  	[bind Text <Tab>]"
- bind Text <mu> "cb_Text_change_callback %W insert µ; [bind Text <mu>]"
  bind Text <Meta-BackSpace> "cb_Text_change_callback %W delete backchar; \
  	[bind Text <Meta-BackSpace>]"
  bind Text <Meta-Delete> "cb_Text_change_callback %W delete char; \
--- 230,241 ----
diff -Pcr tkdesk-1.2/tcldesk/cb_tools/dialog.tcl tkdesk-1.2-jp/tcldesk/cb_tools/dialog.tcl
*** tkdesk-1.2/tcldesk/cb_tools/dialog.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/cb_tools/dialog.tcl	Fri Sep 15 17:46:39 2000
***************
*** 26,36 ****
  proc cb_alert {text} {
      if [winfo exists .tcb_alert] return
      return [cb_dialog [toplevel .tcb_alert] \
! 	"Alert" \
  	$text \
  	warning \
  	0 \
! 	"  OK  " \
  	]
  }
  
--- 26,36 ----
  proc cb_alert {text} {
      if [winfo exists .tcb_alert] return
      return [cb_dialog [toplevel .tcb_alert] \
! 	"·Ù¹ð" \
  	$text \
  	warning \
  	0 \
! 	" Î»²ò " \
  	]
  }
  
***************
*** 40,50 ****
  proc cb_info {text} {
      if [winfo exists .tcb_info] return    
      return [cb_dialog [toplevel .tcb_info] \
! 	"Info" \
  	$text \
  	info \
  	0 \
! 	"  OK  " \
  	]
  }
  
--- 40,50 ----
  proc cb_info {text} {
      if [winfo exists .tcb_info] return    
      return [cb_dialog [toplevel .tcb_info] \
! 	"¾ðÊó" \
  	$text \
  	info \
  	0 \
! 	" Î»²ò " \
  	]
  }
  
***************
*** 54,64 ****
  proc cb_error {text} {
      if [winfo exists .tcb_error] return    
      return [cb_dialog [toplevel .tcb_error] \
! 	"Error" \
  	$text \
  	error \
  	0 \
! 	"  OK  " \
  	]
  }
  
--- 54,64 ----
  proc cb_error {text} {
      if [winfo exists .tcb_error] return    
      return [cb_dialog [toplevel .tcb_error] \
! 	"¥¨¥é¡¼" \
  	$text \
  	error \
  	0 \
! 	" Î»²ò " \
  	]
  }
  
***************
*** 68,79 ****
  proc cb_yesno {text {default 0}} {
      if [winfo exists .tcb_yesno] return    
      return [cb_dialog [toplevel .tcb_yesno] \
! 	"Question" \
  	$text \
  	questhead \
  	$default \
! 	" Yes " \
! 	" No "
  	]
  }
  
--- 68,79 ----
  proc cb_yesno {text {default 0}} {
      if [winfo exists .tcb_yesno] return    
      return [cb_dialog [toplevel .tcb_yesno] \
! 	"¼ÁÌä" \
  	$text \
  	questhead \
  	$default \
! 	"¤Ï¤¤" \
! 	"¤¤¤¤¤¨"
  	]
  }
  
***************
*** 83,94 ****
  proc cb_okcancel {text {default 0}} {
      if [winfo exists .tcb_okcancel] return    
      return [cb_dialog [toplevel .tcb_okcancel] \
! 	"Confirmation" \
  	$text \
  	questhead \
  	$default \
! 	" OK " \
! 	" Cancel "
  	]
  }
  
--- 83,94 ----
  proc cb_okcancel {text {default 0}} {
      if [winfo exists .tcb_okcancel] return    
      return [cb_dialog [toplevel .tcb_okcancel] \
! 	"³ÎÇ§" \
  	$text \
  	questhead \
  	$default \
! 	"Î»²ò" \
! 	"¼è¾Ã"
  	]
  }
  
diff -Pcr tkdesk-1.2/tcldesk/cb_tools/help.tcl tkdesk-1.2-jp/tcldesk/cb_tools/help.tcl
*** tkdesk-1.2/tcldesk/cb_tools/help.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/cb_tools/help.tcl	Fri Sep 15 17:46:39 2000
***************
*** 120,126 ****
      frame $this.fb -bd 1 -relief raised
      pack $this.fb -fill x -side bottom
  
!     label $this.ls -text "Search (regexp):"
      pack $this.ls -in $this.fb -side left -padx $cb_help($this,public,pad)
  
      entry $this.es -bd 2 -relief sunken -width 10 -font $cb_help(font)
--- 120,126 ----
      frame $this.fb -bd 1 -relief raised
      pack $this.fb -fill x -side bottom
  
!     label $this.ls -text "¸¡º÷ (Àµµ¬É½¸½):"
      pack $this.ls -in $this.fb -side left -padx $cb_help($this,public,pad)
  
      entry $this.es -bd 2 -relief sunken -width 10 -font $cb_help(font)
***************
*** 135,155 ****
      
      set ipad [expr $tk_strictMotif ? 2 : 0]
      
!     button $this.bClose -text "  Close  " -command "_cb_help_delete $this" \
!     	-underline 2
      pack $this.bClose -in $this.fb -side right -ipady $ipad \
  	    -padx $cb_help($this,public,pad) -pady $cb_help($this,public,pad)
      if [info exists tkdesk(cmd,print)] {
! 	button $this.bPrint -text "  Print  " \
  		-command "dsk_print_string \[$this.ft.text get 1.0 end\]" \
! 		-underline 2
  	pack $this.bPrint -in $this.fb -side right -ipady $ipad \
  		-padx $cb_help($this,public,pad) \
  		-pady $cb_help($this,public,pad)
      }
!     button $this.bBack -text "  Back  " \
  	    -command "_cb_help__scroll $this back" \
! 	    -underline 2
      pack $this.bBack -in $this.fb -side right -ipady $ipad \
  	    -padx $cb_help($this,public,pad) -pady $cb_help($this,public,pad)
  
--- 135,155 ----
      
      set ipad [expr $tk_strictMotif ? 2 : 0]
      
!     button $this.bClose -text "C ÊÄ¤¸¤ë" -command "_cb_help_delete $this" \
!     	-underline 0
      pack $this.bClose -in $this.fb -side right -ipady $ipad \
  	    -padx $cb_help($this,public,pad) -pady $cb_help($this,public,pad)
      if [info exists tkdesk(cmd,print)] {
! 	button $this.bPrint -text "P °õºþ" \
  		-command "dsk_print_string \[$this.ft.text get 1.0 end\]" \
! 		-underline 0
  	pack $this.bPrint -in $this.fb -side right -ipady $ipad \
  		-padx $cb_help($this,public,pad) \
  		-pady $cb_help($this,public,pad)
      }
!     button $this.bBack -text "B Ìá¤ë" \
  	    -command "_cb_help__scroll $this back" \
! 	    -underline 0
      pack $this.bBack -in $this.fb -side right -ipady $ipad \
  	    -padx $cb_help($this,public,pad) -pady $cb_help($this,public,pad)
  
diff -Pcr tkdesk-1.2/tcldesk/cb_tools/modules.tcl tkdesk-1.2-jp/tcldesk/cb_tools/modules.tcl
*** tkdesk-1.2/tcldesk/cb_tools/modules.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/cb_tools/modules.tcl	Fri Sep 15 17:46:39 2000
***************
*** 61,74 ****
  
  	frame $t.fdOK -relief sunken -bd 1
  	pack $t.fdOK -in $t.f2 -side left -padx 2m -pady 2m
! 	button $t.bOK -text "   OK   " -command "destroy $t ;\
  		set $e_var \$cb_readStringASync(tmp) ;\
  		focus $cb_readStringASync(focus) "
  	pack $t.bOK -in $t.fdOK -padx 1m -pady 1m -ipady 0
  
  	frame $t.fdCancel -relief flat -bd 1
  	pack $t.fdCancel -in $t.f2 -side left -padx 2m -pady 2m
! 	button $t.bCancel -text " Cancel " -command "destroy $t ;\
  		focus $cb_readStringASync(focus) "
  	pack $t.bCancel -in $t.fdCancel -padx 1m -pady 1m -ipady 0
  
--- 61,74 ----
  
  	frame $t.fdOK -relief sunken -bd 1
  	pack $t.fdOK -in $t.f2 -side left -padx 2m -pady 2m
! 	button $t.bOK -text "  Î»²ò  " -command "destroy $t ;\
  		set $e_var \$cb_readStringASync(tmp) ;\
  		focus $cb_readStringASync(focus) "
  	pack $t.bOK -in $t.fdOK -padx 1m -pady 1m -ipady 0
  
  	frame $t.fdCancel -relief flat -bd 1
  	pack $t.fdCancel -in $t.f2 -side left -padx 2m -pady 2m
! 	button $t.bCancel -text "  ¼è¾Ã  " -command "destroy $t ;\
  		focus $cb_readStringASync(focus) "
  	pack $t.bCancel -in $t.fdCancel -padx 1m -pady 1m -ipady 0
  
***************
*** 126,138 ****
  
  	frame $t.fdOK -relief sunken -bd 1
  	pack $t.fdOK -in $t.f2 -side left -padx 2m -pady 2m
! 	button $t.bOK -text "   OK   " -command "destroy $t ;\
  		set $e_var \$e_tmp"
  	pack $t.bOK -in $t.fdOK -padx 1m -pady 1m
  
  	frame $t.fdCancel -relief flat -bd 1
  	pack $t.fdCancel -in $t.f2 -side left -padx 2m -pady 2m
! 	button $t.bCancel -text " Cancel " -command "destroy $t ;\
  		set $e_var \"\" "
  	pack $t.bCancel -in $t.fdCancel -padx 1m -pady 1m
  
--- 126,138 ----
  
  	frame $t.fdOK -relief sunken -bd 1
  	pack $t.fdOK -in $t.f2 -side left -padx 2m -pady 2m
! 	button $t.bOK -text "  Î»²ò  " -command "destroy $t ;\
  		set $e_var \$e_tmp"
  	pack $t.bOK -in $t.fdOK -padx 1m -pady 1m
  
  	frame $t.fdCancel -relief flat -bd 1
  	pack $t.fdCancel -in $t.f2 -side left -padx 2m -pady 2m
! 	button $t.bCancel -text "  ¼è¾Ã  " -command "destroy $t ;\
  		set $e_var \"\" "
  	pack $t.bCancel -in $t.fdCancel -padx 1m -pady 1m
  
***************
*** 236,242 ****
      frame $t.fFE
      pack $t.fFE -in $t.fUH -padx $pad -pady $pad -fill x
  
!     label $t.lFE -text "Filter:"
      pack $t.lFE -in $t.fFE -anchor w
  
      entry $t.eFE -relief sunken -bd 2 ;#-textvariable filter
--- 236,242 ----
      frame $t.fFE
      pack $t.fFE -in $t.fUH -padx $pad -pady $pad -fill x
  
!     label $t.lFE -text "¥Õ¥£¥ë¥¿:"
      pack $t.lFE -in $t.fFE -anchor w
  
      entry $t.eFE -relief sunken -bd 2 ;#-textvariable filter
***************
*** 266,272 ****
      frame $t.fLBl
      pack $t.fLBl -in $t.fLB -side left -fill both -expand yes
  
!     label $t.lLBl -text "Directories:"
      pack $t.lLBl -in $t.fLBl -anchor w -padx 4
  
      cb_listbox $t.lbl -lborder 1 -vscroll 1 -hscroll 1 -pad 4 \
--- 266,272 ----
      frame $t.fLBl
      pack $t.fLBl -in $t.fLB -side left -fill both -expand yes
  
!     label $t.lLBl -text "¥Õ¥©¥ë¥À:"
      pack $t.lLBl -in $t.fLBl -anchor w -padx 4
  
      cb_listbox $t.lbl -lborder 1 -vscroll 1 -hscroll 1 -pad 4 \
***************
*** 286,292 ****
      frame $t.fLBr
      pack $t.fLBr -in $t.fLB -side left -fill both -expand yes
  
!     label $t.lLBr -text "Files:"
      pack $t.lLBr -in $t.fLBr -anchor w -padx 4
  
      cb_listbox $t.lbr -vscroll 1 -hscroll 1 -pad 4 \
--- 286,292 ----
      frame $t.fLBr
      pack $t.fLBr -in $t.fLB -side left -fill both -expand yes
  
!     label $t.lLBr -text "¥Õ¥¡¥¤¥ë:"
      pack $t.lLBr -in $t.fLBr -anchor w -padx 4
  
      cb_listbox $t.lbr -vscroll 1 -hscroll 1 -pad 4 \
***************
*** 310,316 ****
      frame $t.fSE
      pack $t.fSE -in $t.fUH -padx $pad -pady $pad -fill x
  
!     label $t.lSE -text "Selected file:"
      pack $t.lSE -in $t.fSE -anchor w
  
      entry $t.eSE -relief sunken -bd 2
--- 310,316 ----
      frame $t.fSE
      pack $t.fSE -in $t.fUH -padx $pad -pady $pad -fill x
  
!     label $t.lSE -text "¥Õ¥¡¥¤¥ë¤òÁªÂò:"
      pack $t.lSE -in $t.fSE -anchor w
  
      entry $t.eSE -relief sunken -bd 2
***************
*** 338,356 ****
      # --- buttons
  
      set bPad 4
!     cb_button $t.bOK -text "OK" -width 8 -default 1 -pad 4 \
  	    -command "cb_fileSelOK $t"
      pack $t.bOK -in $t.fLH -side left -padx $bPad -pady $bPad -expand 1
  
!     cb_button $t.bFilter -text "Filter" -width 8 -pad 4 \
  	-command "cb_fileSelUpdate \[cb_tilde \[$t.eFE get\]\]"
      pack $t.bFilter -in $t.fLH -side left -padx $bPad -pady $bPad -expand 1
  
!     cb_button $t.bHome -text "Home" -width 8 -pad 4 \
  		-command "cb_fileSelUpdate $env(HOME) 1"
      pack $t.bHome -in $t.fLH -side left -padx $bPad -pady $bPad -expand 1
  
!     cb_button $t.bCancel -text "Cancel" -width 8 -pad 4 \
  		-command "set cb_fileSelector(tmpsel) \"\" ; destroy $t"
      pack $t.bCancel -in $t.fLH -side left -padx $bPad -pady $bPad -expand 1
  
--- 338,356 ----
      # --- buttons
  
      set bPad 4
!     cb_button $t.bOK -text "Î»²ò" -width 8 -default 1 -pad 4 \
  	    -command "cb_fileSelOK $t"
      pack $t.bOK -in $t.fLH -side left -padx $bPad -pady $bPad -expand 1
  
!     cb_button $t.bFilter -text "¥Õ¥£¥ë¥¿" -width 8 -pad 4 \
  	-command "cb_fileSelUpdate \[cb_tilde \[$t.eFE get\]\]"
      pack $t.bFilter -in $t.fLH -side left -padx $bPad -pady $bPad -expand 1
  
!     cb_button $t.bHome -text "¥Û¡¼¥à" -width 8 -pad 4 \
  		-command "cb_fileSelUpdate $env(HOME) 1"
      pack $t.bHome -in $t.fLH -side left -padx $bPad -pady $bPad -expand 1
  
!     cb_button $t.bCancel -text "¼è¾Ã" -width 8 -pad 4 \
  		-command "set cb_fileSelector(tmpsel) \"\" ; destroy $t"
      pack $t.bCancel -in $t.fLH -side left -padx $bPad -pady $bPad -expand 1
  
diff -Pcr tkdesk-1.2/tcldesk/config.tcl tkdesk-1.2-jp/tcldesk/config.tcl
*** tkdesk-1.2/tcldesk/config.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/config.tcl	Fri Sep 15 17:48:43 2000
***************
*** 267,272 ****
--- 267,322 ----
  # Side-FX:	Exits TkDesk if it was not found.
  #
  
+ # Font define
+ catch {
+   font create @k10 -copy -*-*-medium-r-*-*-10-*-*-*-*-*-jisx0208.1983-0
+   font create @k12 -copy -*-*-medium-r-*-*-12-*-*-*-*-*-jisx0208.1983-0
+   font create @k14 -copy -*-*-medium-r-*-*-14-*-*-*-*-*-jisx0208.1983-0
+   font create @k16 -copy -*-*-medium-r-*-*-16-*-*-*-*-*-jisx0208.1983-0
+   font create @k24 -copy -*-*-medium-r-*-*-24-*-*-*-*-*-jisx0208.1983-0
+   font create @bold10 -copy -*-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*
+   font create @bold12 -copy -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
+   font create @bold14 -copy -*-helvetica-bold-r-*-*-14-*-*-*-*-*-*-*
+   font create @bold16 -copy -*-helvetica-bold-r-*-*-16-*-*-*-*-*-*-*
+   font create @bold24 -copy -*-helvetica-bold-r-*-*-24-*-*-*-*-*-*-*
+   font create @a10 -copy -*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*
+   font create @a12 -copy -*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*
+   font create @a14 -copy -*-helvetica-medium-r-*-*-14-*-*-*-*-*-*-*
+   font create @a16 -copy -*-helvetica-medium-r-*-*-16-*-*-*-*-*-*-*
+   font create @a24 -copy -*-helvetica-medium-r-*-*-24-*-*-*-*-*-*-*
+   font create @times10 -copy -*-times-medium-r-*-*-10-*-*-*-*-*-*-*
+   font create @times12 -copy -*-times-medium-r-*-*-12-*-*-*-*-*-*-*
+   font create @times14 -copy -*-times-medium-r-*-*-14-*-*-*-*-*-*-*
+   font create @times16 -copy -*-times-medium-r-*-*-16-*-*-*-*-*-*-*
+   font create @times24 -copy -*-times-medium-r-*-*-24-*-*-*-*-*-*-*
+   font create @tt10 -copy -*-lucidatypewriter-medium-r-*-*-10-*-*-*-m-*-*-*
+   font create @tt12 -copy a12
+   font create @tt14 -copy a14
+   font create @tt16 -copy a16
+   font create @tt24 -copy a24
+ 
+   font create Fixed_bold10 -compound {@bold10 @k10}
+   font create Fixed_bold12 -compound {@bold12 @k12}
+   font create Fixed_bold14 -compound {@bold14 @k14}
+   font create Fixed_bold16 -compound {@bold16 @k16}
+   font create Fixed_bold24 -compound {@bold24 @k24}
+   font create Fixed10 -compound {@a10 @k10}
+   font create Fixed12 -compound {@a12 @k12}
+   font create Fixed14 -compound {@a14 @k14}
+   font create Fixed16 -compound {@a16 @k16}
+   font create Fixed24 -compound {@a24 @k24}
+   font create Times10 -compound {@times10 @k10}
+   font create Times12 -compound {@times12 @k12}
+   font create Times14 -compound {@times14 @k14}
+   font create Times16 -compound {@times16 @k16}
+   font create Times24 -compound {@times24 @k24}
+   font create Type10 -compound {@tt10 @k10}
+   font create Type12 -compound {@tt12 @k12}
+   font create Type14 -compound {@tt14 @k14}
+   font create Type16 -compound {@tt16 @k16}
+   font create Type24 -compound {@tt24 @k24}
+ }
+ 
  # Defaults:
  set tkdesk(file_lb,minwidth) 10  ;# this now gets set in read_System below
  set tkdesk(file_lb,minheight) 3
***************
*** 281,287 ****
  set tkdesk(color,text_bg) white
  set tkdesk(color,text_fg) black
  set tkdesk(color,icon_background) \#185f6a
! set tkdesk(font,directories) -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,executables) -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,symlinks) -*-helvetica-medium-o-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,symdirectories) -*-helvetica-bold-o-*-*-12-*-*-*-*-*-*-*
--- 331,337 ----
  set tkdesk(color,text_bg) white
  set tkdesk(color,text_fg) black
  set tkdesk(color,icon_background) \#185f6a
! set tkdesk(font,directories) -*-times-bold-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,executables) -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,symlinks) -*-helvetica-medium-o-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,symdirectories) -*-helvetica-bold-o-*-*-12-*-*-*-*-*-*-*
***************
*** 290,298 ****
  set tkdesk(font,status) -*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,balloon)      -*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,dialogs)      -*-times-medium-r-*-*-18-*-*-*-*-*-*-*
! set tkdesk(font,labels) -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,listboxes)    $tkdesk(font,labels)
! set tkdesk(font,buttons) -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,menubuttons)  $tkdesk(font,labels)
  set tkdesk(font,menus)        $tkdesk(font,menubuttons)
  set tkdesk(font,entries)      -*-lucidatypewriter-medium-r-*-*-12-*-*-*-*-*-*-*
--- 340,348 ----
  set tkdesk(font,status) -*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,balloon)      -*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,dialogs)      -*-times-medium-r-*-*-18-*-*-*-*-*-*-*
! set tkdesk(font,labels)       -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,listboxes)    $tkdesk(font,labels)
! set tkdesk(font,buttons)      -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,menubuttons)  $tkdesk(font,labels)
  set tkdesk(font,menus)        $tkdesk(font,menubuttons)
  set tkdesk(font,entries)      -*-lucidatypewriter-medium-r-*-*-12-*-*-*-*-*-*-*
***************
*** 312,318 ****
  set tkdesk(cmd,print) "lpr"
  set tkdesk(cmd,netscape) "netscape"
  set tkdesk(cmd,mail) "mail -s %s %a"
! set tkdesk(cmd,xterm) "xterm"
  set tkdesk(cmd,df) "df"
  set tkdesk(cmd,ps) "ps"
  set tkdesk(cmd,su,exec) {xterm -sb -T "%c" -n "%c" -e su root -c "%c"}
--- 362,368 ----
  set tkdesk(cmd,print) "lpr"
  set tkdesk(cmd,netscape) "netscape"
  set tkdesk(cmd,mail) "mail -s %s %a"
! set tkdesk(cmd,xterm) "kterm -km euc -sb"
  set tkdesk(cmd,df) "df"
  set tkdesk(cmd,ps) "ps"
  set tkdesk(cmd,su,exec) {xterm -sb -T "%c" -n "%c" -e su root -c "%c"}
***************
*** 466,472 ****
--- 516,524 ----
      option add *Checkbutton.font [cb_font $tkdesk(font,labels)]
      option add *Radiobutton.font [cb_font $tkdesk(font,labels)]
      option add *Entry.font [cb_font $tkdesk(font,entries)]
+     option add *Entry.kanjiFont [cb_font $tkdesk(kanjiFont,entries)]
      option add *Text.font [cb_font $tkdesk(font,entries)]
+     option add *Text.kanjiFont [cb_font $tkdesk(kanjiFont,text)]
      option add *Button.font [cb_font $tkdesk(font,buttons)]
      option add *Menubutton.font [cb_font $tkdesk(font,menubuttons)]
      option add *Menu.font [cb_font $tkdesk(font,menus)]
***************
*** 748,769 ****
  #
  
  set tkdesk(fileops,popup) {
!     {{Link (symbolic)} {
! 	dsk_exec $tkdesk(cmd,symln) %S %T
      }}
!     {{Link (hard)} {
  	dsk_exec $tkdesk(cmd,ln) %S %T
      }}
!     {{Untar} {
  	dsk_bgexec {gzip -cd %S | tar xf - -C %T} {Untaring %f...}
      }}
!     {{Diff} {
! 	dsk_view diff -bc %S %T
      }}
!     {{Patch} {
! 	dsk_path_exec %T xterm -sb -T "patch <%S" -n patch -e pauseme sh -c "patch <%S"
      }}
!     {{Concatenate} {
  	dsk_exec cat %S >%T
      }}
  }
--- 800,821 ----
  #
  
  set tkdesk(fileops,popup) {
!     {{¥·¥ó¥Ü¥ê¥Ã¥¯¥ê¥ó¥¯} {
! 	dsk_exec $tkdesk(cmd,symln) %S [file tail %T]
      }}
!     {{¥Ï¡¼¥É¥ê¥ó¥¯} {
  	dsk_exec $tkdesk(cmd,ln) %S %T
      }}
!     {{tar²òÅà} {
  	dsk_bgexec {gzip -cd %S | tar xf - -C %T} {Untaring %f...}
      }}
!     {{º¹Ê¬} {
! 	dsk_view diff -Pcr [file tail %S] [file tail %T]
      }}
!     {{¥Ñ¥Ã¥Á} {
! 	dsk_path_exec %T $tkdesk(cmd,xterm) -sb -T "patch -p1 <%S" -n patch -e pauseme sh -c "patch -p1 <%S"
      }}
!     {{ÄÉ²Ã} {
  	dsk_exec cat %S >%T
      }}
  }
diff -Pcr tkdesk-1.2/tcldesk/configs/AppBar tkdesk-1.2-jp/tcldesk/configs/AppBar
*** tkdesk-1.2/tcldesk/configs/AppBar	Mon Nov 15 07:07:53 1999
--- tkdesk-1.2-jp/tcldesk/configs/AppBar	Fri Sep 15 17:47:38 2000
***************
*** 239,532 ****
  ### TkDesk's date display at that place into the AB.
  
  set tkdesk(appbar) {
!     {{next/comet.xpm} {
! 	{{TkDesk Version $tkdesk(version)}}
! 	{-}
! 	{{Execute/Open...} {dsk_ask_exec}}
! 	{{Open Directory...} {dsk_ask_dir}}
! 	{{Open Browser...} {dsk_ask_dir browser}}
! 	{{Find Files...} {dsk_find_files}}
!         {bookmarks}
! 	{{Visited...}
!  	  {history:files}
! 	  {history:dirs}
! 	  {history:execs}
! 	  {{dd} {dsk_openall %A}}
! 	}
! 	-
! 	{{Application Bar}
! 	  {{Be'ish AppBar} {dsk_reread_config AppBar_Be}}
! 	  {{Games AppBar} {dsk_reread_config AppBar_Games}}
! 	  -
! 	  {{Edit this AppBar} {dsk_edit_configs AppBar}}
! 	  {{Reload this AppBar} {dsk_reread_config AppBar}}
! 	  {-}
! 	  {{Vertical} {dsk_appbar layout vertical}}
! 	  {{Horizontal } {dsk_appbar layout horizontal}}
! 	  {{Raise} {dsk_appbar raise}}
! 	  {{Lower} {dsk_appbar lower}}
! 	  {{Hide} {dsk_appbar close}}
! 	  {-}
! 	  {{Move Top Left} {dsk_appbar move topleft}}
! 	  {{Move Bottom Left} {dsk_appbar move bottomleft}}
! 	  {{Move Top Right} {dsk_appbar move topright}}
! 	  {{Move Bottom Right} {dsk_appbar move bottomright}}
! 	}
! 	{config}
! 	{{Quit TkDesk...} {dsk_exit 1}}
!     }}
!     
!     {{next/books.xpm} {
!     	{{Documentation}}
!     	-
!     	{{TkDesk User's Guide } {dsk_help guide}}
!     	{{FAQ } {dsk_help faq}}
!     	{{Changes} {dsk_help changes}}
! 	{{TkDesk Homepage } {dsk_netscape url http://people.mainz.netsurf.de/~bolik/tkdesk/ window}}
!     	-
!     	{{Manual Page ...} {
!     		dsk_read_string {Show manual page for: (e.g. col(1))} {
! 		        # view_manual_page is defined below
! 			view_manual_page $dsk_read_string
!     		}
!     	}}
!     	{{XMan } {dsk_exec xman}}
!     	{{TkMan } {dsk_raise_or_exec tkman tkman .man}}
!     	{{TkMan Remote ...} {
!     		dsk_read_string {Show manual page for (requires a running TkMan):} {
!     		    catch {send -async tkman \
! 		    "wm deiconify .man; manShowMan $dsk_read_string"}
!     		}
!     	}}
! 	{{TkInfo } {dsk_raise_or_exec tkinfo tkinfo .tki1}}
!     	{{dd} {dsk_view man %f | col -b}}
!     }}
!     
!     {{special:date} {
!     	{{Diary and Calendar}}
!     	-
!     	{{This Month} {dsk_view cal}}
!     	{{This Year} {dsk_view cal -y}}
!     	{{Year...} {dsk_read_string "Show calendar for year:" {
!     		dsk_view cal -y $dsk_read_string
!     	}}}
!     	-
!     	{{Plan} {dsk_exec plan}}
!     	{{xcalendar} {dsk_exec xcalendar}}
!     }}
!     
!     {{special:load} {
!     	{{System Statistics}}
!     	-
! 	{{Processes } {dsk_periodic "ps" 60}}
! 	{{File Systems } {dsk_periodic "df" 60}}
!     	{{Top} {eval dsk_exec $tkdesk(cmd,xterm) -geometry 80x40 -e top}}
!     	{{NetStat} {dsk_view netstat}}
!     }}
!     
!     {{special:mail} {
!     	{{Electronic Mail}}
!     	-
! 	{{Communicator: Inbox} {dsk_netscape rcmd mail}}
! 	{{Communicator: Send Mail} {dsk_netscape rcmd send}}
! 	{{Netscape Mail} {dsk_netscape url mailbox:}}
!     	{{Elm} {eval dsk_exec $tkdesk(cmd,xterm) -geometry 80x40 -e elm}}
!     	-
! 	{{Outgoing Mail} {dsk_view mailq}}
! 	{{Directory } {dsk_open_dir ~/Mail}}
!     }}
!     
!     {{next/Computer.xpm} {
!     	{{System Management}}
!     	-
! 	{{XTerm } {dsk_exec xterm -T "XTerm" -sb -ls}}
! 	{{XTerm (root)} {dsk_exec xterm -sb -e su}}
! 	{{Rxvt } {dsk_exec rxvt -ls}}
! 	{{Locate...} {
!             dsk_read_string {Enter filename to locate:} {
!             dsk_view locate $dsk_read_string}}
!         }	
! 	-
!     	{{CD-ROM}
!     	    {{Open } {dsk_open_dir /cdrom}}
!     	    {{Mount } {
!     	    	set err [catch {exec mount /cdrom} errmsg]
!     	    	if {$err} {
!     	    	    dsk_errbell
!     	    	    cb_error "An error occured: $errmsg."
!     	    	}
!     	    }}
!     	    {{Unmount } {
!     	    	set err [catch {exec umount /cdrom} errmsg]
!     	    	if {$err} {
!     	    	    dsk_errbell
!     	    	    cb_error "An error occured: $errmsg."
!     	    	}
!     	    }}
!     	}
!     	{{Floppy}
!     	    {{Open } {dsk_open_dir /floppy}}
!     	    {{Mount } {
!     	    	set err [catch {exec mount /floppy} errmsg]
!     	    	if {$err} {
!     	    	    dsk_errbell
!     	    	    cb_error "An error occured: $errmsg."
!     	    	}
!     	    }}
!     	    {{Unmount } {
!     	    	set err [catch {exec umount /floppy} errmsg]
!     	    	if {$err} {
!     	    	    dsk_errbell
!     	    	    cb_error "An error occured: $errmsg."
!     	    	}
!     	    }}
!     	}
!     	-
! 	{{Configuration}
!     	    {{.fvwmrc} {dsk_edit ~/.fvwmrc}}
!     	    {{.xinitrc} {dsk_edit ~/.xinitrc}}
!     	    {{.profile} {dsk_edit ~/.profile}}
!     	    {{.Xresources}
!     	    	{{Edit} {dsk_edit ~/.Xresources}}
!     	    	{{Reread } {dsk_exec xrdb ~/.Xresources}}
!     	    }
! 	}
! 	{{Superuser}
! 	    {{Edit password file} {dsk_exec_as_root vi /etc/passwd}}
! 	    {{Edit /etc/hosts} {dsk_exec_as_root vi /etc/hosts}}
! 	}
! 	-
! 	{{Screen Saver} {dsk_exec xlock -nolock -mode flame}}
! 	{{Blank Screen} {dsk_exec xlock -nolock -mode blank}}
!     }}
!     
!     {{next/Write.xpm} {
!     	{{Text Editing }}
!     	-
! 	{{Edit File... } {dsk_edit}}
! 	{{New File} {dsk_edit "New File"}}
! 	{buffers}
! 	-
! 	{{XEmacs} {dsk_exec xemacs}}
! 	{{Clipboard} {dsk_exec xclipboard}}
! 	{{dd} {dsk_edit %A}}
!     }}
! 
!     {{xemacs.xpm} {
!         {{XEmacs }}
!         {{About this button...} {
!             cb_info "To take advantage of this button you have to start the XEmacs server from inside XEmacs via M-x gnuserv-start. Files dropped on this button will be loaded into a running XEmacs."
!         }}
!         -
!         {{Edit File... } {xemacs_load .}}
!         {{New File} {xemacs_load *scratch*}}
!         -
!         {{X-Selection}
!             {{Open file } {xemacs_load %x }}
!             {{Open file New Frame } {xemacs_load %x frame }}
!         }
!         {{FTP}
!             {{Sunsite} {xemacs_load {//sunsite.unc.edu:/pub/Linux/.}}}
!             {{Neosoft} {xemacs_load {//ftp.neosoft.com:/pub/tcl/.}}}
!             {{XEmacs FTP-Site} {xemacs_load {//ftp.xemacs.org:/pub/xemacs/.}}}
!         }
!         {{dd} {foreach f [list %A] {xemacs_load $f}}}
!     }}
! 
!     {{next/paintbrush.xpm} {
!     	{{Graphics etc.}}
!     	-
!     	{{XV} {dsk_exec xv}}
!     	{{The Gimp} {dsk_exec gimp}}
!     	{{XPaint} {dsk_exec xpaint}}
!     	{{XFig} {dsk_exec xfig}}
!     	-
!     	{{XSpread} {dsk_exec xspread}}
!     	{{dd} {dsk_exec xv %A}}
!     }}
!     
!     {{next/netscape.xpm} {
!     	{{Internet}}
!     	-
!     	{{Netscape} {dsk_exec netscape}}
!     	{{Open URL...} {
!     		dsk_read_string {Open URL using Netscape:} {
! 		        # view_manual_page is defined in file Local
! 			dsk_netscape url $dsk_read_string window
!     		}
!     	}}
!     	{{X-Selection}
! 	    {{Go to URL } {dsk_netscape url %x raise}}
! 	    {{New window } {dsk_netscape url %x window}}
! 	    {{Desk Item... } {
! 	        dsk_read_string {Label of URL Desk Item:} {
! 	            global tkdesk
! 	            catch {exec mkdir $tkdesk(configdir)/urls}
! 	            set err [catch {set fd [open $tkdesk(configdir)/urls/$dsk_read_string.url w]} errmsg]
! 	            if !$err {
! 	                puts -nonewline $fd %x
! 	                close $fd
! 	                dsk_DeskItem .di[dsk_DeskItem :: id] \
! 	            	    -file $tkdesk(configdir)/urls/$dsk_read_string.url
! 	            } else {
! 	                dsk_errbell
! 	                cb_error $errmsg
! 	            }
! 	        } {dontpaste}
! 	    }}
! 	}
! 	{{Locations}
! 	    {{TkDesk Homepage } {dsk_netscape url http://people.mainz.netsurf.de/~bolik/tkdesk/ window}}
! 	    {{AltaVista } {dsk_netscape url http://www.altavista.digital.com window}}
! 	    {{Tcl/Tk at Sun } {dsk_netscape url http://www.sunlabs.com/research/tcl window}}
! 	}
!     	{{Communicator} 
!     	    {{Message Center } {dsk_netscape rcmd news}}
!     	    {{Messenger } {dsk_netscape rcmd mail}}
!     	    {{Composer } {dsk_netscape rcmd edit}}
!     	}
! 	-
! 	{&~/bookmarks}
! 	{{dd} {foreach f "%A" {dsk_netscape file \$f window}}}
!     }}
!     
!     {{special:dialup} {
!     	{{Dial-up Networking}}
!     	-
!     	{{Connect/Disconnect} {dsk_dialup}}
!     	{{Information (ifconfig)} {dsk_view ifconfig}}
!     }}
!     
!     {{next/PrinterHP.xpm} {
!     	{{Printer}}
!     	-
!     	{{Print Selected } {dsk_print}}
!     	{{Print X-Selection } {
!     	    eval exec echo [list \{%x\}] | $tkdesk(cmd,print)
!     	}}
!     	{{Watch Queue } 
!     	    {{Default } {dsk_periodic lpq 60}}
!     	    {{ascii } {dsk_periodic {lpq -Pascii} 60}}
!     	    {{lp1} {dsk_periodic {lpq -Plp1} 60}}
!     	}
!     	{{dd} {dsk_print %A}}
!     }}
!     	
!     {{special:trash} {
!     	{{Recycling}}
!     	-
!     	{{Delete Files } {dsk_delete}}
!     	{{Open Trash Can} {dsk_open_dir $tkdesk(trashdir)}}
!     	{{Empty Trash Can} {dsk_empty_trash}}
!     	{{dd} {dsk_delete {%A}}}
!     }}
  }
- 
- # ---------------------------------------------------------------------------
- # view_manual_page names:
- # Example of an extension proc.  This one's used by the default application
- # bar to look up manual pages. 
- # Example for $names: "col socket(2) malloc(3)"
  
  proc view_manual_page {names} {
      foreach name $names {
--- 239,337 ----
  ### TkDesk's date display at that place into the AB.
  
  set tkdesk(appbar) {
! 	{{next/comet.xpm} {
! 		{{TkDeskÆüËÜ¸ìÈÇ  $tkdesk(version)}}
! 		-
! 		{¼Â¹Ô/³«¤¯... dsk_ask_exec}
! 		{¥Õ¥©¥ë¥À¤ò³«¤¯... dsk_ask_dir}
! 		{¥¦¥£¥ó¥É¥¦¤ò³«¤¯... {dsk_ask_dir browser}}
! 		{¥Ý¥Ã¥×¥¢¥Ã¥×ÀßÄê... dsk_config_main}
! 		{¥·¥ç¡¼¥È¥«¥Ã¥ÈÀßÄê... dsk_appbar_main}
! 		{°õºþÀßÄê... {dsk_exec easypr --setup}}
! 		{¸¡º÷... dsk_find_files}
! 		{bookmarks}
! 		{¥Õ¥©¥ë¥À°ÜÆ°... history:files history:dirs history:execs}
! 		-
! 		{¥·¥ç¡¼¥È¥«¥Ã¥È {½Ä¤ËÇÛÃÖ {dsk_appbar layout vertical}} {²£¤ËÇÛÃÖ {dsk_appbar layout horizontal}} {Á°ÌÌ {dsk_appbar raise}} {ÇØÌÌ {dsk_appbar lower}} {±£¤¹ {dsk_appbar close}} - {º¸¾å¤Ë°ÜÆ° {dsk_appbar move topleft}} {º¸²¼¤Ë°ÜÆ° {dsk_appbar move bottomleft}} {±¦¾å¤Ë°ÜÆ° {dsk_appbar move topright}} {±¦²¼¤Ë°ÜÆ° {dsk_appbar move bottomright}}}
! 		{config}
! 		{½ªÎ» {dsk_exit 1}}
! 		{¥·¥ã¥Ã¥È¥À¥¦¥ó {exec shutdown -h now}}
! 	}}
! 	{{special:date} {
! 		{¥«¥ì¥ó¥À¤È¼êÄ¢}
! 		-
! 		{º£·î {dsk_view cal}}
! 		{º£Ç¯ {dsk_view cal -y}}
! 		{Ç¯... {dsk_read_string {Show calendar for year:} {dsk_view cal -y $dsk_read_string    	}}}
! 		-
! 		{¥«¥ì¥ó¥À {dsk_exec xcalendar}}
! 	}}
! 	{{special:load} {
! 		{¥·¥¹¥Æ¥à¾ðÊó}
! 		-
! 		{¥×¥í¥»¥¹ {dsk_periodic "ps" 60}}
! 		{¥Õ¥¡¥¤¥ë¥·¥¹¥Æ¥à {dsk_periodic "df" 60}}
! 		{¥È¥Ã¥× {eval dsk_exec $tkdesk(cmd,xterm) -geometry 80x40 -e top}}
! 		{¥Í¥Ã¥È¥¹¥Æ¡¼¥¿¥¹ {dsk_view netstat}}
! 	}}
! 	{{special:mail} {
! 		{ÅÅ»Ò¥á¡¼¥ë}
! 		-
! 		{¥á¡¼¥ë¼õ¿® dsk_receive_mail}
! 		{¥á¡¼¥ëÁ÷¿® {dsk_mailer {} {} {}}}
! 		{¥á¡¼¥ë´ÊÃ±ÀßÄê dsk_easyconf_mail}
! 		{¥á¡¼¥ë¾ÜºÙÀßÄê dsk_config_mail}
! 		-
! 		{¥Í¥Ã¥È¥¹¥±¡¼¥×¼õ¿® {dsk_netscape rcmd mail}}
! 		{¥Í¥Ã¥È¥¹¥±¡¼¥×Á÷¿® {dsk_netscape rcmd send}}
! 		{¥Í¥Ã¥È¥¹¥±¡¼¥× {dsk_netscape url mailbox:}}
! 		-
! 		{¥á¡¼¥ë¥Õ¥©¥ë¥À {dsk_open_dir ~/Mail/inbox}}
! 	}}
! 	{{next/Computer.xpm} {
! 		{¥·¥¹¥Æ¥à}
! 		-
! 		{Ã¼Ëö {dsk_exec $tkdesk(cmd,xterm)}}
! 		{{Rxvt } {dsk_exec rxvt -ls}}
! 		-
! 		{CD-ROM {³«¤¯ {dsk_open_dir /cdrom}} {¼è¤ê½Ð¤· {dsk_exec eject /dev/cdrom }} {¥Þ¥¦¥ó¥È {dsk_exec mount /dev/cdrom /cdrom}} {¥Þ¥¦¥ó¥È²ò½ü {dsk_exec umount /cdrom}}}
! 		{¥×¥ê¥ó¥¿ {PM760CÀßÄê {dsk_exec pips760 -la JP}} {PM770CÀßÄê {dsk_exec pips770 -la JP}} {PM800CÀßÄê {dsk_exec pips800 -la JP}} {PM820C/3300C {dsk_exec pips820_3300 -la JP}}}
! 		-
! 		{Configuration {{.xinitrc} {dsk_edit ~/.xinitrc}} {{.profile} {dsk_edit ~/.profile}} {.Xresources {dsk_edit ~/.Xresources } {{Reread } {dsk_exec xrdb ~/.Xresources}}}}
! 	}}
! 	{{next/paintbrush.xpm} {
! 		{¥°¥é¥Õ¥£¥Ã¥¯}
! 		-
! 		{¥É¥í¡¼(Tgif) {dsk_exec tgif}}
! 		{²èÁüÉ½¼¨ {dsk_exec xv}}
! 		{¥®¥ó¥× {dsk_exec gimp}}
! 		{¥Ú¥¤¥ó¥È {dsk_exec xpaint}}
! 	}}
! 	{{next/netscape.xpm} {
! 		{¥¤¥ó¥¿¡¼¥Í¥Ã¥È}
! 		-
! 		{¥Í¥Ã¥È¥¹¥±¡¼¥× {dsk_exec netscape}}
! 		{URL¤ò³«¤¯ {dsk_read_string {Open URL using Netscape:} {dsk_netscape url $dsk_read_string window    		}}}
! 		{X¥»¥ì¥¯¥·¥ç¥ó {ÁªÂò¤µ¤ì¤¿URL {dsk_netscape url %x raise}} {¿·¤·¤¤¥¦¥£¥ó¥É¥¦ {dsk_netscape url %x window}}}
! 		{¾ì½ê {TkDeskÆüËÜ¸ìÈÇ¥µ¥¤¥È {dsk_netscape url http://www2.famille.ne.jp/~mituiwa/ window}} {Linux¶¨²ñ {dsk_netscape url http://www.linux.or.jp/ window}} {{FTP¥µ¥¤¥È(Sun Site)} {dsk_netscape url ftp://sunsite.sut.ac.jp/pub/ window}}}
! 		{¥³¥ß¥å¥Ë¥å¥±¡¼¥¿ {¥Ë¥å¡¼¥¹ {dsk_netscape rcmd news}} {¥á¡¼¥ë {dsk_netscape rcmd mail}} {¥Û¡¼¥à¥Ú¡¼¥¸ºîÀ® {dsk_netscape rcmd edit %s}}}
! 		-
! 		{&~/bookmarks}
! 	}}
! 	{{special:dialup} {
! 		{¥À¥¤¥¢¥ë¥¢¥Ã¥×ÀÜÂ³}
! 		-
! 		{ÀÜÂ³/ÀÚÃÇ {dsk_exec tkppxp}}
! 		{ÀÜÂ³(pppd) {dsk_exec ppp-on}}
! 		{ÀÚÃÇ(pppd) {dsk_exec ppp-off}}
! 		{¾ðÊó {dsk_view route}}
! 	}}
! 	{{next/win_comp.xpm} {
! 		{¥Æ¥ì¥Ó}
! 		-
! 		{¥Æ¥ì¥Ó {dsk_exec xawtv }}
! 	}}
  }
  
  proc view_manual_page {names} {
      foreach name $names {
diff -Pcr tkdesk-1.2/tcldesk/configs/ButtonBar tkdesk-1.2-jp/tcldesk/configs/ButtonBar
*** tkdesk-1.2/tcldesk/configs/ButtonBar	Mon Nov 15 07:07:53 1999
--- tkdesk-1.2-jp/tcldesk/configs/ButtonBar	Fri Sep 15 17:47:38 2000
***************
*** 68,128 ****
  set tkdesk(button_bar) {
      {{info.xpm} {
  	dsk_fileinfo
! 	{Display information about all selected files.}
      }}
      {{file_doc.xpm} {
  	{dsk_create file}
! 	{Create a new file.}
      }}
      {{folder.xpm} {
  	{dsk_create directory}
! 	{Create a new directory.}
      }}
      {{copy.xpm} {
  	dsk_copy
! 	{Copy, move or link files.}
      }}
      {{trash.xpm} {
  	dsk_delete
! 	{Delete files.}
      }}
      {-}
      {{magnify2.xpm} {
      	dsk_find_files
!     	{Find files.}
      }}
      {{lightning.xpm} {
  	{dsk_ask_exec}
! 	{Ask for a command to execute.}
      }}
      {{edit.xpm} {
  	{dsk_edit %B}
! 	{Edit all selected files or open a new editor.}
      }}
      {{printer16.xpm} {
  	{dsk_print %A}
! 	{Print all selected files.}
      }}
      {{xlogo16.xpm} {
  	{dsk_select X}
! 	{Copy names of selected files to\nX clipboard.}
      }}
      {-}
      {{home.xpm} {
  	{dsk_cd $env(HOME)}
! 	{Change to home directory.}
      }}
      {{up.xpm} {
      	{dsk_cd ..}
!     	{"Up": Change to parent directory.}
      }}
      {{arrleft.xpm} {
!     	{dsk_cd [list [history back]]}
!     	{Go back in the directory history.}
      }}
      {{arrright.xpm} {
      	{dsk_cd [list [dir_history forward]]}
!     	{Go forward in the directory history.}
      }}
  }
  
--- 68,140 ----
  set tkdesk(button_bar) {
      {{info.xpm} {
  	dsk_fileinfo
! 	{ÁªÂò¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¾ðÊó¤òÉ½¼¨}
      }}
      {{file_doc.xpm} {
  	{dsk_create file}
! 	{¿·µ¬¥Õ¥¡¥¤¥ë¤ÎºîÀ®}
      }}
      {{folder.xpm} {
  	{dsk_create directory}
! 	{¿·µ¬¥Õ¥©¥ë¥À¤ÎºîÀ®}
      }}
      {{copy.xpm} {
  	dsk_copy
! 	{¥³¥Ô¡¼¡¦°ÜÆ°¡¦¥ê¥ó¥¯}
      }}
      {{trash.xpm} {
  	dsk_delete
! 	{¥Õ¥¡¥¤¥ë¤Îºï½ü}
      }}
      {-}
      {{magnify2.xpm} {
      	dsk_find_files
!     	{¥Õ¥¡¥¤¥ë¤Î¸¡º÷}
      }}
      {{lightning.xpm} {
  	{dsk_ask_exec}
! 	{¼Â¹Ô}
      }}
      {{edit.xpm} {
  	{dsk_edit %B}
! 	{ÁªÂò¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤ÎÊÔ½¸¡¢¤Þ¤¿¤Ï¡¢¿·µ¬¥Õ¥¡¥¤¥ë¤ÎÊÔ½¸}
      }}
      {{printer16.xpm} {
  	{dsk_print %A}
! 	{ÁªÂò¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤òÁ´¤Æ°õºþ}
!     }}
!     {{mail16.xpm} {
! 	{
! 	    global tkdesk
! 	    set tkdesk(TkMailer) "mail"
! 	    dsk_mailer {} {} {}
! 	}
! 	{¥á¡¼¥ë¤ÎºîÀ®}
!     }}
!     {{mailbox16.xpm} {
! 	{dsk_receive_mail}
! 	{¥á¡¼¥ë¤Î¼õ¿®}
      }}
      {{xlogo16.xpm} {
  	{dsk_select X}
! 	{ÁªÂò¤µ¤ì¤¿¥Õ¥¡¥¤¥ëÌ¾¤ò¥¯¥ê¥Ã¥×¥Ü¡¼¥É¤Ë¥³¥Ô¡¼}
      }}
      {-}
      {{home.xpm} {
  	{dsk_cd $env(HOME)}
! 	{¥Û¡¼¥à¤ËÌá¤ë}
      }}
      {{up.xpm} {
      	{dsk_cd ..}
!     	{£±¤Ä¾å¤Î¥Õ¥©¥ë¥À¤Ë°ÜÆ°}
      }}
      {{arrleft.xpm} {
!     	{dsk_cd [list [dir_history back]]}
!     	{¥Õ¥©¥ë¥ÀÁàºî¤òÁ°¤ËÌá¤¹}
      }}
      {{arrright.xpm} {
      	{dsk_cd [list [dir_history forward]]}
!     	{¥Õ¥©¥ë¥ÀÁàºî¤òÁ°¤Ë¿Ê¤á¤ë}
      }}
  }
  
***************
*** 133,163 ****
  set tkdesk(small_button_bar) {
      {{file_doc.xpm} {
  	{dsk_create file}
! 	{Create a new file.}
      }}
      {{folder.xpm} {
  	{dsk_create directory}
! 	{Create a new directory.}
      }}
      {{trash.xpm} {
  	dsk_delete
! 	{Delete files.}
      }}
      {{xlogo16.xpm} {
  	{dsk_select X}
! 	{Copy names of selected files to\nX clipboard.}
      }}
      {{up.xpm} {
      	{dsk_cd ..}
!     	{"Up": Change to parent directory.}
      }}
      {{arrleft.xpm} {
      	{dsk_cd [list [dir_history back]]}
!     	{Go back in the directory history.}
      }}
      {{arrright.xpm} {
      	{dsk_cd [list [dir_history forward]]}
!     	{Go forward in the directory history.}
      }}
  }
  
--- 145,175 ----
  set tkdesk(small_button_bar) {
      {{file_doc.xpm} {
  	{dsk_create file}
! 	{¿·µ¬¥Õ¥¡¥¤¥ë¤ÎºîÀ®}
      }}
      {{folder.xpm} {
  	{dsk_create directory}
! 	{¿·µ¬¥Õ¥©¥ë¥À¤ÎºîÀ®}
      }}
      {{trash.xpm} {
  	dsk_delete
! 	{¥Õ¥¡¥¤¥ë¤Îºï½ü}
      }}
      {{xlogo16.xpm} {
  	{dsk_select X}
! 	{ÁªÂò¤µ¤ì¤¿¥Õ¥¡¥¤¥ëÌ¾¤ò¥¯¥ê¥Ã¥×¥Ü¡¼¥É¤Ë¥³¥Ô¡¼}
      }}
      {{up.xpm} {
      	{dsk_cd ..}
!     	{£±¤Ä¾å¤Î¥Õ¥©¥ë¥À¤Ë°ÜÆ°}
      }}
      {{arrleft.xpm} {
      	{dsk_cd [list [dir_history back]]}
!     	{¥Õ¥©¥ë¥ÀÁàºî¤òÁ°¤ËÌá¤¹}
      }}
      {{arrright.xpm} {
      	{dsk_cd [list [dir_history forward]]}
!     	{¥Õ¥©¥ë¥ÀÁàºî¤òÁ°¤Ë¿Ê¤á¤ë}
      }}
  }
  
***************
*** 188,193 ****
  	}}
      }}
  }
- 
- 
- 
--- 200,202 ----
diff -Pcr tkdesk-1.2/tcldesk/configs/Commands tkdesk-1.2-jp/tcldesk/configs/Commands
*** tkdesk-1.2/tcldesk/configs/Commands	Mon Nov 15 07:07:53 1999
--- tkdesk-1.2-jp/tcldesk/configs/Commands	Fri Sep 15 17:47:38 2000
***************
*** 47,85 ****
  ### %D : Directory of last "ative" viewer.
  
  set tkdesk(commands) {
!     {{All my C files...} {dsk_find_files -path ~ -name *.c -type file}}
!     {{All my core files!} {dsk_find_files -path ~ -name core -type file -size +10 -doit}}
!     {{Top} {eval dsk_exec $tkdesk(cmd,xterm) -e top}}
!     {{Compression...}
!     	{{Gzip selected} {dsk_exec gzip %A}}
! 	{{Un-gzip selected} {dsk_exec gzip -d %A}}
  	-
!     	{{Bzip2 selected} {dsk_exec bzip2 %A}}
! 	{{Un-bzip2 selected} {dsk_exec bzip2 -d %A}}
  	-
!     	{{Compress selected} {dsk_exec compress %A}}
! 	{{Un-compress selected} {dsk_exec uncompress %A}}
      }
!     {{Dump File...}
!     	{{Hexadecimal} {dsk_view od -t x -A x -w %s}}
!     	{{Octal} {dsk_view od -t o -A x %s}}
!     	{{Characters} {dsk_view od -t c -A x %s}}
!     	{{Strings} {dsk_view od -s -A x %s}}
      }
!     {{RPM...}
          {.}
!     	{{Installed RPM's} {dsk_view rpm -q -a | sort}}
!     	{{Info about RPM...} {
      		dsk_read_string {Display info about RPM package:} {
      			dsk_view rpm -q -i $dsk_read_string
      		}
      	}}
!     	{{Show An RPM's Files...} {
!     		dsk_read_string {Display files of RPM package:} {
      			dsk_view rpm -q -l $dsk_read_string
      		}
      	}}
!     	{{Uninstall RPM...} {
      		dsk_read_string {Uninstall RPM package:} {
      			dsk_exec_as_root rpm -e $dsk_read_string
      		}
--- 47,85 ----
  ### %D : Directory of last "ative" viewer.
  
  set tkdesk(commands) {
!     {{Á´¤Æ¤ÎC¥Õ¥¡¥¤¥ë...} {dsk_find_files -path ~ -name *.c -type file}}
!     {{Á´¤Æ¤Îcore¥Õ¥¡¥¤¥ë¡ª} {dsk_find_files -path ~ -name core -type file -size +10 -doit}}
!     {{¥È¥Ã¥×} {dsk_exec $tkdesk(cmd,xterm) -e top}}
!     {{°µ½Ì...}
!     	{{ÁªÂò¤µ¤ì¤¿¤â¤Î¤òGzip°µ½Ì} {dsk_exec gzip %A}}
! 	{{ÁªÂò¤µ¤ì¤¿¤â¤Î¤òUn-gzip²òÅà} {dsk_exec gzip -d %A}}
  	-
!     	{{ÁªÂò¤µ¤ì¤¿¤â¤Î¤òBzip2°µ½Ì} {dsk_exec bzip2 %A}}
! 	{{ÁªÂò¤µ¤ì¤¿¤â¤Î¤òUn-bzip2²òÅà} {dsk_exec bzip2 -d %A}}
  	-
!     	{{ÁªÂò¤µ¤ì¤¿¤â¤Î¤òCompress°µ½Ì} {dsk_exec compress %A}}
! 	{{ÁªÂò¤µ¤ì¤¿¤â¤Î¤òUn-compress²òÅà} {dsk_exec uncompress %A}}
      }
!     {{¥Õ¥¡¥¤¥ë¤Î¥À¥ó¥×...}
!     	{{16¿Ê} {dsk_view od -t x -A x -w %s}}
!     	{{8¿Ê} {dsk_view od -t o -A x %s}}
!     	{{Ê¸»ú} {dsk_view od -t c -A x %s}}
!     	{{Ê¸»úÎó} {dsk_view od -s -A x %s}}
      }
!     {{¥ì¥Ã¥É¥Ï¥Ã¥È¡¦¥Ñ¥Ã¥±¡¼¥¸´ÉÍý...}
          {.}
!     	{{RPM¤Î¥¤¥ó¥¹¥È¡¼¥ë} {dsk_view rpm -q -a | sort}}
!     	{{RPM¤Î¾ðÊó...} {
      		dsk_read_string {Display info about RPM package:} {
      			dsk_view rpm -q -i $dsk_read_string
      		}
      	}}
!     	{{RPM¤Î¥Õ¥¡¥¤¥ë°ìÍ÷...} {
!     			dsk_read_string {Display files of RPM package:} {
      			dsk_view rpm -q -l $dsk_read_string
      		}
      	}}
!     	{{RPM¤Î¥¢¥ó¥¤¥ó¥¹¥È¡¼¥ë...} {
      		dsk_read_string {Uninstall RPM package:} {
      			dsk_exec_as_root rpm -e $dsk_read_string
      		}
diff -Pcr tkdesk-1.2/tcldesk/configs/FileTags tkdesk-1.2-jp/tcldesk/configs/FileTags
*** tkdesk-1.2/tcldesk/configs/FileTags	Mon Nov 15 07:07:53 1999
--- tkdesk-1.2-jp/tcldesk/configs/FileTags	Fri Sep 15 17:47:38 2000
***************
*** 48,53 ****
--- 48,61 ----
  set tkdesk(file_tags,executables) {
      {{!default} {red} {-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*}
  		{ficons16/exec.xpm} {ficons32/exec.xpm}}
+     {{netscape} {red} {-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*}
+ 		{ficons16/exec.xpm} {navigator.xpm}}
+     {{xawtv}    {red} {-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*}
+ 		{ficons16/exec.xpm} {next/monitor_eye.xpm}}
+     {{tgif}     {red} {-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*}
+ 		{ficons16/exec.xpm} {ficons32/drawing.xpm}}
+     {{kterm}    {red} {-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*}
+ 		{ficons16/exec.xpm} {terminal.xpm}}
      {{!symlink} {red} {-*-helvetica-bold-o-*-*-12-*-*-*-*-*-*-*}
  		{ficons16/symexec.xpm} {ficons32/exec.xpm}}
      {{tkdesk}	{red} {-*-helvetica-*-r-*-*-18-*-*-*-*-*-*-*}}
***************
*** 67,89 ****
      {{*.c}	{$tkdesk(color,foreground)} {}
                  {ficons16/c.xpm} {ficons32/dot_c.xpm}}
      {{*.dvi}	{purple}}
!     {{{*.gif} {*.jpg} {*.jpeg} {*.bmp} {*.pcx} {*.p?m} {*.rle} {*.tif} {*.tga} {*.png}}
  	        {brown} {} {ficons16/image.xpm} {ficons32/gif.xpm}}
      {{*.h}	{$tkdesk(color,foreground)} {}
                  {ficons16/h.xpm} {ficons32/dot_h.xpm}}
!     {{*.html}   {$tkdesk(color,foreground)} {}
! 		{ficons16/html2.xpm} {navigator.xpm}}
      {{*akefile}	{$tkdesk(color,foreground)} {}
                  {ficons16/system.xpm} {ficons32/makefile.xpm}}
      {{{*.mpg} {*.mpeg}}
  	        {magenta} {} {ficons16/video.xpm}}
-     {{*.pdf}	{orange3} {} {ficons16/pdf.xpm} {ficons32/file.xpm}}
      {{*.ps}	{orange3} {} {ficons16/archive.xpm} {ficons32/postscript.xpm}}
      {{.*rc}	{$tkdesk(color,foreground)} {}
                  {ficons16/system.xpm} {ficons32/system.xpm}}
      {{*.rpm}    {$tkdesk(color,foreground)} {} {ficons16/rpm.xpm}}
      {{*.sgml}	{SeaGreen}}
!     {{{*.tar.z} {*.tar.gz} {*.tgz} {*.tar.Z} {*.taz} {*.t.Z}}
  		{$tkdesk(color,foreground)} {}
  		{ficons16/parcel.xpm} {ficons32/tar.xpm}}
      {{*.tcl}	{$tkdesk(color,foreground)} {}
--- 75,99 ----
      {{*.c}	{$tkdesk(color,foreground)} {}
                  {ficons16/c.xpm} {ficons32/dot_c.xpm}}
      {{*.dvi}	{purple}}
!     {{*.flc}	{$tkdesk(color,foreground)} {}
!                 {mini-start.xpm} {ficons32/file.xpm}}
!     {{{*.gif} {*.jpg} {*.jpeg} {*.pcx} {*.p?m} {*.rle}}
  	        {brown} {} {ficons16/image.xpm} {ficons32/gif.xpm}}
      {{*.h}	{$tkdesk(color,foreground)} {}
                  {ficons16/h.xpm} {ficons32/dot_h.xpm}}
!     {{{*.html} {*.url}}
!                 {$tkdesk(color,foreground)} {}
! 		{ficons16/html.xpm} {navigator.xpm}}
      {{*akefile}	{$tkdesk(color,foreground)} {}
                  {ficons16/system.xpm} {ficons32/makefile.xpm}}
      {{{*.mpg} {*.mpeg}}
  	        {magenta} {} {ficons16/video.xpm}}
      {{*.ps}	{orange3} {} {ficons16/archive.xpm} {ficons32/postscript.xpm}}
      {{.*rc}	{$tkdesk(color,foreground)} {}
                  {ficons16/system.xpm} {ficons32/system.xpm}}
      {{*.rpm}    {$tkdesk(color,foreground)} {} {ficons16/rpm.xpm}}
      {{*.sgml}	{SeaGreen}}
!     {{{*.tar.z} {*.tar.gz} {*.tgz} {*.tar.Z} {*.taz} {*.t.Z} {*.lzh} {*.tar.bz2}}
  		{$tkdesk(color,foreground)} {}
  		{ficons16/parcel.xpm} {ficons32/tar.xpm}}
      {{*.tcl}	{$tkdesk(color,foreground)} {}
***************
*** 91,98 ****
      {{*.tex}	{blue2} {} {ficons16/tex.xpm} {ficons32/tex.xpm}}
      {{*.txt}	{$tkdesk(color,foreground)} {}
                  {ficons16/text.xpm} {ficons32/text.xpm}}
-     {{*.url}    {$tkdesk(color,foreground)} {}
- 		{ficons16/html.xpm} {navigator.xpm}}
      {{*.viff}	{SeaGreen}}
      {{{*.wav} {*.au} {*.voc}}
  	        {maroon} {} {ficons16/sound.xpm} {ficons32/sound.xpm}}
--- 101,106 ----
***************
*** 101,106 ****
      {{*.xpm}	{$tkdesk(color,foreground)} {}
                  {ficons16/xpm.xpm} {ficons32/xpm.xpm}}
      {{*.xv}	{SeaGreen}}
!     {{{*~} {#*#} {*.flc}}
  		{slategray}}
  }
--- 109,114 ----
      {{*.xpm}	{$tkdesk(color,foreground)} {}
                  {ficons16/xpm.xpm} {ficons32/xpm.xpm}}
      {{*.xv}	{SeaGreen}}
!     {{{*~} {#*#}}
  		{slategray}}
  }
diff -Pcr tkdesk-1.2/tcldesk/configs/Popups tkdesk-1.2-jp/tcldesk/configs/Popups
*** tkdesk-1.2/tcldesk/configs/Popups	Mon Nov 15 07:07:53 1999
--- tkdesk-1.2-jp/tcldesk/configs/Popups	Fri Sep 15 17:52:46 2000
***************
*** 75,496 ****
  ### (You should better not change the first, i.e. default entry...!)
  
  set tkdesk(popup,directories) {
!     {{RCS} {
!         {{Check Out...} {jdb_rcs_co %d}}
!         {{Open} {dsk_cd %s}}
! 	{{New Window} {dsk_open_dir %s}}
! 	{{New Browser} {dsk_open_browser %s}}
! 	-
! 	{{Disk Usage} {dsk_du %s}}
! 	{{Start XTerm here} {
! 	    cd %s
! 	    eval exec $tkdesk(cmd,xterm) &
! 	    cd ~  ;# this is the standard workdir of TkDesk
  	}}
- 	{{Make tar.gz} {dsk_exec tar cf - -C %d %f | gzip >[string_replace %s " " "_"].tar.gz}}	
-     }}
-     {{*} {
- 	{{Open} {dsk_cd %s}}
- 	{{New Window} {dsk_open_dir %s}}
- 	{{New Browser} {dsk_open_browser %s}}
- 	-
- 	{{Find...} {dsk_find_files -path %s}}
- 	{{Disk Usage} {dsk_du %s}}
- 	{{Start XTerm here} {
- 	    cd %s
- 	    eval exec $tkdesk(cmd,xterm) &
- 	    cd ~  ;# this is the standard workdir of TkDesk
- 	}}
- 	-
- 	{{Make tar.gz} {dsk_exec tar cf - -C %d %f | gzip >[string_replace %s " " "_"].tar.gz}}	
- 	{{Make zip} {dsk_exec zip -r %s.zip %f}}
- 	{{Which rpm} {dsk_view rpm -qfli %s}}
-     }}
  }
  
- ### Definition of Popup-Menus for Executables:
- ### (If the label of one of the entries is "Edit" it will only be added to the
- ### menu if the executable is script, ie. the first two characters are #!. 
- ### If you want an "Edit" entry for all executables just change "Edit" to 
- ### anything else, e.g. "Do Edit" or "Edit the file!".)
- 
  set tkdesk(popup,executables) {
!     {{*.class} {
! 	{{Execute in Xterm} {eval dsk_exec $tkdesk(cmd,xterm) -sb -T %f -n %f -e pauseme java %b}}
!     	{{Execute} {dsk_exec java %b}}
! 	{{View Output} {dsk_view java %b}}
!     }}
!     {{{*.tcl} {*.tk}} {
! 	{{Source} {source %s}}
! 	{{Execute} {dsk_exec %s}}
! 	{{Execute in Xterm} {eval dsk_exec $tkdesk(cmd,xterm) -sb -T %f -n %f -e pauseme %s}}
! 	{{View Output} {dsk_view %s}}
! 	-
! 	{{Edit} {dsk_edit %s}}
!     }}
!     {{*} {
! 	{{Execute} {dsk_exec %s}}
! 	{{Execute in Xterm} {eval dsk_exec $tkdesk(cmd,xterm) -sb -T %f -n %f -e pauseme %s}}
! 	{{View Output} {dsk_view %s}}
! 	{{Manual Page} {dsk_view man %f | col -b}}
! 	-
! 	{{Edit} {dsk_edit %s}}
! 	{{Strip} {dsk_exec strip %s}}
! 	{{Libraries} {dsk_view ldd %s}}
! 	{{Which rpm} {dsk_view rpm -qfli %s}}
!     }}
  }
  
- ###
- ### Definition of Popup-Menus for "Regular" (and other) Files:
- 
  set tkdesk(popup,regulars) {
!     {{{*-HOWTO} {*-HOWTO.gz}} {
!     	{{View (cbhelp)} {dsk_cbhelp %s howto}}
!     	{{Edit} {dsk_edit %s}}
!     }}
!     {{{Makefile} {Gmakefile} {makefile}} {
!         {{Make...} {
! 	    dsk_read_string {Make Target:} {
! 		eval dsk_exec $tkdesk(cmd,xterm) -sb -geom 80x15 -T \\"make $dsk_read_string\\" -e pauseme make -f %s $dsk_read_string
! 	    }
!         }}
!         {{Make Default} {
! 	    eval dsk_exec $tkdesk(cmd,xterm) -sb -geom 80x15 -T "make" -e pauseme make -f %s
!         }}
! 	-
! 	{{Edit} {dsk_edit %s}}
! 	{{XEmacs} {xemacs_load %s}}
! 	{{Other Window} {xemacs_load %s other}}
! 	{{Other Frame} {xemacs_load %s frame}}
! 	-
!         {{Check In... (RCS)} {jdb_rcs_ci %s}}
! 	{{Print...} {dsk_print %s}}
!     }}
!     {{{*.a} {*.o} {*.sl}} {
!     	{{List Symbols} {dsk_view nm %s}}
!     	{{List Matches...} {
!     	    dsk_read_string {List Symbols Matching (RegExp):} {
!     	    	dsk_view nm %s | grep $dsk_read_string
!     	    }
!     	}}
!     }}
!     {{{*.c} {*.h} {*.cpp} {*.tcl}} {
! 	{{Edit} {dsk_edit %s}}
! 	{{XEmacs} {xemacs_load %s}}
! 	{{Other Window} {xemacs_load %s other}}
! 	{{Other Frame} {xemacs_load %s frame}}
! 	-
!         {{Check In... (RCS)} {jdb_rcs_ci %s}}
! 	{{Print} {dsk_print %s}}
!     }}
!     {{*.class} {
! 	{{Execute in Xterm} {eval dsk_exec $tkdesk(cmd,xterm) -sb -T %f -n %f -e pauseme java %b}}
!     	{{Execute} {dsk_exec java %b}}
! 	{{View Output} {dsk_view java %b}}
!     }}
!     {{core} {
!     	{{Strings in Header...} {dsk_view head %s | od -s -A x}}
!     }}
!     {{*.deb} {
!         {{Info } {dsk_view dpkg --info %s}}
!         -
!         {{Install} {eval dsk_exec $tkdesk(cmd,xterm) -sl 256 -T "dpkg -i %f" -e pauseme "dpkg -i %s"}}
!         {{List} {dsk_view dpkg-deb -c %s}}
!         {{Extract} {dsk_exec dpkg-deb -x %s ./}}
!     }}    
!     {{{*.diff} {*.patch}} {
!     	{{Apply here } {eval dsk_exec $tkdesk(cmd,xterm) -sb -T \\"patch from %f\\" -n patch -e pauseme sh -c \\"patch <%s\\"}}
!     	{{Edit/View} {dsk_edit %s}}
!     	{{Print} {dsk_print %s}}
!     }}
!     {{{*.diff.gz} {*.patch.gz}} {
!     	{{Apply here } {eval dsk_exec $tkdesk(cmd,xterm) -sb -T "patch from %f" -n patch -e pauseme sh -c \\"gzip -cd %s | patch\\"}}
!     	{{Edit/View} {dsk_edit %s}}
!     }}
!     {{*.dvi} {
!     	{{View} {dsk_exec xdvi -paper a4 -s 3 %s}}
!     	{{Print} {dsk_print %s}}
!     	{{-> Postscript } {dsk_exec dvips %s}}
!     }}
!     {{{*.gif} {*.jpg} {*.jpeg} {*.bmp} {*.pcx} {*.p?m} {*.rle} {*.tif} {*.tga} {*.png}} {
! 	{{View (xv)} {dsk_exec xv %s}}
!       	{{Background (tiled)} {dsk_exec xv -root -quit %s}}
!       	{{Background (expand)} {dsk_exec xv -root -max -smooth -quit %s}}
!     }}
!     {{{*.html} {*.htm}} {
!     	{{Netscape (new window)} {dsk_netscape file %s window}}
! 	{{Netscape (reuse window)} {dsk_netscape file %s}}
!     	{{Lynx} {eval dsk_exec $tkdesk(cmd,xterm) -e lynx %s}}
! 	{-}
!     	{{Edit} {dsk_edit %s}}
! 	{{XEmacs} {xemacs_load %s}}
! 	{{Other Window} {xemacs_load %s other}}
! 	{{Other Frame} {xemacs_load %s frame}}
!     }}
!     {{*.java} {
!       	{{Edit} {dsk_edit %s}}
!       	{{Compile} {eval dsk_exec $tkdesk(cmd,xterm) -sb -geom 80x15 -T [list "javac %f"] -e pauseme javac %s}}
!       	-
!       	{{Print} {dsk_exec groff -Tps -mandoc %s | $tkdesk(cmd,print)}}
!     }} 
!     {{{*.man} {*.[1-8n]}} {
!       	{{View} {dsk_view groff -Tascii -mandoc %s | col -b}}
!       	{{Edit} {dsk_edit %s}}
!       	{{Print (Postscript)} {dsk_exec groff -Tps -mandoc %s | $tkdesk(cmd,print)}}
!     }}
!     {{{*.man.gz} {*.[1-8n].gz}} {
!       	{{View} {dsk_view gzip -cd %s | groff -Tascii -mandoc | col -b}}
!       	{{Edit} {dsk_edit %s}}
!       	{{Print (Postscript)} {dsk_exec gzip -cd %s | groff -Tps -mandoc | $tkdesk(cmd,print)}}
!     }}
!     {{{*.man.Z} {*.[1-8n].Z}} {
!       	{{View} {dsk_view zcat %s | groff -Tascii -mandoc | col -b}}
!       	{{Edit} {dsk_edit %s}}
!       	{{Print (Postscript)} {dsk_exec zcat %s | groff -Tps -mandoc | $tkdesk(cmd,print)}}
!     }}
!     {{{*.mov} {*.avi}} {
!         {{View} {dsk_exec xanim %s}}
!     }}
!     {{{*.mpg} {*.mpeg}} {
! 	{{View} {dsk_exec mpeg_play %s 2>/dev/null}}
! 	{{View (big)} {dsk_exec mpeg_play -dither 2x2 %s 2>/dev/null}}
! 	{{View (gray)} {dsk_exec mpeg_play -dither gray %s 2>/dev/null}}
!     }}
!     {{{*.ps} {*.eps}} {
!     	{{View (ghostview)} {dsk_exec ghostview -a4 -magstep 1 %s}}
!     	{{View (gv)} {dsk_exec gv %s}}
!     	{{Print} {dsk_print %s}}
!         -
!         {{Odd Pages -> ...odd.ps} {dsk_exec psselect -o %s %d/%b.odd.ps}}
!         {{Even Pages -> ...even.ps} {dsk_exec psselect -e %s %d/%b.even.ps}}
!         {{Two-page doc -> ...2.ps} {dsk_exec psnup -pa4 -2 %s %d/%b.2.ps}}
!         -
!         {{ps -> eps} {dsk_exec gs -sDEVICE=epswrite -sOutputFile=%b.eps %s}}
!         -
!         {{Edit} {dsk_edit %s}}
!         {{Compress (gzip)} {dsk_exec gzip %A}}
!     }}
!     {{*.pdf} {
!     	{{View (acroread)} {dsk_exec acroread %s}}
!       	{{Edit} {dsk_edit %s}}
!     }}
!     {{{*.ps.gz} {*.ps.Z}} {
!     	{{View (ghostview)} {
! 	     dsk_exec gzip -cd %s | ghostview -a4 -magstep 1 -
! 	}}
!     	{{Print} {dsk_exec gzip -cd %s | $tkdesk(cmd,print)}}
! 	-
! 	{{Uncompress} {dsk_exec gzip -d %s}}
!     }}
!     {{*.rpm} {
!        {{Query} {dsk_view rpm -qip %s}}
!        {{File List} {dsk_view rpm -qlp %s}}
!        {{Full Query} {dsk_view rpm -qiRlp %s}}
!        {{Install} {dsk_view rpm -U %s}}
!        -
!        {{Test} {dsk_view sh -c "rpm -i --test %s 2>&1 && echo 'Test Successful'"}} 
!     }}
!     {{*.tar} {
!       	{{List Contents} {dsk_view tar tvf %s}}
!       	{{Short Listing} {dsk_view tar tf %s}}
! 	-
!       	{{Extract} {dsk_exec tar xf %s}}
!       	{{Extract to /} {dsk_exec tar xf %s -C /}}
!       	{{Extract to /usr/tmp} {dsk_exec tar xf %s -C /usr/tmp}}
!     }}
!     {{{*.tar.bz2} {*_tar.bz2} {*.tb2}}  {
!         {{List Contents} {dsk_view bzip2 -cd %s | tar tvf - | sort +5}}
!         {{Short Listing} {dsk_view bzip2 -cd %s | tar tf - | sort}}
!         {{Uncompressed Size } {dsk_view bzip2 -l %s}}
!         -
!         {{Extract} {dsk_exec bzip2 -cd %s | tar xpf -}}
!         {{Extract to /} {dsk_exec bzip2 -cd %s | tar xpf - -C /}}
!         {{Extract to /usr/tmp} {dsk_exec bzip2 -cd %s | tar xpf - -C /usr/tmp}}
!     }}
!     {{{*.tar.z} {*.tar.Z} {*.taz} {*.t.Z}} {
!       	{{List Contents} {dsk_view zcat %s | tar tvf - | sort +5}}
!       	{{Short Listing} {dsk_view zcat %s | tar tf - | sort}}
! 	-
!       	{{Extract} {dsk_exec zcat %s | tar xpf -}}
!       	{{Extract to Subdir} {
!       		set err [catch {exec mkdir %d/%b} errmsg]
!       		if !$err {
!       		  dsk_exec sh -c "zcat %s | (cd %d/%b; tar xpvf -)"
!       		  dsk_cd %d/%b
!       		} else {
!       		  cb_error $errmsg
!       		}
!       	}}
!       	{{Extract to /} {dsk_exec zcat %s | tar xpf - -C /}}
!       	{{Extract to /usr/tmp} {dsk_exec zcat %s | tar xpf - -C /usr/tmp}}
! 	-
! 	{{Open XSelected} {
! 	    dsk_busy
! 	    set err [catch {
! 		eval exec zcat %s | tar xf - -C $tkdesk(tmpdir) %x
! 	    } errmsg]
! 	    dsk_lazy
!             if {!$err} {
! 		if [file readable $tkdesk(tmpdir)/%x] {
! 		    dsk_open "" $tkdesk(tmpdir)/%x
! 		    exec rm -r $tkdesk(tmpdir)/%x
! 		}
! 	    } else {
! 		dsk_msg_error $errmsg
! 	    }
!         }}
!     }}
!     {{{*.tar.gz} {*.tgz}} {
!       	{{List Contents} {dsk_view gzip -cd %s | tar tvf - | sort +5}}
!       	{{Short Listing} {dsk_view gzip -cd %s | tar tf - | sort}}
! 	{{Uncompressed Size } {dsk_view gzip -l %s}}
! 	-
!       	{{Extract} {dsk_exec gzip -cd %s | tar xpf -}}
!       	{{Extract to Subdir} {
!       		set err [catch {exec mkdir %d/%b} errmsg]
!       		if !$err {
!       		  dsk_exec sh -c "gzip -cd %s | (cd %d/%b; tar xpvf -)"
!       		  dsk_cd %d/%b
!       		} else {
!       		  cb_error $errmsg
!       		}
!       	}}
!       	{{Extract to /} {dsk_exec gzip -cd %s | tar xpf - -C /}}
!       	{{Extract to /usr/tmp} {dsk_exec gzip -cd %s | tar xpf - -C /usr/tmp}}
! 	-
! 	{{Open XSelected} {
! 	    dsk_busy
! 	    set err [catch {
! 		eval exec gzip -cd %s | tar xf - -C $tkdesk(tmpdir) %x
! 	    } errmsg]
! 	    dsk_lazy
!             if {!$err} {
! 		if [file readable $tkdesk(tmpdir)/%x] {
! 		    dsk_open "" $tkdesk(tmpdir)/%x
! 		    exec rm -r $tkdesk(tmpdir)/%x
! 		}
! 	    } else {
! 		dsk_msg_error $errmsg
! 	    }
!         }}
!     }}
!     {{*.url} {
!     	{{Netscape (new window)} {dsk_netscape url [exec cat %s] window}}
! 	{{Netscape (reuse window)} {dsk_netscape url [exec cat %s]}}
!     	{{Lynx} {eval dsk_exec $tkdesk(cmd,xterm) -e lynx [string trimleft [exec cat %s] file:]}}
! 	{-}
!     	{{Edit} {dsk_edit %s}}
!     }}
!     {{{*.voc} {*.wav} {*.au}} {
!     	{{Play } {
! 	    if {[info exists tkdesk(soundcmd)]} {
! 		if {$tkdesk(soundcmd) != ""} {
! 		    catch {eval exec [format $tkdesk(soundcmd) %s]}
! 		}
! 	    } else {
! 		cb_alert {Don't know how to play a sound. Edit the "Sounds" config file to tell me how.}
! 	    }
  	}}
-     }}
-     {{*.xbm} {
- 	{{View (xv)} {dsk_exec xv %s}}
- 	{{Edit (bitmap)} {dsk_exec bitmap %s}}
- 	{{Edit ASCII} {dsk_edit %s}}
-     }}
-     {{*.xpm} {
- 	{{View (sxpm)} {dsk_exec sxpm %s}}
- 	{{View (xv)} {dsk_exec xv %s}}
- 	{{Edit (pixmap)} {dsk_exec pixmap -filename %s}}
- 	{{Edit ASCII} {dsk_edit %s}}
-     }}
-     {{{*.z} {*.Z}} {
- 	{{Edit} {dsk_edit %s}}
- 	{{Uncompress} {dsk_exec gzip -d %s}}
-     }}
-     {{*.gz} {
- 	{{Edit} {dsk_edit %s}}
- 	{{Uncompressed Size } {dsk_view gzip -l %s}}
- 	-
- 	{{Uncompress} {dsk_exec gzip -d %s}}
-     }}
-     {{*.bz2} {
-         {{Edit} {dsk_edit %s}}
-         {{Uncompressed Size } {dsk_view bzip2 -l %s}}
-         -
-         {{Uncompress} {dsk_exec bzip2 -d %s}}
-     }}
-     {{{*.zip}} {
-         {{List Contents} {dsk_view unzip -l %s}}
-         -
-         {{Extract} {dsk_exec unzip %s}}
-         {{Extract to /} {dsk_exec unzip %s -d /}}
-         {{Extract to /usr/tmp} {dsk_exec unzip %s -d /usr/tmp}}
-     }}
-     {{*} {
- 	{{Edit} {dsk_edit %s}}
- 	{{XEmacs} {xemacs_load %s}}
- 	{{Other Window} {xemacs_load %s other}}
- 	{{Other Frame} {xemacs_load %s frame}}
- 	-
- 	{{Open Directory} {dsk_open_dir %d}}
- 	{{Print...} {dsk_print %s}}
- 	{{Mail to...} {dsk_mail %s}}
- 	{{Which rpm} {dsk_view rpm -qfli %s}}
-     }}
  }
  
- 
- ### (fileops,popup):
- ### Defines the popup menu of the "Copy, Move, Link" dialog.
- ### For this list, the following shortcuts are available in addition
- ### to the "usual" ones (see top of this file):
- ###
- ### %S : Selected files or file entered in the "File" entry field
- ### %T : File/directory entered in the "Destination" entry field.
- 
  set tkdesk(fileops,popup) {
!     {{Link (symbolic)} {
! 	dsk_exec $tkdesk(cmd,symln) %S %T
      }}
!     {{Link (hard)} {
      	dsk_exec $tkdesk(cmd,ln) %S %T
      }}
!     {-}
!     {{Tar (create)} {
! 	set l {}
! 	foreach lf [list %S] {
! 		lappend l [file tail \$lf]
! 	}
! 	eval dsk_exec tar cvf %T \$l
      }}
!     {{Tar (append)} {
! 	set l {}
! 	foreach lf [list %S] {
! 		lappend l [file tail \$lf]
! 	}
! 	eval dsk_exec tar rvf %T \$l
      }}
!     {{Untar} {
!         set ext [file extension %S]
! 	if {\$ext == ".gz" || \$ext == ".Z"} {
! 	    dsk_bgexec {sh -c "gzip -cd %S | (cd %T; tar xvf -)"} {Untaring %f...}
! 	} else {
! 	    dsk_bgexec {sh -c "cd %T; tar xvf %S"} {Untaring %f...}
! 	}
      }}
!     {-}
!     {{Diff} {
! 	dsk_view diff -bc %S %T
!     }}
!     {{Patch} {
! 	dsk_path_exec %T $tkdesk(cmd,xterm) -sb -T \\"patch from %f\\" -n patch -e pauseme sh -c \\"patch <%S\\"
!     }}
!     {{Concatenate} {
  	dsk_exec cat %S >%T
      }}
  }
- 
  
  # ---------------------------------------------------------------------------
  # xemacs_load what ?where?
--- 75,495 ----
  ### (You should better not change the first, i.e. default entry...!)
  
  set tkdesk(popup,directories) {
! 	{{cdrom} {
! 		{³«¤¯ {dsk_cd %s}}
! 		{¼è¤ê½Ð¤· {dsk_exec eject /dev/cdrom }}
! 		{ÀÚ¤êÎ¥¤· {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme umount %s}}
! 		{¥Þ¥¦¥ó¥È {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme mount /dev/cdrom %s}}
! 	}}
! 	{{RCS} {
! 		{{Check Out...} {jdb_rcs_co %d}}
! 		{{Open} {dsk_cd %s}}
! 		{{New Window} {dsk_open_dir %s}}
! 		{{New Browser} {dsk_open_browser %s}}
! 		-
! 		{{Disk Usage} {dsk_du %s}}
! 		{{Start XTerm here} {cd %s;exec $tkdesk(cmd,xterm) &}}
! 		{{Make tar.gz} {dsk_exec tar cf - -C %d %f | gzip >%s.tar.gz}}
! 	}}
! 	{{*} {
! 		{{³«¤¯} {dsk_cd %s}}
! 		{{¥Õ¥©¥ë¥À¤ò³«¤¯} {dsk_open_dir %s}}
! 		{{¥¦¥£¥ó¥É¥¦¤ò³«¤¯} {dsk_open_browser %s}}
! 		{{DOS¥Õ¥¡¥¤¥ëÁàºî} {dsk_exec mfm}}
! 		{FTP¥Õ¥¡¥¤¥ëÁàºî {dsk_exec gftp}}
! 		-
! 		{{¸¡º÷...} {dsk_find_files -path %s}}
! 		{{¥×¥í¥Ñ¥Æ¥£} {dsk_du %s}}
! 		{{¤³¤Î¾ì½ê¤ÇÃ¼Ëö¤ò¼Â¹Ô} {cd %s;exec $tkdesk(cmd,xterm) &}}
! 		-
! 		{CD¥¤¥á¡¼¥¸ºîÀ® {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme mkisofs -a -d -D -l -L -N -R -V %b -o %s.iso %s}}
! 		-
! 		{{tar.gz¥¢¡¼¥«¥¤¥ÖºîÀ®} {dsk_exec tar cf - -C %d %f | gzip >%s.tar.gz}}
! 		{{zip°µ½Ì} {dsk_exec zip -r %s.zip %f}}
! 		{{lha¥¢¡¼¥«¥¤¥ÖºîÀ®} {dsk_exec lha a %s.lzh %f}}
! 		{{Which rpm} {dsk_view rpm -qfli %s}}
  	}}
  }
  
  set tkdesk(popup,executables) {
! 	{{*.class} {
! 		{{Execute in Xterm} {dsk_exec $tkdesk(cmd,xterm) -T %f -n %f -e pauseme java %b}}
! 		{{Execute} {dsk_exec java %b}}
! 		{{View Output} {dsk_view java %b}}
! 	}}
! 	{{*.tk} {
! 		{{¼Â¹Ô} {dsk_exec %s}}
! 		{{Ã¼Ëö¤Ç¼Â¹Ô} {dsk_exec $tkdesk(cmd,xterm) -T %f -n %f -e pauseme %s}}
! 		{{½ÐÎÏ·ë²Ì¤ÎÉ½¼¨} {dsk_view %s}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 	}}
! 	{{*.tcl} {
! 		{Ã¼Ëö¤Ç¼Â¹Ô {dsk_exec $tkdesk(cmd,xterm) -T %f -n %f -e pauseme %s}}
! 		{¼Â¹Ô {dsk_exec %s}}
! 		{É½¼¨ {dsk_view %s}}
! 		-
! 		{ÊÔ½¸ {dsk_view %s}}
! 		{¥ß¥å¡¼¥ë {dsk_exec %s}}
! 	}}
! 	{{configure} {
! 		{/usr¤Ë¹½ÃÛ {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme %s --prefix=/usr}}
! 		{/usr¤Ë¹½ÃÛ... {dsk_read_string {configure Option:} {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme %s --prefix=/usr $dsk_read_string}}}
! 		{{gettextÂÐ±þ¡¢/usr¤Ç¹½ÃÛ} {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T "configure --prefix=/usr --with-included-gettext" -e pauseme %s --prefix=/usr --with-included-gettext}}
! 		{gettextÂÐ±þ¡¢/usr¤Ç¹½ÃÛ... {dsk_read_string {configure Option:} {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme %s --prefix=/usr --with-included-gettext $dsk_read_string}}}
! 		{{¹½ÃÛ} {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T "configure" -e pauseme %s}}
! 		{¹½ÃÛ... {dsk_read_string {configure Option:} {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme %s $dsk_read_string}}}
! 		-
! 		{¥Ø¥ë¥× {dsk_view %s --help}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 	}}
! 	{{*} {
! 		{{¼Â¹Ô} {dsk_exec %s}}
! 		{{Ã¼Ëö¤Ç¼Â¹Ô} {dsk_exec $tkdesk(cmd,xterm) -T %f -n %f -e pauseme %s}}
! 		{{¼Â¹Ô·ë²Ì¤òÉ½¼¨} {dsk_view %s}}
! 		{{¥ª¥×¥·¥ç¥óÉÕ¤­¤Ç¼Â¹Ô...} {dsk_read_string {configure Option:} {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T "%f $dsk_read_string" -e pauseme %s $dsk_read_string}}}
! 		-
! 		{{¥Þ¥Ë¥å¥¢¥ë} {dsk_view man %f | col -b}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥é¥¤¥Ö¥é¥ê} {dsk_view ldd %s}}
! 	}}
  }
  
  set tkdesk(popup,regulars) {
! 	{{{*-HOWTO} {*-HOWTO.gz}} {
! 		{{É½¼¨(cbhelp)} {dsk_cbhelp %s howto}}
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{¥ß¥å¡¼¥ë {dsk_exec mule %s }}
! 		{{Â¾¤Î¥¦¥£¥ó¥É¥¦} {dsk_exec mule %s other}}
! 		{{Â¾¤Î¥Õ¥ì¡¼¥à} {dsk_exec mule %s frame}}
! 	}}
! 	{{{Makefile} {Gmakefile} {makefile}} {
! 		{¥ª¥×¥·¥ç¥ó¤Ê¤·¤Ç¥á¡¼¥¯ {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme make -f %s}}
! 		{¥¤¥ó¥¹¥È¡¼¥ë {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme make -f %s install}}
! 		{¥¯¥ê¥¢ {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme make -f %s clean}}
! 		{¥á¡¼¥¯... {dsk_read_string {Make Target:} {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme make -f %s $dsk_read_string}}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 		{{Â¾¤Î¥¦¥£¥ó¥É¥¦} {dsk_exec mule %s other}}
! 		{{Â¾¤Î¥Õ¥ì¡¼¥à} {dsk_exec mule %s frame}}
! 		-
! 		{{¥Á¥§¥Ã¥¯... (RCS)} {jdb_rcs_ci %s}}
! 		{{°õºþ} {dsk_print %s}}
! 	}}
! 	{{Imakefile} {
! 		{{¥á¡¼¥¯¥Õ¥¡¥¤¥ëºîÀ®} {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T "generate Makefile" -e pauseme xmkmf -a}}
! 		{{¤³¤Î¥Õ¥©¥ë¥À¤Î¤ß¥á¡¼¥¯¥Õ¥¡¥¤¥ëºîÀ®} {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T "generate Makefile" -e pauseme xmkmf}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 		{{Â¾¤Î¥¦¥£¥ó¥É¥¦} {dsk_exec mule %s other}}
! 		{{Â¾¤Î¥Õ¥ì¡¼¥à} {dsk_exec mule %s frame}}
! 		-
! 		{{¥Á¥§¥Ã¥¯... (RCS)} {jdb_rcs_ci %s}}
! 		{{°õºþ...} {dsk_print %s}}
! 	}}
! 	{{{*.a} {*.o} {*.sl}} {
! 		{{¥·¥ó¥Ü¥ë¤Î¥ê¥¹¥È} {dsk_view nm %s}}
! 		{{¥Ñ¥¿¡¼¥ó¾È¹ç¤Î¥ê¥¹¥È...} {dsk_read_string {List Symbols Matching (RegExp):} {dsk_view nm %s | grep $dsk_read_string}}}
! 	}}
! 	{{{*.h} {*.cpp} {*.tcl}} {
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 		{{Â¾¤Î¥¦¥£¥ó¥É¥¦} {dsk_exec mule %s other}}
! 		{{Â¾¤Î¥Õ¥ì¡¼¥à} {dsk_exec mule %s frame}}
! 		-
! 		{{¥Á¥§¥Ã¥¯¥¤¥ó... (RCS)} {jdb_rcs_ci %s}}
! 		{{°õºþ} {dsk_print %s}}
! 	}}
! 	{{*.c} {
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 		{{Â¾¤Î¥¦¥£¥ó¥É¥¦} {dsk_exec mule %s other}}
! 		{{Â¾¤Î¥Õ¥ì¡¼¥à} {dsk_exec mule %s frame}}
! 		{¥³¥ó¥Ñ¥¤¥ë {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme gcc -o %b %f}}
! 		-
! 		{{¥Á¥§¥Ã¥¯¥¤¥ó... (RCS)} {jdb_rcs_ci %s}}
! 		{{°õºþ...} {dsk_print %s}}
! 	}}
! 	{{*.class} {
! 		{{Execute in Xterm} {dsk_exec $tkdesk(cmd,xterm) -T %f -n %f -e pauseme java %b}}
! 		{{Execute} {dsk_exec java %b}}
! 		{{View Output} {dsk_view java %b}}
! 	}}
! 	{{core} {
! 		{{¥Ø¥Ã¥À¤ÎÊ¸»úÎó...} {dsk_view head %s | od -s -A x}}
! 	}}
! 	{{*.deb} {
! 		{{¾ðÊó} {dsk_view dpkg --info %s}}
! 		-
! 		{{¥¤¥ó¥¹¥È¡¼¥ë} {dsk_exec $tkdesk(cmd,xterm) -ls -sl 256 -caption "dpkg -i %f" -e pauseme "dpkg -i %s"}}
! 		{{¥ê¥¹¥È} {dsk_view dpkg-deb -c %s}}
! 		{{Å¸³«} {dsk_exec dpkg-deb -x %s ./}}
! 	}}
! 	{{{*.diff} {*.patch}} {
! 		{-p1¤Ç¥Ñ¥Ã¥Á¤òÅö¤Æ¤ë {dsk_exec $tkdesk(cmd,xterm) -T %f -n %f -e pauseme sh -c "patch -p1 < %s"}}
! 		{{¥Ñ¥Ã¥Á¤òÅö¤Æ¤ë} {dsk_exec $tkdesk(cmd,xterm) -sb -T "patch < %S" -n patch -e pauseme sh -c "patch < %s"}}
! 		{{ÊÔ½¸/É½¼¨} {dsk_edit %s}}
! 		{{°õºþ} {dsk_print %s}}
! 	}}
! 	{{{*.diff.gz} {*.patch.gz}} {
! 		{¥Ñ¥Ã¥Á¤òÅö¤Æ¤ë(-p1) {dsk_exec $tkdesk(cmd,xterm) -T %f -n %f -e pauseme sh -c {gzip -cd %s | patch -p1}}}
! 		{¥Ñ¥Ã¥Á¤òÅö¤Æ¤ë {dsk_exec $tkdesk(cmd,xterm) -T %f -n %f -e pauseme sh -c {gzip -cd %s | patch}}}
! 		{{ÊÔ½¸/É½¼¨} {dsk_edit %s}}
! 	}}
! 	{{*.obj} {
! 		{{tgif} {dsk_exec tgif %s}}
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 	}}
! 	{{*.mgp} {
! 		{{¥×¥ì¥¼¥ó¥Æ¡¼¥·¥ç¥ó} {dsk_exec mgp %s}}
! 		{JIS¤ËÊÑ´¹ {dsk_exec sh -c "nkf -j < %s > %b.jis.mgp"}}
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 	}}
! 	{{*.tex} {
! 		{{TeX¤ò¼Â¹Ô} {dsk_exec jlatex %s}}
! 		{{TeX¤òÃ¼Ëö¤Ç¼Â¹Ô} {dsk_exec $tkdesk(cmd,xterm) -sb -T %f -n %f -e pauseme jlatex %s}}
! 		{{TeX¤Î¼Â¹Ô·ë²Ì¤òÉ½¼¨} {dsk_view jlatex %s}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 		{{Â¾¤Î¥¦¥£¥ó¥É¥¦} {dsk_exec mule %s other}}
! 		{{Â¾¤Î¥Õ¥ì¡¼¥à} {dsk_exec mule %s frame}}
! 	}}
! 	{{*.dvi} {
! 		{{É½¼¨} {dsk_exec xdvi -paper a4 -s 3 %s}}
! 	}}
! 	{{{*.gif} {*.jpg} {*.jpeg} {*.bmp} {*.pcx} {*.p?m} {*.rle} {*.tif} {*.tga} {*.png}} {
! 		{imagemagic¤ÇÉ½¼¨ {dsk_exec display %s }}
! 		{{xv¤ÇÉ½¼¨} {dsk_exec xv %s}}
! 		{¥Ú¥¤¥ó¥È {dsk_exec xpaint %s}}
! 		-
! 		{{ÊÉ»æ(¥¿¥¤¥ë)} {dsk_exec xv -root -quit %s}}
! 		{{ÊÉ»æ(³ÈÂç)} {dsk_exec xv -root -max -smooth -quit %s}}
! 	}}
! 	{{{*.html} {*.htm}} {
! 		{{¥Í¥Ã¥È¥¹¥±¡¼¥×(¿·µ¬¥¦¥£¥ó¥É¥¦)} {dsk_netscape file %s window}}
! 		{{¥Í¥Ã¥È¥¹¥±¡¼¥×(¸½ºß¤Î¥¦¥£¥ó¥É¥¦)} {dsk_netscape file %s}}
! 		{{Lynx} {dsk_exec $tkdesk(cmd,xterm) -e lynx %s}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 	}}
! 	{{*.java} {
! 		{{Edit} {dsk_edit %s}}
! 		{{Compile} {dsk_exec $tkdesk(cmd,xterm) -sb -geom 80x15 -T "javac %f" -e pauseme javac %s}}
! 		-
! 		{{Print} {dsk_exec groff -Tps -mandoc %s | $tkdesk(cmd,print)}}
! 	}}
! 	{{{*.man} {*.[1-8n]}} {
! 		{{É½¼¨} {dsk_view groff -Tascii -mandoc %s | col -b}}
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{°õºþ(PS·Á¼°)} {dsk_exec groff -Tps -mandoc %s | $tkdesk(cmd,print)}}
! 	}}
! 	{{{*.mov} {*.avi}} {
! 		{{É½¼¨} {dsk_exec xanim %s}}
! 	}}
! 	{{{*.mpg} {*.mpeg}} {
! 		{{É½¼¨} {dsk_exec mpeg_play %s 2>/dev/null}}
! 		{{É½¼¨(Âç¤­¤¯)} {dsk_exec mpeg_play -dither 2x2 %s 2>/dev/null}}
! 		{{É½¼¨(Çò¹õ)} {dsk_exec mpeg_play -dither gray %s 2>/dev/null}}
! 	}}
! 	{{{*.ps} {*.eps}} {
! 		{{É½¼¨(ghostview)} {dsk_exec ghostview -a4 -magstep 1 %s}}
! 		{{É½¼¨(gv)} {dsk_exec gv %s}}
! 		{{°õºþ} {dsk_print %s}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 		-
! 		{{²óÏ©¿ÞCAD} {dsk_exec xcircuit %s}}
! 	}}
! 	{{*.pdf} {
! 		{{É½¼¨(acroread)} {dsk_exec acroread %s}}
! 		{{É½¼¨(xpdf)} {dsk_exec xpdf %s}}
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 	}}
! 	{{*.obj} {
! 		{{Tgif} {dsk_exec tgif %s}}
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 	}}
! 	{{*.sch} {
! 		{{²óÏ©¿Þ} {dsk_exec gschem %s}}
! 		{{spice¤ò½ÐÎÏ} {dsk_exec $tkdesk(cmd,xterm) -sb -geom 80x15 -T spice -e pauseme gnetlist -o %b.spice -g spice %s}}
! 		{{Verilog¤ò½ÐÎÏ} {dsk_exec $tkdesk(cmd,xterm) -sb -geom 80x15 -T spice -e pauseme gnetlist -o %b.verilog -g verilog %s}}
! 		{{VHDL¤ò½ÐÎÏ} {dsk_exec $tkdesk(cmd,xterm) -sb -geom 80x15 -T spice -e pauseme gnetlist -o %b.vhdl -g vhdl %s}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 	}}
! 	{{*.sym} {
! 		{{²óÏ©¿Þ} {dsk_exec gschem %s}}
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 	}}
! 	{{*.spice} {
! 		{{spice3¤ò¼Â¹Ô} {dsk_exec $tkdesk(cmd,xterm) -sb -T %f -n %f -e pauseme spice3 %s}}
! 		{{Ng-spice¤ò¼Â¹Ô} {dsk_exec $tkdesk(cmd,xterm) -sb -T %f -n %f -e pauseme ngspice %s}}
! 		-
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 	}}
! 	{{{*.ps.gz} {*.ps.Z}} {
! 		{{É½¼¨(ghostview)} {	     dsk_exec gzip -cd %s | ghostview -a4 -magstep 1 -	}}
! 		{{°õºþ} {dsk_exec gzip -cd %s | $tkdesk(cmd,print)}}
! 		-
! 		{{²òÅà} {dsk_exec gzip -d %s}}
! 	}}
! 	{{*.rpm} {
! 		{¾ðÊó {dsk_view rpm -qip %s}}
! 		{°ìÍ÷ {dsk_view rpm -qlp %s}}
! 		{¾ÜºÙ°ìÍ÷ {dsk_view rpm -qiRlp %s}}
! 		{¥¤¥ó¥¹¥È¡¼¥ë {dsk_view rpm -U %s}}
! 		-
! 		{tgz·Á¼°¤ËÊÑ´¹ {dsk_exec alien -t %s}}
! 		-
! 		{¥Æ¥¹¥È {dsk_view rpm -i --test %s 2>&1 && echo 'Test Successful'}}
! 	}}
! 	{{*.tar} {
! 		{{¾ÜºÙ¤ËÉ½¼¨} {dsk_view tar tvf %s}}
! 		{{É½¼¨} {dsk_view tar tf %s}}
! 		-
! 		{{Å¸³«} {dsk_exec tar xf %s}}
! 		{{/¤ËÅ¸³«} {dsk_exec tar xf %s -C /}}
! 		{{/usr/tmp¤ËÅ¸³«} {dsk_exec tar xf %s -C /usr/tmp}}
! 	}}
! 	{{{*.tar.bz2} {*_tar.bz2} {*.tb2}} {
! 		{{¾ÜºÙ¤ËÉ½¼¨} {dsk_view bzip2 -cd %s | tar tvf -}}
! 		{{É½¼¨} {dsk_view bzip2 -cd %s | tar tf -}}
! 		{{Å¸³«¤µ¤ì¤¿Âç¤­¤µ} {dsk_view bzip2 -l %s}}
! 		-
! 		{{Å¸³«} {dsk_exec bzip2 -cd %s | tar xf -}}
! 		{{/¤ÇÅ¸³«} {dsk_exec bzip2 -cd %s | tar xf - -C /}}
! 		{{/usr/tmp¤ÇÅ¸³«} {dsk_exec bzip2 -cd %s | tar xf - -C /usr/tmp}}
! 	}}
! 	{{{*.tar.z} {*.tar.Z} {*.taz} {*.t.Z}} {
! 		{{¾ÜºÙ¤ËÉ½¼¨} {dsk_view gzip -cd %s | tar tvf -}}
! 		{{É½¼¨} {dsk_view gzip -cd %s | tar tf -}}
! 		-
! 		{{Å¸³«} {dsk_exec gzip -cd %s | tar xf -}}
! 		{{/¤ËÅ¸³«} {dsk_exec gzip -cd %s | tar xf - -C /}}
! 		{{/usr/tmp¤ËÅ¸³«} {dsk_exec gzip -cd %s | tar xf - -C /usr/tmp}}
! 	}}
! 	{{*.tar.gz} {
! 		{{¾ÜºÙ¤ËÉ½¼¨} {dsk_view gzip -cd %s | tar tvf -}}
! 		{{É½¼¨} {dsk_view gzip -cd %s | tar tf -}}
! 		{{Å¸³«»þ¤ÎÂç¤­¤µ} {dsk_view gzip -l %s}}
! 		-
! 		{{Å¸³«} {dsk_exec gzip -cd %s | tar xf -}}
! 		{{/¤ËÅ¸³«} {dsk_exec gzip -cd %s | tar xf - -C /}}
! 		{{/usr/tmp¤ËÅ¸³«} {dsk_exec gzip -cd %s | tar xf - -C /usr/tmp}}
! 	}}
! 	{{*.tgz} {
! 		{{¥¤¥ó¥¹¥È¡¼¥ë} {dsk_exec $tkdesk(cmd,xterm) -sb -T %f -n %f -e installpkg %s}}
! 		{¥¢¥ó¥¤¥ó¥¹¥È¡¼¥ë {dsk_exec $tkdesk(cmd,xterm) -T %f -n %f -e removepkg %b}}
! 		{{¾ÜºÙ¤ËÉ½¼¨} {dsk_view gzip -cd %s | tar tvf -}}
! 		{{É½¼¨} {dsk_view gzip -cd %s | tar tf -}}
! 		{{Å¸³«»þ¤ÎÂç¤­¤µ} {dsk_view gzip -l %s}}
! 		-
! 		{{Å¸³«} {dsk_exec gzip -cd %s | tar xf -}}
! 		{{/¤ËÅ¸³«} {dsk_exec gzip -cd %s | tar xf - -C /}}
! 		{{/usr/tmp¤ËÅ¸³«} {dsk_exec gzip -cd %s | tar xf - -C /usr/tmp}}
! 	}}
! 	{{*.lzh} {
! 		{{É½¼¨} {dsk_view lha %s}}
! 		{{Å¸³«} {dsk_exec lha x %s}}
! 	}}
! 	{{*.url} {
! 		{{Netscape (new window)} {dsk_netscape url [exec cat %s] window}}
! 		{{Netscape (reuse window)} {dsk_netscape url [exec cat %s]}}
! 		{{Lynx} {dsk_exec $tkdesk(cmd,xterm) -e lynx [string trimleft [exec cat %s] file:]}}
! 		-
! 		{{Edit} {dsk_edit %s}}
! 	}}
! 	{{{*.voc} {*.wav} {*.au}} {
! 		{{Play } {	    if {[info exists tkdesk(soundcmd)]} {		if {$tkdesk(soundcmd) != ""} {		    eval exec [format $tkdesk(soundcmd) %s]		}	    } else {		cb_alert {Don't know how to play a sound. Edit the "Sounds" config file to tell me how.}	    }	}}
! 	}}
! 	{{*.xbm} {
! 		{{É½¼¨(xv)} {dsk_exec xv %s}}
! 		{{É½¼¨(bitmap)} {dsk_exec bitmap %s}}
! 		{{ASCII¤ÇÊÔ½¸} {dsk_edit %s}}
! 	}}
! 	{{*.xpm} {
! 		{{É½¼¨(sxpm)} {dsk_exec sxpm %s}}
! 		{{É½¼¨(xv)} {dsk_exec xv %s}}
! 		{{ÊÔ½¸(pixmap)} {dsk_exec pixmap -filename %s}}
! 		{{ASCII¤ÇÊÔ½¸} {dsk_edit %s}}
! 	}}
! 	{{{*.z} {*.Z}} {
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{²òÅà} {dsk_exec gzip -d %s}}
! 	}}
! 	{{*.gz} {
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{²òÅà¤µ¤ì¤¿Âç¤­¤µ} {dsk_view gzip -l %s}}
! 		-
! 		{{²òÅà} {dsk_exec gzip -d %s}}
! 	}}
! 	{{*.bz2} {
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{²òÅà¤µ¤ì¤¿Âç¤­¤µ} {dsk_view bzip2 -l %s}}
! 		-
! 		{{²òÅà} {dsk_exec bzip2 -d %s}}
! 	}}
! 	{{{*.zip}} {
! 		{{ÆâÍÆ¤ÎÉ½¼¨} {dsk_view unzip -l %s}}
! 		-
! 		{{²òÅà} {dsk_exec unzip %s}}
! 		{{/¤Ç²òÅà} {dsk_exec unzip %s -d /}}
! 		{{/usr/tmp¤Ç²òÅà} {dsk_exec unzip %s -d /usr/tmp}}
! 	}}
! 	{{*.spec} {
! 		{¥Ð¥¤¥Ê¥êºîÀ® {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme rpm -bb %s}}
! 		{¥Ð¥¤¥Ê¥ê/¥½¡¼¥¹ºîÀ® {dsk_exec $tkdesk(cmd,xterm) -geom 80x15 -T %f -n %f -e pauseme rpm -ba %s}}
! 		-
! 		{ÊÔ½¸ {dsk_edit %s }}
! 	}}
! 	{{*} {
! 		{{ÊÔ½¸} {dsk_edit %s}}
! 		{{¥ß¥å¡¼¥ë} {dsk_exec mule %s}}
! 		{{Â¾¤Î¥¦¥£¥ó¥É¥¦} {dsk_exec mule %s other}}
! 		{{Â¾¤Î¥Õ¥ì¡¼¥à} {dsk_exec mule %s frame}}
! 		-
! 		{{¥Ç¥£¥ì¥¯¥È¥ê¤ò³«¤¯} {dsk_open_dir %d}}
! 		{{°õºþ...} {dsk_print %s}}
! 		{{¥á¡¼¥ëÁ÷¿®...} {dsk_mailer_file {} {} %s}}
! 		-
! 		{{xv¤ÇÉ½¼¨} {dsk_exec xv %s}}
! 		{{¥×¥ê¥ó¥È´ðÈÄCAD} {dsk_exec pcb %s}}
  	}}
  }
  
  set tkdesk(fileops,popup) {
!     {{¥·¥ó¥Ü¥ê¥Ã¥¯¥ê¥ó¥¯} {
! 	dsk_exec $tkdesk(cmd,symln) [file tail %S] %T
      }}
!     {{¥Ï¡¼¥É¥ê¥ó¥¯} {
      	dsk_exec $tkdesk(cmd,ln) %S %T
      }}
!     {{tar²òÅà} {
! 	dsk_bgexec {gzip -cd %S | tar xf - -C %T} {Untaring %f...}
      }}
!     {{º¹Ê¬} {
! 	dsk_exec diff -Pcr [file tail %S] [file tail %T] >[file tail %S].diff
      }}
!     {{¥Ñ¥Ã¥Á} {
! 	dsk_path_exec %T $tkdesk(cmd,xterm) -sb -T "patch <%S" -n patch -e pauseme patch -p1 <%S
      }}
!     {{ÄÉ²Ã} {
  	dsk_exec cat %S >%T
      }}
  }
  
  # ---------------------------------------------------------------------------
  # xemacs_load what ?where?
diff -Pcr tkdesk-1.2/tcldesk/configs/System tkdesk-1.2-jp/tcldesk/configs/System
*** tkdesk-1.2/tcldesk/configs/System	Mon Nov 15 07:07:53 1999
--- tkdesk-1.2-jp/tcldesk/configs/System	Fri Sep 15 17:47:38 2000
***************
*** 11,16 ****
--- 11,28 ----
  ###
  ### -------------------------------------------------------------------------
  
+ #set tkdesk(font,labels) Fixed_bold10
+ #set tkdesk(font,labels) Fixed_bold12
+ set tkdesk(font,labels) Fixed_bold14
+ #set tkdesk(font,labels) Fixed_bold16
+ #set tkdesk(font,labels) Fixed_bold24
+ 
+ #set tkdesk(font,entries)  Type10
+ #set tkdesk(font,entries)  Type12
+ set tkdesk(font,entries)  Type14
+ #set tkdesk(font,entries)  Type16
+ #set tkdesk(font,entries)  Type24
+ 
  ### =========================================================================
  ###  Color Settings
  ### =========================================================================
***************
*** 30,36 ****
  set tkdesk(color,focus)      $tkdesk(color,foreground)
  set tkdesk(color,nofocus)    $tkdesk(color,background)
  
! ### background, foreground, and insert colors of entry and text widgets:
  set tkdesk(color,entry_bg)   white
  set tkdesk(color,entry_fg)   black
  set tkdesk(color,text_bg)    white
--- 42,48 ----
  set tkdesk(color,focus)      $tkdesk(color,foreground)
  set tkdesk(color,nofocus)    $tkdesk(color,background)
  
! ### background, foureground, and insert colors of entry and text widgets:
  set tkdesk(color,entry_bg)   white
  set tkdesk(color,entry_fg)   black
  set tkdesk(color,text_bg)    white
***************
*** 59,78 ****
  ### =========================================================================
  
  ### Fonts for labels, buttons, menubuttons, and menus:
! set tkdesk(font,labels)       -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
! set tkdesk(font,listboxes)    $tkdesk(font,labels)
  set tkdesk(font,buttons)      $tkdesk(font,labels)
  set tkdesk(font,menubuttons)  $tkdesk(font,labels)
- #set tkdesk(font,menubuttons)  -*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,menus)        $tkdesk(font,menubuttons)
  
  ### Fonts for entries and text widgets (preferrably mono-spaced):
! set tkdesk(font,entries)      -*-lucidatypewriter-medium-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,text)         $tkdesk(font,entries)
  
  ### A mono-spaced font for table-like output (disk usage etc.):
! set tkdesk(font,mono)         -*-lucidatypewriter-medium-r-*-*-12-*-*-*-*-*-*-*
! #set tkdesk(font,mono)         -*-courier-medium-r-*-*-12-*-*-*-*-*-*-*
  
  ### The standard font for file listings, drectory menus, etc.:
  set tkdesk(font,file_lbs)     -*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*
--- 71,89 ----
  ### =========================================================================
  
  ### Fonts for labels, buttons, menubuttons, and menus:
! #set tkdesk(font,labels)       -*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
  set tkdesk(font,buttons)      $tkdesk(font,labels)
  set tkdesk(font,menubuttons)  $tkdesk(font,labels)
  set tkdesk(font,menus)        $tkdesk(font,menubuttons)
  
  ### Fonts for entries and text widgets (preferrably mono-spaced):
! #set tkdesk(font,entries)      -*-lucidatypewriter-medium-r-*-*-12-*-*-*-*-*-*-*
! set tkdesk(kanjiFont,entries) -*-fixed-*-*-*--14-*-*-*-*-*-jisx0208.1983-0
  set tkdesk(font,text)         $tkdesk(font,entries)
+ set tkdesk(kanjiFont,text)    -*-fixed-*-*-*--14-*-*-*-*-*-jisx0208.1983-0
  
  ### A mono-spaced font for table-like output (disk usage etc.):
! set tkdesk(font,mono)         $tkdesk(font,entries)
  
  ### The standard font for file listings, drectory menus, etc.:
  set tkdesk(font,file_lbs)     -*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*
***************
*** 101,110 ****
  set tkdesk(file_lb,width) 20
  set tkdesk(file_lb,height) 20
  
- ### On which side of the listboxes do you want the scrollbars to appear?
- ### (You may want to set tkdesk(dynamic_scrollbars) to 0 if you choose left.)
- set tkdesk(side_of_scrollbars) right
- 
  ### Wether or not you want all scrollbars of file browser and list
  ### windows to appear only when they are required:
  set tkdesk(dynamic_scrollbars) 1
--- 112,117 ----
***************
*** 132,138 ****
  ### most cases).
  
  set tkdesk(cmd,whoami) "whoami"		;# used to determine user's login name
! set tkdesk(cmd,du) "du -Dk"		        ;# for Disk Usage: usage in KB
  set tkdesk(cmd,df) "df"			;# for getting free disk space in KB
  set tkdesk(cmd,sort) "sort -rn"		;# for Disk Usage: list biggest first
  set tkdesk(cmd,cp) "cp -r"		;# copy recursively
--- 139,145 ----
  ### most cases).
  
  set tkdesk(cmd,whoami) "whoami"		;# used to determine user's login name
! set tkdesk(cmd,du) "du"		        ;# for Disk Usage: usage in KB
  set tkdesk(cmd,df) "df"			;# for getting free disk space in KB
  set tkdesk(cmd,sort) "sort -rn"		;# for Disk Usage: list biggest first
  set tkdesk(cmd,cp) "cp -r"		;# copy recursively
***************
*** 142,165 ****
  set tkdesk(cmd,symln) "ln -sf"		;# for symbolic links
  set tkdesk(cmd,touch) "touch"		;# to create new files
  set tkdesk(cmd,mkdir) "mkdir"	        ;# to create new directories
! set tkdesk(cmd,print) "lpr"             ;# default command for printing
! set tkdesk(cmd,ps) "ps"                 ;# default command for the job window
  set tkdesk(cmd,netscape) "netscape"     ;# command for surfing :-)
  set tkdesk(cmd,mail) "mail -s %s %a"    ;# mailing, %s: subject, %a: address
! set tkdesk(cmd,xterm) "xterm -sb"       ;# command to use as "xterm"
  
  ### The following specifies the command to be used when "Execute as
  ### Superuser" is selected in the "Options" menu, or when the dsk_exec_as_root
  ### function is used.  "%c" will be replaced with the actual command that
  ### is to be used:
  
! set tkdesk(cmd,su,exec) {xterm -sb -T "%c" -n "%c" -e su root -c "%c"}
  #set tkdesk(cmd,su,exec) {xterm -sb -T "%c" -n "%c" -e sudo %c}
  
  ### The same for viewing command output ("View output" checked):
  
! set tkdesk(cmd,su,view) {xterm -sb -T "%c" -n "%c" -e pauseme su root -c "%c"}
! #set tkdesk(cmd,su,view) {xterm -sb -T "%c" -n "%c" -e pauseme sudo %c}
  
  
  ### =========================================================================
--- 149,171 ----
  set tkdesk(cmd,symln) "ln -sf"		;# for symbolic links
  set tkdesk(cmd,touch) "touch"		;# to create new files
  set tkdesk(cmd,mkdir) "mkdir"	        ;# to create new directories
! set tkdesk(cmd,print) "lpr2"            ;# default command for printing
  set tkdesk(cmd,netscape) "netscape"     ;# command for surfing :-)
  set tkdesk(cmd,mail) "mail -s %s %a"    ;# mailing, %s: subject, %a: address
! set tkdesk(cmd,xterm) "kterm"           ;# command to use as "xterm"
  
  ### The following specifies the command to be used when "Execute as
  ### Superuser" is selected in the "Options" menu, or when the dsk_exec_as_root
  ### function is used.  "%c" will be replaced with the actual command that
  ### is to be used:
  
! set tkdesk(cmd,su,exec) {kterm -km euc -sb -T "%c" -n "%c" -e su root -c "%c"}
  #set tkdesk(cmd,su,exec) {xterm -sb -T "%c" -n "%c" -e sudo %c}
  
  ### The same for viewing command output ("View output" checked):
  
! set tkdesk(cmd,su,view) {kterm -km euc -sb -T "%c" -n "%c" -e pauseme su root -c "%c"}
! #set tkdesk(cmd,su,view) {kterm -km euc -sb -T "%c" -n "%c" -e pauseme sudo %c}
  
  
  ### =========================================================================
***************
*** 171,182 ****
  ### actually are people doing that!), note that you have to replace
  ### "builtin" with "xterm -e vi" or sth. similar.)
  
! set tkdesk(editor,cmd) "builtin"
! 
! ### The editor you want to use for editing the TkDesk config files
! ### (can also be "builtin" for TkDesk's own editor):
! 
! set tkdesk(conf_editor,cmd) $tkdesk(editor,cmd)
  
  ### Can your editor take more than one file on the command line?
  ### (The builtin can, so this is set to 1.)
--- 177,183 ----
  ### actually are people doing that!), note that you have to replace
  ### "builtin" with "xterm -e vi" or sth. similar.)
  
! set tkdesk(editor,cmd) "builtin"   ;# Of course! ;-)
  
  ### Can your editor take more than one file on the command line?
  ### (The builtin can, so this is set to 1.)
***************
*** 187,206 ****
  ### The following settings are only for the built-in editor:
  
  set tkdesk(editor,font)		    $tkdesk(font,text)
  set tkdesk(editor,default_geometry) "80x25"
! set tkdesk(editor,auto_indent)      1
! set tkdesk(editor,brace_indent)     1
! set tkdesk(editor,do_backups)       1
! set tkdesk(editor,load_once)        1
! set tkdesk(editor,cursor)           black
! 
! ###
! ### To use nedit-like shortcuts in the editor set the following to "nedit":
! 
! set tkdesk(editor,bindings) "classic"
  
  ###
! ### Preset the way the editor wraps long lines ("none", "char", or "word"):
  
  set tkdesk(editor,wrap) char
  
--- 188,202 ----
  ### The following settings are only for the built-in editor:
  
  set tkdesk(editor,font)		    $tkdesk(font,text)
+ set tkdesk(editor,kanjiFont)        $tkdesk(kanjiFont,text)
  set tkdesk(editor,default_geometry) "80x25"
! set tkdesk(editor,auto_indent) 1
! set tkdesk(editor,brace_indent) 1
! set tkdesk(editor,do_backups) 1
! set tkdesk(editor,cursor) black
  
  ###
! ### Preset the way the editor handles long lines (none, char, or word):
  
  set tkdesk(editor,wrap) char
  
***************
*** 245,253 ****
  ###
  ### Others:
  
! set tkdesk(history_size) 20	;# size of history popup menu entries
  
  set tkdesk(pad) 4		;# determines the widgets' borderwidth
  
  ### Paths for images (XPMs, XBMs, GIFs, P?Ms) and sounds used by TkDesk,
  ### individual directories are separated by ":":
--- 241,251 ----
  ###
  ### Others:
  
! set tkdesk(history_size) 30	;# size of history popup menus
! set tkdesk(ask_on_exit) 1	;# ask before exiting?
  
  set tkdesk(pad) 4		;# determines the widgets' borderwidth
+ set tkdesk(tearoff-menus) 0     ;# 1 if menus should be tear-off-able
  
  ### Paths for images (XPMs, XBMs, GIFs, P?Ms) and sounds used by TkDesk,
  ### individual directories are separated by ":":
***************
*** 266,280 ****
  set tkdesk(icon,editor) next/Write.xpm
  set tkdesk(icon,find) next/magnify.xpm
  
  ###
! ### Line width of the focus rectangle:
  
! set tkdesk(focus_width) 1
  
  ###
! ### Width of scrollbars:
  
! set tkdesk(scrollbar_width) 11
  
  ### Should desk items be managed by the window manager?  This would allow
  ### for having a different set of desk items on each virtual screen. If you
--- 264,283 ----
  set tkdesk(icon,editor) next/Write.xpm
  set tkdesk(icon,find) next/magnify.xpm
  
+ ### Follow Motif look & feel as closely as possible? (Affects for instance
+ ### the size of buttons and other not so important things):
+ 
+ set tk_strictMotif 1
+ 
  ###
! ### Do you want the focus to follow the mouse pointer?
  
! set tkdesk(focus_follows_mouse) 1
  
  ###
! ### Line width of the focus rectangle:
  
! set tkdesk(focus_width) 2
  
  ### Should desk items be managed by the window manager?  This would allow
  ### for having a different set of desk items on each virtual screen. If you
***************
*** 293,315 ****
  
  #set tkdesk(trashdir) ~/.trash
  
- ### The following defines the directory to be interpreted as the
- ### "desktop", i.e. files copied here will appear at the mouse pointer
- ### on the desktop:
- set tkdesk(deskdir) ~/desktop
- 
- ### You may change the following to either "tk" or "motif" to get the
- ### respective file selection dialog type.  If it's set to "default"
- ### the type depends on the value of "Options/Appearance/Strictly Motif".
- 
- set tkdesk(file_selector_type) "default"
- 
  ### If you want some Tcl code to be executed right after start-up
  ### has finished, uncomment and modify the following line:
  
! #set tkdesk(after_startup) {dsk_msg_info "Hi! How are you today?"}
  
  ### If you want some Tcl code to be executed right before shutdown
  ### of TkDesk, uncomment and modify the following line:
  
! #set tkdesk(at_exit) {dsk_msg_info "Bye, and have a nice day!"}
--- 296,307 ----
  
  #set tkdesk(trashdir) ~/.trash
  
  ### If you want some Tcl code to be executed right after start-up
  ### has finished, uncomment and modify the following line:
  
! #set tkdesk(after_startup) {cb_info "Hi! How are you today?"}
  
  ### If you want some Tcl code to be executed right before shutdown
  ### of TkDesk, uncomment and modify the following line:
  
! #set tkdesk(at_exit) {cb_info "Bye, and have a nice day!"}
diff -Pcr tkdesk-1.2/tcldesk/copy.tcl tkdesk-1.2-jp/tcldesk/copy.tcl
*** tkdesk-1.2/tcldesk/copy.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/copy.tcl	Fri Sep 15 17:46:39 2000
***************
*** 108,122 ****
  
      label $t.lFile
      if {$files == ""} {
! 	$t.lFile config -text "File (no files selected):"
      } else {
  	$t.lFile config \
!       -text "File ([expr $dsk_copy(fcnt) + 1] of [expr $dsk_copy(fmax) + 1]):"
      }
      pack $t.lFile -in $t.fff -side left
  
      if {$dsk_copy(fmax) > 0} {
!     	checkbutton $t.cbAll -text "all selected files" \
  		-padx $tkdesk(pad) -relief flat -variable dsk_copy(all)
      	pack $t.cbAll -in $t.fff -side right
      }
--- 108,122 ----
  
      label $t.lFile
      if {$files == ""} {
! 	$t.lFile config -text "¥Õ¥¡¥¤¥ë (¥Õ¥¡¥¤¥ë¤¬ÁªÂò¤µ¤ì¤Æ¤¤¤Þ¤»¤ó):"
      } else {
  	$t.lFile config \
!       -text "¥Õ¥¡¥¤¥ë ([expr $dsk_copy(fmax) + 1] ¤Î¤¦¤Á [expr $dsk_copy(fcnt) + 1]):"
      }
      pack $t.lFile -in $t.fff -side left
  
      if {$dsk_copy(fmax) > 0} {
!     	checkbutton $t.cbAll -text "Á´¤Æ¤Î¥Õ¥¡¥¤¥ë¤¬ÁªÂò" \
  		-padx $tkdesk(pad) -relief flat -variable dsk_copy(all)
      	pack $t.cbAll -in $t.fff -side right
      }
***************
*** 130,136 ****
      pack $t.fdf -in $t.fd -fill both -expand yes \
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
  
!     entry $t.eDest -width 40 -bd 2 -relief sunken
      pack $t.eDest -in $t.fdf -side bottom -fill x -expand yes -ipady 2
      if {$dest == ""} {
      	$t.eDest insert end $dsk_copy(ldest)
--- 130,136 ----
      pack $t.fdf -in $t.fd -fill both -expand yes \
  		-padx $tkdesk(pad) -pady $tkdesk(pad)
  
!     entry $t.eDest -width 52 -bd 2 -relief sunken
      pack $t.eDest -in $t.fdf -side bottom -fill x -expand yes -ipady 2
      if {$dest == ""} {
      	$t.eDest insert end $dsk_copy(ldest)
***************
*** 146,152 ****
  
      blt_drag&drop target $t.eDest handler file "dd_handle_text $t.eDest %v 1"
  
!     label $t.lDest -text "Destination:"
      pack $t.lDest -in $t.fdf -side left
  
      frame $t.fdlm
--- 146,152 ----
  
      blt_drag&drop target $t.eDest handler file "dd_handle_text $t.eDest %v 1"
  
!     label $t.lDest -text "Å¾Á÷Àè:"
      pack $t.lDest -in $t.fdf -side left
  
      frame $t.fdlm
***************
*** 160,166 ****
      menu [set m $t.mbDir.menu] \
  	    -postcommand "_dsk_dmenu $t.mbDir.menu $t.eDest"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$m add command -label "dummy"
  
      menubutton $t.mbHist -bd 2 -relief raised \
  		-bitmap @$tkdesk(library)/cb_tools/bitmaps/combo.xbm \
--- 160,166 ----
      menu [set m $t.mbDir.menu] \
  	    -postcommand "_dsk_dmenu $t.mbDir.menu $t.eDest"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$m add command -label "¥À¥ß¡¼"
  
      menubutton $t.mbHist -bd 2 -relief raised \
  		-bitmap @$tkdesk(library)/cb_tools/bitmaps/combo.xbm \
***************
*** 169,191 ****
  
      menu $t.mbHist.menu -postcommand "_dsk_hmenu $t.mbHist.menu $t.eDest"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$t.mbHist.menu add command -label "dummy"
  
      # ---- Buttons
  
      frame $t.fb -bd 1 -relief raised
      pack $t.fb -fill x
  
!     cb_button $t.bCopy -text " Copy " -command "dsk_copy_action copy" \
  	    -default 1
!     cb_button $t.bMove -text " Move " -command "dsk_copy_action move"
!     #button $t.bLink -text " Link " -command "dsk_copy_action link"
!     #button $t.bSymLink -text " SymLink " -command "dsk_copy_action symlink"
      
      cb_button $t.bOther -textvar dsk_copy_other \
  	    -command "dsk_copy_action other"
  
!     menubutton $t.mbOther -text " Other... " -menu [set m $t.mbOther.m] \
  	    -bitmap @$tkdesk(library)/cb_tools/bitmaps/combo.xbm \
  	    -bd 2 -relief raised 
      menu $m
--- 169,191 ----
  
      menu $t.mbHist.menu -postcommand "_dsk_hmenu $t.mbHist.menu $t.eDest"
  	# add dummy entry to work around bug in pre Tk 4.0p2:
! 	$t.mbHist.menu add command -label "¥À¥ß¡¼"
  
      # ---- Buttons
  
      frame $t.fb -bd 1 -relief raised
      pack $t.fb -fill x
  
!     cb_button $t.bCopy -text " ¥³¥Ô¡¼ " -command "dsk_copy_action copy" \
  	    -default 1
!     cb_button $t.bMove -text " °ÜÆ° " -command "dsk_copy_action move"
!     #button $t.bLink -text " ¥ê¥ó¥¯ " -command "dsk_copy_action link"
!     #button $t.bSymLink -text " ¥·¥ó¥Ü¥ê¥Ã¥¯¥ê¥ó¥¯ " -command "dsk_copy_action symlink"
      
      cb_button $t.bOther -textvar dsk_copy_other \
  	    -command "dsk_copy_action other"
  
!     menubutton $t.mbOther -text " ¤½¤ÎÂ¾... " -menu [set m $t.mbOther.m] \
  	    -bitmap @$tkdesk(library)/cb_tools/bitmaps/combo.xbm \
  	    -bd 2 -relief raised 
      menu $m
***************
*** 202,208 ****
  	}
      }
  
!     cb_button $t.bCancel -text " Cancel " -command  {
  		set dsk_copy(ldest) [.dsk_copy.eDest get]
  		set tkdesk(geometry,dsk_copy) [wm geometry .dsk_copy]
  		destroy .dsk_copy }
--- 202,208 ----
  	}
      }
  
!     cb_button $t.bCancel -text " ¼è¾Ã " -command  {
  		set dsk_copy(ldest) [.dsk_copy.eDest get]
  		set tkdesk(geometry,dsk_copy) [wm geometry .dsk_copy]
  		destroy .dsk_copy }
***************
*** 210,216 ****
  		-padx $tkdesk(pad) -pady $tkdesk(pad) -ipady 1
  		
      if {$dsk_copy(fmax) > 0} {
! 	button $t.bSkip -text " Skip " -command "dsk_copy_action skip"
  	pack $t.bSkip -in $t.fb -side right \
  		-padx $tkdesk(pad) -pady $tkdesk(pad) -ipady 1
      }
--- 210,216 ----
  		-padx $tkdesk(pad) -pady $tkdesk(pad) -ipady 1
  		
      if {$dsk_copy(fmax) > 0} {
! 	button $t.bSkip -text " ¥¹¥­¥Ã¥× " -command "dsk_copy_action skip"
  	pack $t.bSkip -in $t.fb -side right \
  		-padx $tkdesk(pad) -pady $tkdesk(pad) -ipady 1
      }
***************
*** 226,232 ****
      bind $t.eFile <Escape> "$t.bCancel.button invoke"
      bind $t.eDest <Escape> "$t.bCancel.button invoke"
  
!     wm minsize $t 486 167
      wm title $t "Copy, Move, Link Files"
      wm protocol $t WM_DELETE_WINDOW {.dsk_copy.bCancel.button invoke}
      
--- 226,232 ----
      bind $t.eFile <Escape> "$t.bCancel.button invoke"
      bind $t.eDest <Escape> "$t.bCancel.button invoke"
  
!     wm minsize $t 586 167
      wm title $t "Copy, Move, Link Files"
      wm protocol $t WM_DELETE_WINDOW {.dsk_copy.bCancel.button invoke}
      
***************
*** 399,406 ****
      if {[file exists $dest] && !$tkdesk(overwrite_always) && $cmd != "skip" \
  	&& $cmd != "other"} {
  	if ![file isdirectory $dest] {
! 	    if {[cb_dialog $t-ED "File exists" "$dest already exists!" \
! 			questhead 0 "Overwrite" "  Skip  "] == 1} {
  	   	set cmd skip
  	    }
  	} elseif {[llength $alist] == 1} {
--- 399,406 ----
      if {[file exists $dest] && !$tkdesk(overwrite_always) && $cmd != "skip" \
  	&& $cmd != "other"} {
  	if ![file isdirectory $dest] {
! 	    if {[cb_dialog $t-ED "¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Þ¤¹" "$dest ¤¬¤¹¤Ç¤ËÂ¸ºß¤·¤Þ¤¹¡ª" \
! 			questhead 0 "¾å½ñ¤­" "¼è¾Ã"] == 1} {
  	   	set cmd skip
  	    }
  	} elseif {[llength $alist] == 1} {
***************
*** 414,421 ****
  	    }
  	    set dfile [string trimright $dest /]/[file tail $alist]
  	    if [file exists $dfile] {
! 	    	if {[cb_dialog $t-ED "File exists" "$dfile already exists!" \
! 			questhead 0 "Overwrite" "  Skip  "] == 1} {
  	    	    set cmd skip
  	    	}
  	    }
--- 414,421 ----
  	    }
  	    set dfile [string trimright $dest /]/[file tail $alist]
  	    if [file exists $dfile] {
! 	    	if {[cb_dialog $t-ED "¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Þ¤¹" "$dest ¤¬¤¹¤Ç¤ËÂ¸ºß¤·¤Þ¤¹¡ª" \
! 			questhead 0 "¾å½ñ¤­" "¼è¾Ã"] == 1} {
  	    	    set cmd skip
  	    	}
  	    }
***************
*** 437,445 ****
  		set dfile $dir/[file tail $file]
  		if [file exists $dfile] {
  		    set ret [cb_dialog $t-ED "File exists" \
! 				"$dfile already exists!" questhead 0 \
! 				"Overwrite" "Overwrite all" \
! 				"  Skip  " " Cancel "]
  		    switch $ret {
  			1 {
  			    break
--- 437,445 ----
  		set dfile $dir/[file tail $file]
  		if [file exists $dfile] {
  		    set ret [cb_dialog $t-ED "File exists" \
! 				"$dfile ¤¬¤¹¤Ç¤ËÂ¸ºß¤·¤Þ¤¹¡ª" questhead 0 \
! 				"¾å½ñ¤­" "Á´¤Æ¾å½ñ¤­" \
! 				"¥¹¥­¥Ã¥×" "¼è¾Ã"]
  		    switch $ret {
  			1 {
  			    break
diff -Pcr tkdesk-1.2/tcldesk/cpanels.tcl tkdesk-1.2-jp/tcldesk/cpanels.tcl
*** tkdesk-1.2/tcldesk/cpanels.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/cpanels.tcl	Fri Sep 15 17:46:39 2000
***************
*** 76,86 ****
      # create lower part:
      frame $t.fBot -bd 1 -relief raised
      pack $t.fBot -fill x
!     button $t.bOK -text "Insert" -width 7 -command \
  	    "dsk_config_panel_return $which 1 $text_widget"
!     button $t.bCopy -text "Select" -width 7 -command \
  	    "dsk_config_panel_return $which 2 $text_widget"
!     button $t.bCancel -text "Close" -width 7 -command \
  	    "dsk_config_panel_return $which 0"
      pack $t.bOK $t.bCopy $t.bCancel -in $t.fBot -side left \
  	    -padx $tkdesk(pad) -pady $tkdesk(pad) -ipady 1
--- 76,86 ----
      # create lower part:
      frame $t.fBot -bd 1 -relief raised
      pack $t.fBot -fill x
!     button $t.bOK -text "ÁÞÆþ" -width 7 -command \
  	    "dsk_config_panel_return $which 1 $text_widget"
!     button $t.bCopy -text "ÁªÂò" -width 7 -command \
  	    "dsk_config_panel_return $which 2 $text_widget"
!     button $t.bCancel -text "ÊÄ¤¸¤ë" -width 7 -command \
  	    "dsk_config_panel_return $which 0"
      pack $t.bOK $t.bCopy $t.bCancel -in $t.fBot -side left \
  	    -padx $tkdesk(pad) -pady $tkdesk(pad) -ipady 1
***************
*** 266,272 ****
      
      frame $f.fPath
      pack $f.fPath -fill x
!     label $f.lPath -text "Path:" -width 5 -anchor w
      entry $f.ePath -bd 2 -width 5 -relief sunken
      
      set entry $f.ePath
--- 266,272 ----
      
      frame $f.fPath
      pack $f.fPath -fill x
!     label $f.lPath -text "¥Ñ¥¹:" -width 5 -anchor w
      entry $f.ePath -bd 2 -width 5 -relief sunken
      
      set entry $f.ePath
***************
*** 304,310 ****
  
      frame $f.fMask
      pack $f.fMask -fill x
!     label $f.lMask -text "Mask:" -width 5 -anchor e
      entry $f.eMask -width 5 -bd 2 -relief sunken
      set mentry $f.eMask
      $mentry insert end "*"
--- 304,310 ----
  
      frame $f.fMask
      pack $f.fMask -fill x
!     label $f.lMask -text "¥Þ¥¹¥¯:" -width 5 -anchor e
      entry $f.eMask -width 5 -bd 2 -relief sunken
      set mentry $f.eMask
      $mentry insert end "*"
diff -Pcr tkdesk-1.2/tcldesk/delete.tcl tkdesk-1.2-jp/tcldesk/delete.tcl
*** tkdesk-1.2/tcldesk/delete.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/delete.tcl	Fri Sep 15 17:46:39 2000
***************
*** 110,124 ****
  
      label $t.lFile
      if {$files == ""} {
! 	$t.lFile config -text "File (no files selected):"
      } else {
  	$t.lFile config \
!   -text "File ([expr $dsk_delete(fcnt) + 1] of [expr $dsk_delete(fmax) + 1]):"
!     }
      pack $t.lFile -in $t.fff -side left
  
      if {$dsk_delete(fmax) > 0} {
!     	checkbutton $t.cbAll -text "all selected files" \
  		-padx $tkdesk(pad) -relief flat -variable dsk_delete(all)
      	pack $t.cbAll -in $t.fff -side right
      }
--- 110,123 ----
  
      label $t.lFile
      if {$files == ""} {
! 	$t.lFile config -text "¥Õ¥¡¥¤¥ë¤¬ÁªÂò¤µ¤ì¤Æ¤¤¤Þ¤»¤ó:"
      } else {
  	$t.lFile config \
!   -text "¥Õ¥¡¥¤¥ë ([expr $dsk_delete(fmax) + 1] ¤Î¤¦¤Á [expr $dsk_delete(fcnt) + 1]):"}
      pack $t.lFile -in $t.fff -side left
  
      if {$dsk_delete(fmax) > 0} {
!     	checkbutton $t.cbAll -text "Á´¤Æ¤Î¥Õ¥¡¥¤¥ë¤òÁªÂò" \
  		-padx $tkdesk(pad) -relief flat -variable dsk_delete(all)
      	pack $t.cbAll -in $t.fff -side right
      }
***************
*** 128,141 ****
      frame $t.fb -bd 1 -relief raised
      pack $t.fb -fill x
  
!     button $t.bDelete -text "  Delete  " -command "dsk_delete_action delete"
!     checkbutton $t.cbReally -text "Delete permanently" \
  		-padx $tkdesk(pad) -relief flat -variable dsk_delete(really)
!     button $t.bSkip -text "  Skip  " -command "dsk_delete_action skip"
      if {$dsk_delete(fmax) < 1} {
  	$t.bSkip config -state disabled
      }
!     button $t.bCancel -text " Cancel " -command  {
  		set tkdesk(geometry,dsk_delete) [wm geometry .dsk_delete]
  		destroy .dsk_delete }
  
--- 127,140 ----
      frame $t.fb -bd 1 -relief raised
      pack $t.fb -fill x
  
!     button $t.bDelete -text " ºï½ü " -command "dsk_delete_action delete"
!     checkbutton $t.cbReally -text "¼ÂºÝ¤Ëºï½ü¤¹¤ë" \
  		-padx $tkdesk(pad) -relief flat -variable dsk_delete(really)
!     button $t.bSkip -text "¥¹¥­¥Ã¥×" -command "dsk_delete_action skip"
      if {$dsk_delete(fmax) < 1} {
  	$t.bSkip config -state disabled
      }
!     button $t.bCancel -text " ¼è¾Ã " -command  {
  		set tkdesk(geometry,dsk_delete) [wm geometry .dsk_delete]
  		destroy .dsk_delete }
  
***************
*** 149,156 ****
  
      #bind $t <Any-Enter> "+focus $t.eFile"
      
!     wm minsize $t 326 100
!     wm title $t "Delete Files"
      wm protocol $t WM_DELETE_WINDOW {.dsk_delete.bCancel invoke}
  
      dsk_place_window $t dsk_delete 470x98
--- 148,155 ----
  
      #bind $t <Any-Enter> "+focus $t.eFile"
      
!     wm minsize $t 376 100
!     wm title $t "delete file"
      wm protocol $t WM_DELETE_WINDOW {.dsk_delete.bCancel invoke}
  
      dsk_place_window $t dsk_delete 470x98
***************
*** 189,195 ****
      dsk_debug "dsk_delete_action: alist: $alist"
      if {$alist == "" || $alist == "{}" } {
  	dsk_bell
! 	cb_info "Nothing to $cmd!"
  	return
      }
  
--- 188,194 ----
      dsk_debug "dsk_delete_action: alist: $alist"
      if {$alist == "" || $alist == "{}" } {
  	dsk_bell
! 	cb_info "$cmd ¤¬¤¢¤ê¤Þ¤»¤ó¡ª"
  	return
      }
  
***************
*** 237,243 ****
  	skip {
  	    if $dsk_delete(all) return
  	    incr dsk_delete(fcnt)
! 	    $t.lFile config -text "File ([expr $dsk_delete(fcnt) + 1] of [expr $dsk_delete(fmax) + 1]):"
  	    if {$dsk_delete(fcnt) > $dsk_delete(fmax)} {
  		catch {$t.bCancel invoke}
  		return
--- 236,242 ----
  	skip {
  	    if $dsk_delete(all) return
  	    incr dsk_delete(fcnt)
! 	    $t.lFile config -text "¥Õ¥¡¥¤¥ë ([expr $dsk_delete(fmax) + 1] ¤Î¤¦¤Á [expr $dsk_delete(fcnt) + 1]):"
  	    if {$dsk_delete(fcnt) > $dsk_delete(fmax)} {
  		catch {$t.bCancel invoke}
  		return
***************
*** 253,261 ****
  	    foreach file $alist {
  		if ![dsk_check_perm $file] {
  		    dsk_errbell
! 		    set rc [cb_dialog $t-ED "Permission denied" \
! 		    "[file tail $file]:\nYou don't have permission to delete this item." \
! 			    error 0 " OK " "Cancel"]
  		    if {$rc == 1} {
  			return
  		    } else {
--- 252,260 ----
  	    foreach file $alist {
  		if ![dsk_check_perm $file] {
  		    dsk_errbell
! 		    set rc [cb_dialog $t-ED "¥Õ¥¡¥¤¥ë¤òÁàºî¤¹¤ë¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó" \
! 		    "[file tail $file]:\nÁªÂò¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤òºï½ü¤Ç¤­¤Þ¤»¤ó" \
! 			    error 0 " Î»²ò " " ¼è¾Ã "]
  		    if {$rc == 1} {
  			return
  		    } else {
***************
*** 270,276 ****
  	    if $dsk_delete(really) {
  		dsk_sound dsk_really_deleting
  	    	set out [dsk_bgexec "$tkdesk(cmd,rm) $alist" \
! 			"Deleting $anum $fll..."]
  	    } else {
  		
  		set dir [string trimright $dest /]
--- 269,275 ----
  	    if $dsk_delete(really) {
  		dsk_sound dsk_really_deleting
  	    	set out [dsk_bgexec "$tkdesk(cmd,rm) $alist" \
! 			"ºï½üÃæ $anum $fll..."]
  	    } else {
  		
  		set dir [string trimright $dest /]
***************
*** 280,295 ****
  			if [dsk_on_rofs $file] {
  			    # all files in $alist live on the same file system
  			    dsk_errbell
! 			    cb_error "The filesystem is mounted read-only."
  			    return
  			}
  			set rofs_checked 1
  		    }
  		    set dfile $dir/[file tail $file]
  		    if [file exists $dfile] {
! 			set ret [cb_dialog $t-ED "File exists" \
! 				"There already is a file \"[file tail $file]\" in the trash can!" questhead 0 \
! 				"Overwrite" "Overwrite all" "  Skip  "]
  			if {$ret == 1} {
  			    break
  			} elseif {$ret == 2} {
--- 279,294 ----
  			if [dsk_on_rofs $file] {
  			    # all files in $alist live on the same file system
  			    dsk_errbell
! 			    cb_error "¤³¤Î¥Õ¥¡¥¤¥ë¥·¥¹¥Æ¥à¤ÏÆÉ¤ß¹þ¤ßÀìÍÑ¤Ç¤¹¡£"
  			    return
  			}
  			set rofs_checked 1
  		    }
  		    set dfile $dir/[file tail $file]
  		    if [file exists $dfile] {
! 			set ret [cb_dialog $t-ED "Áàºî¤Ç¤­¤Þ¤»¤ó¤Ç¤·¤¿" \
! 				" \"[file tail $file]\" ¤Ï¤¹¤Ç¤Ë¤´¤ßÈ¢¤Î¤Ê¤«¤ËÂ¸ºß¤·¤Þ¤¹¡ª" questhead 0 \
! 				"¾å½ñ¤­" "Á´¤Æ¾å½ñ¤­" "¥¹¥­¥Ã¥×"]
  			if {$ret == 1} {
  			    break
  			} elseif {$ret == 2} {
***************
*** 297,303 ****
  			    if {$i > -1} {
  				set alist [lreplace $alist $i $i]
  			    } else {
! 				cb_error "?? Couldn't find $file !?"
  			    }
  			}
  		    }
--- 296,302 ----
  			    if {$i > -1} {
  				set alist [lreplace $alist $i $i]
  			    } else {
! 				cb_error "?? $file ¤ò¸«¤Ä¤±¤ë¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó ?"
  			    }
  			}
  		    }
***************
*** 323,335 ****
  
  		if $one {
  	    	    set out [dsk_bgexec "$tkdesk(cmd,mv) $alist $dest" \
! 				"Moving $anum $fll to the trash can..."]
  		} else {
  	    	    set out [dsk_bgexec "$tkdesk(cmd,cp) $alist $dest" \
! 				"Copying $anum $fll to the trash can..."]
  		    if {$out != "error" && $out != "break"} {
  	    	    	set out [dsk_bgexec "$tkdesk(cmd,rm) $alist" \
! 				"Deleting $anum $fll..."]
  		    }
  		}
  
--- 322,334 ----
  
  		if $one {
  	    	    set out [dsk_bgexec "$tkdesk(cmd,mv) $alist $dest" \
! 				" $anum $fll ¤ò¤´¤ßÈ¢¤Ë°ÜÆ°Ãæ..."]
  		} else {
  	    	    set out [dsk_bgexec "$tkdesk(cmd,cp) $alist $dest" \
! 				" $anum $fll ¤ò¤´¤ßÈ¢¤Ë¥³¥Ô¡¼Ãæ..."]
  		    if {$out != "error" && $out != "break"} {
  	    	    	set out [dsk_bgexec "$tkdesk(cmd,rm) $alist" \
! 				"$anum $fll ¤òºï½üÃæ..."]
  		    }
  		}
  
***************
*** 376,392 ****
      set alist [dskC_ls -p -a $tkdesk(trashdir)]
      set anum [llength $alist]
      if {$anum == 0} {
! 	cb_info "The trash can is empty."
      } else {
! 	if {[cb_okcancel "Empty trash can?\nThis will delete ALL files in the trash can!"] == 0} {
  	    dsk_sound dsk_really_deleting
  	    if {$anum == 1} {set fll "File"} {set fll "Files"}
! 	    #set tlist ""
! 	    #foreach f $alist {
! 	    #	 lappend tlist [string trimright \
! 	    #		 $tkdesk(trashdir)/$f " "]
! 	    #}
! 	    dsk_bgexec "$tkdesk(cmd,rm) .* *" "Deleting $anum $fll..."
  	    dsk_refresh $tkdesk(trashdir)
  	}
      }
--- 375,391 ----
      set alist [dskC_ls -p -a $tkdesk(trashdir)]
      set anum [llength $alist]
      if {$anum == 0} {
! 	cb_info "¤´¤ßÈ¢¤Ï¶õ¤Ç¤¹"
      } else {
! 	if {[cb_okcancel "¤´¤ßÈ¢¤ò¶õ¤Ë¤·¤Þ¤¹¤«¡©\n¤´¤ßÈ¢¤Ë¤¢¤ë¥Õ¥¡¥¤¥ë¤ÎÁ´¤Æ¤¬ºï½ü¤µ¤ì¤Þ¤¹¡ª"] == 0} {
  	    dsk_sound dsk_really_deleting
  	    if {$anum == 1} {set fll "File"} {set fll "Files"}
! 	    set tlist ""
! 	    foreach f $alist {
! 	    	 lappend tlist [string trimright \
! 	    		 $tkdesk(trashdir)/$f " "]
! 	    }
! 	    dsk_bgexec "$tkdesk(cmd,rm) $tlist" "$anum $fll ¤òºï½üÃæ..."
  	    dsk_refresh $tkdesk(trashdir)
  	}
      }
diff -Pcr tkdesk-1.2/tcldesk/doc/License tkdesk-1.2-jp/tcldesk/doc/License
*** tkdesk-1.2/tcldesk/doc/License	Mon Nov 15 07:07:48 1999
--- tkdesk-1.2-jp/tcldesk/doc/License	Fri Sep 15 17:46:39 2000
***************
*** 1,358 ****
  
!  TkDesk - A Desktop and File Manager for Unix and the X Window System
!  Copyright (C) 1996-1999  Christian Bolik
   
!  This program is free software; you can redistribute it and/or modify
!  it under the terms of the GNU General Public License as published by
!  the Free Software Foundation; either version 2 of the License, or
!  (at your option) any later version.
!  
!  This program is distributed in the hope that it will be useful,
!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!  GNU General Public License appended below for more details.
   
   --------------------------------------------------------------------
  
  
! 		    GNU GENERAL PUBLIC LICENSE
! 		       Version 2, June 1991
! 
!  Copyright (C) 1989, 1991 Free Software Foundation, Inc.
!                           675 Mass Ave, Cambridge, MA 02139, USA
!  Everyone is permitted to copy and distribute verbatim copies
!  of this license document, but changing it is not allowed.
! 
! 			    Preamble
! 
!   The licenses for most software are designed to take away your
! freedom to share and change it.  By contrast, the GNU General Public
! License is intended to guarantee your freedom to share and change free
! software--to make sure the software is free for all its users.  This
! General Public License applies to most of the Free Software
! Foundation's software and to any other program whose authors commit to
! using it.  (Some other Free Software Foundation software is covered by
! the GNU Library General Public License instead.)  You can apply it to
! your programs, too.
! 
!   When we speak of free software, we are referring to freedom, not
! price.  Our General Public Licenses are designed to make sure that you
! have the freedom to distribute copies of free software (and charge for
! this service if you wish), that you receive source code or can get it
! if you want it, that you can change the software or use pieces of it
! in new free programs; and that you know you can do these things.
! 
!   To protect your rights, we need to make restrictions that forbid
! anyone to deny you these rights or to ask you to surrender the rights.
! These restrictions translate to certain responsibilities for you if you
! distribute copies of the software, or if you modify it.
! 
!   For example, if you distribute copies of such a program, whether
! gratis or for a fee, you must give the recipients all the rights that
! you have.  You must make sure that they, too, receive or can get the
! source code.  And you must show them these terms so they know their
! rights.
! 
!   We protect your rights with two steps: (1) copyright the software, and
! (2) offer you this license which gives you legal permission to copy,
! distribute and/or modify the software.
! 
!   Also, for each author's protection and ours, we want to make certain
! that everyone understands that there is no warranty for this free
! software.  If the software is modified by someone else and passed on, we
! want its recipients to know that what they have is not the original, so
! that any problems introduced by others will not reflect on the original
! authors' reputations.
! 
!   Finally, any free program is threatened constantly by software
! patents.  We wish to avoid the danger that redistributors of a free
! program will individually obtain patent licenses, in effect making the
! program proprietary.  To prevent this, we have made it clear that any
! patent must be licensed for everyone's free use or not licensed at all.
! 
!   The precise terms and conditions for copying, distribution and
! modification follow.
! 
! 		    GNU GENERAL PUBLIC LICENSE
!    TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
! 
!   0. This License applies to any program or other work which contains
! a notice placed by the copyright holder saying it may be distributed
! under the terms of this General Public License.  The "Program", below,
! refers to any such program or work, and a "work based on the Program"
! means either the Program or any derivative work under copyright law:
! that is to say, a work containing the Program or a portion of it,
! either verbatim or with modifications and/or translated into another
! language.  (Hereinafter, translation is included without limitation in
! the term "modification".)  Each licensee is addressed as "you".
! 
! Activities other than copying, distribution and modification are not
! covered by this License; they are outside its scope.  The act of
! running the Program is not restricted, and the output from the Program
! is covered only if its contents constitute a work based on the
! Program (independent of having been made by running the Program).
! Whether that is true depends on what the Program does.
! 
!   1. You may copy and distribute verbatim copies of the Program's
! source code as you receive it, in any medium, provided that you
! conspicuously and appropriately publish on each copy an appropriate
! copyright notice and disclaimer of warranty; keep intact all the
! notices that refer to this License and to the absence of any warranty;
! and give any other recipients of the Program a copy of this License
! along with the Program.
! 
! You may charge a fee for the physical act of transferring a copy, and
! you may at your option offer warranty protection in exchange for a fee.
! 
!   2. You may modify your copy or copies of the Program or any portion
! of it, thus forming a work based on the Program, and copy and
! distribute such modifications or work under the terms of Section 1
! above, provided that you also meet all of these conditions:
! 
!     a) You must cause the modified files to carry prominent notices
!     stating that you changed the files and the date of any change.
! 
!     b) You must cause any work that you distribute or publish, that in
!     whole or in part contains or is derived from the Program or any
!     part thereof, to be licensed as a whole at no charge to all third
!     parties under the terms of this License.
! 
!     c) If the modified program normally reads commands interactively
!     when run, you must cause it, when started running for such
!     interactive use in the most ordinary way, to print or display an
!     announcement including an appropriate copyright notice and a
!     notice that there is no warranty (or else, saying that you provide
!     a warranty) and that users may redistribute the program under
!     these conditions, and telling the user how to view a copy of this
!     License.  (Exception: if the Program itself is interactive but
!     does not normally print such an announcement, your work based on
!     the Program is not required to print an announcement.)
! 
! These requirements apply to the modified work as a whole.  If
! identifiable sections of that work are not derived from the Program,
! and can be reasonably considered independent and separate works in
! themselves, then this License, and its terms, do not apply to those
! sections when you distribute them as separate works.  But when you
! distribute the same sections as part of a whole which is a work based
! on the Program, the distribution of the whole must be on the terms of
! this License, whose permissions for other licensees extend to the
! entire whole, and thus to each and every part regardless of who wrote it.
! 
! Thus, it is not the intent of this section to claim rights or contest
! your rights to work written entirely by you; rather, the intent is to
! exercise the right to control the distribution of derivative or
! collective works based on the Program.
! 
! In addition, mere aggregation of another work not based on the Program
! with the Program (or with a work based on the Program) on a volume of
! a storage or distribution medium does not bring the other work under
! the scope of this License.
! 
!   3. You may copy and distribute the Program (or a work based on it,
! under Section 2) in object code or executable form under the terms of
! Sections 1 and 2 above provided that you also do one of the following:
! 
!     a) Accompany it with the complete corresponding machine-readable
!     source code, which must be distributed under the terms of Sections
!     1 and 2 above on a medium customarily used for software interchange; or,
! 
!     b) Accompany it with a written offer, valid for at least three
!     years, to give any third party, for a charge no more than your
!     cost of physically performing source distribution, a complete
!     machine-readable copy of the corresponding source code, to be
!     distributed under the terms of Sections 1 and 2 above on a medium
!     customarily used for software interchange; or,
! 
!     c) Accompany it with the information you received as to the offer
!     to distribute corresponding source code.  (This alternative is
!     allowed only for noncommercial distribution and only if you
!     received the program in object code or executable form with such
!     an offer, in accord with Subsection b above.)
! 
! The source code for a work means the preferred form of the work for
! making modifications to it.  For an executable work, complete source
! code means all the source code for all modules it contains, plus any
! associated interface definition files, plus the scripts used to
! control compilation and installation of the executable.  However, as a
! special exception, the source code distributed need not include
! anything that is normally distributed (in either source or binary
! form) with the major components (compiler, kernel, and so on) of the
! operating system on which the executable runs, unless that component
! itself accompanies the executable.
! 
! If distribution of executable or object code is made by offering
! access to copy from a designated place, then offering equivalent
! access to copy the source code from the same place counts as
! distribution of the source code, even though third parties are not
! compelled to copy the source along with the object code.
! 
!   4. You may not copy, modify, sublicense, or distribute the Program
! except as expressly provided under this License.  Any attempt
! otherwise to copy, modify, sublicense or distribute the Program is
! void, and will automatically terminate your rights under this License.
! However, parties who have received copies, or rights, from you under
! this License will not have their licenses terminated so long as such
! parties remain in full compliance.
! 
!   5. You are not required to accept this License, since you have not
! signed it.  However, nothing else grants you permission to modify or
! distribute the Program or its derivative works.  These actions are
! prohibited by law if you do not accept this License.  Therefore, by
! modifying or distributing the Program (or any work based on the
! Program), you indicate your acceptance of this License to do so, and
! all its terms and conditions for copying, distributing or modifying
! the Program or works based on it.
! 
!   6. Each time you redistribute the Program (or any work based on the
! Program), the recipient automatically receives a license from the
! original licensor to copy, distribute or modify the Program subject to
! these terms and conditions.  You may not impose any further
! restrictions on the recipients' exercise of the rights granted herein.
! You are not responsible for enforcing compliance by third parties to
! this License.
! 
!   7. If, as a consequence of a court judgment or allegation of patent
! infringement or for any other reason (not limited to patent issues),
! conditions are imposed on you (whether by court order, agreement or
! otherwise) that contradict the conditions of this License, they do not
! excuse you from the conditions of this License.  If you cannot
! distribute so as to satisfy simultaneously your obligations under this
! License and any other pertinent obligations, then as a consequence you
! may not distribute the Program at all.  For example, if a patent
! license would not permit royalty-free redistribution of the Program by
! all those who receive copies directly or indirectly through you, then
! the only way you could satisfy both it and this License would be to
! refrain entirely from distribution of the Program.
! 
! If any portion of this section is held invalid or unenforceable under
! any particular circumstance, the balance of the section is intended to
! apply and the section as a whole is intended to apply in other
! circumstances.
! 
! It is not the purpose of this section to induce you to infringe any
! patents or other property right claims or to contest validity of any
! such claims; this section has the sole purpose of protecting the
! integrity of the free software distribution system, which is
! implemented by public license practices.  Many people have made
! generous contributions to the wide range of software distributed
! through that system in reliance on consistent application of that
! system; it is up to the author/donor to decide if he or she is willing
! to distribute software through any other system and a licensee cannot
! impose that choice.
! 
! This section is intended to make thoroughly clear what is believed to
! be a consequence of the rest of this License.
! 
!   8. If the distribution and/or use of the Program is restricted in
! certain countries either by patents or by copyrighted interfaces, the
! original copyright holder who places the Program under this License
! may add an explicit geographical distribution limitation excluding
! those countries, so that distribution is permitted only in or among
! countries not thus excluded.  In such case, this License incorporates
! the limitation as if written in the body of this License.
! 
!   9. The Free Software Foundation may publish revised and/or new versions
! of the General Public License from time to time.  Such new versions will
! be similar in spirit to the present version, but may differ in detail to
! address new problems or concerns.
! 
! Each version is given a distinguishing version number.  If the Program
! specifies a version number of this License which applies to it and "any
! later version", you have the option of following the terms and conditions
! either of that version or of any later version published by the Free
! Software Foundation.  If the Program does not specify a version number of
! this License, you may choose any version ever published by the Free Software
! Foundation.
! 
!   10. If you wish to incorporate parts of the Program into other free
! programs whose distribution conditions are different, write to the author
! to ask for permission.  For software which is copyrighted by the Free
! Software Foundation, write to the Free Software Foundation; we sometimes
! make exceptions for this.  Our decision will be guided by the two goals
! of preserving the free status of all derivatives of our free software and
! of promoting the sharing and reuse of software generally.
! 
! 			    NO WARRANTY
! 
!   11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
! FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
! OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
! PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
! OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
! MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
! TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
! PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
! REPAIR OR CORRECTION.
! 
!   12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
! WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
! REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
! INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
! OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
! TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
! YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
! PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGES.
! 
! 		     END OF TERMS AND CONDITIONS
! 
! 	Appendix: How to Apply These Terms to Your New Programs
! 
!   If you develop a new program, and you want it to be of the greatest
! possible use to the public, the best way to achieve this is to make it
! free software which everyone can redistribute and change under these terms.
! 
!   To do so, attach the following notices to the program.  It is safest
! to attach them to the start of each source file to most effectively
! convey the exclusion of warranty; and each file should have at least
! the "copyright" line and a pointer to where the full notice is found.
! 
!     <one line to give the program's name and a brief idea of what it does.>
!     Copyright (C) 19yy  <name of author>
! 
!     This program is free software; you can redistribute it and/or modify
!     it under the terms of the GNU General Public License as published by
!     the Free Software Foundation; either version 2 of the License, or
!     (at your option) any later version.
! 
!     This program is distributed in the hope that it will be useful,
!     but WITHOUT ANY WARRANTY; without even the implied warranty of
!     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!     GNU General Public License for more details.
! 
!     You should have received a copy of the GNU General Public License
!     along with this program; if not, write to the Free Software
!     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
! 
! Also add information on how to contact you by electronic and paper mail.
! 
! If the program is interactive, make it output a short notice like this
! when it starts in an interactive mode:
! 
!     Gnomovision version 69, Copyright (C) 19yy name of author
!     Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
!     This is free software, and you are welcome to redistribute it
!     under certain conditions; type `show c' for details.
! 
! The hypothetical commands `show w' and `show c' should show the appropriate
! parts of the General Public License.  Of course, the commands you use may
! be called something other than `show w' and `show c'; they could even be
! mouse-clicks or menu items--whatever suits your program.
! 
! You should also get your employer (if you work as a programmer) or your
! school, if any, to sign a "copyright disclaimer" for the program, if
! necessary.  Here is a sample; alter the names:
! 
!   Yoyodyne, Inc., hereby disclaims all copyright interest in the program
!   `Gnomovision' (which makes passes at compilers) written by James Hacker.
! 
!   <signature of Ty Coon>, 1 April 1989
!   Ty Coon, President of Vice
! 
! This General Public License does not permit incorporating your program into
! proprietary programs.  If your program is a subroutine library, you may
! consider it more useful to permit linking proprietary applications with the
! library.  If this is what you want to do, use the GNU Library General
! Public License instead of this License.
! 
  
--- 1,377 ----
  
!  TkDesk - UNIX¤ÈX¥¦¥£¥ó¥É¥¦¤Î¤¿¤á¤Î¥Ç¥¹¥¯¥È¥Ã¥×¤È¥Õ¥¡¥¤¥ë¥Þ¥Í¡¼¥¸¥ã¡¼
!   
!              Copyright (C) 1996-1998  Christian Bolik
! 
!  ¤³¤Î¥×¥í¥°¥é¥à¤Ï¡¢¥Õ¥ê¡¼¥½¥Õ¥È¥¦¥§¥¢¤Ç¤¢¤ê¡¢Free Software Foundation
!  ¤Ë¤è¤ëGNU°ìÈÌ¸øÍ­»ÈÍÑµöÂú½ñ¥Ð¡¼¥¸¥ç¥ó2¤Þ¤¿¤Ï¤½¤ì°Ê¹ß¤Î¥Ð¡¼¥¸¥ç¥ó¤Î
!  ¤â¤È¤Ç¼«Í³¤ËÊÑ¹¹¡¢ºÆÇÛÉÛ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
   
!  ¤³¤Î¥×¥í¥°¥é¥à¤ÏÍ­ÍÑ¤ËÇÛÉÛ¤µ¤ì¤ë¤³¤È¤òË¾¤ß¤Þ¤¹¡£
!  ¤·¤«¤·¡¢·è¤·¤ÆÍ­ÎÁ¤Ë¤·¤Æ¤Ï¤¤¤±¤Þ¤»¤ó¡£¾¦ÍÑÍøÍÑ¤ÇÍ­ÎÁ¤Ë¤·¤¿¤ê¡¢1ÉôÊ¬¤Î
!  ÍÑÅÓ¤Ë¸ÂÄê¤·¤Æ¤ÏÀäÂÐ¤Ë¤¤¤±¤Þ¤»¤ó¡£
!  °Ê²¼¤Ëµ­½Ò¤·¤Æ¤¢¤ëGNU°ìÈÌ¸øÍ­»ÈÍÑµöÂú½ñ¤ò¸«¤Æ¤¯¤À¤µ¤¤¡£
   
   --------------------------------------------------------------------
  
  
!                           GNU°ìÈÌ¸øÍ­»ÈÍÑµöÂú½ñ 
  
+                           1991Ç¯6·î¡¤¥Ð¡¼¥¸¥ç¥ó2
+                Copyright (C) 1989,1991 Free Software Foundation, Inc.
+                                675 Mass Ave, Cambridge, MA 02139, USA
+ 
+ ²¿¿Í¤â¡¢°Ê²¼¤ÎÆâÍÆ¤òÊÑ¹¹¤·¤Ê¤¤¤Ç¤½¤Î¤Þ¤ÞÊ£¼Ì¤¹¤ë¾ì¹ç¤Ë¸Â¤ê¡¢ËÜ»ÈÍÑµöÂú½ñ
+ ¤òÊ£À½¤·¤¿¤êÈÒÉÛ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ 
+ 
+ ¤Ï¤¸¤á¤Ë 
+ 
+ ¤Û¤È¤ó¤É¤Î¥½¥Õ¥È¥¦¥§¥¢¤Î»ÈÍÑµöÂú¤Ï¡¢¥½¥Õ¥È¥¦¥§¥¢¤ò¶¦Í­¤·¡¢ÊÑ¹¹¤¹¤ë¥æ¡¼¥¶
+ ¤Î¼«Í³¤òÃ¥¤¦¤³¤È¤ò°Õ¿Þ¤·¤Æ¤¤¤Þ¤¹¡£¤½¤ì¤ËÂÐ¤·¤Æ¡¢²æ¡¹¤ÎGNU°ìÈÌ¸øÍ­»ÈÍÑµö
+ Âú¤Ï¡¢¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤ò¶¦Í­¤·¤¿¤êÊÑ¹¹¤¹¤ë¼«Í³¤ò¥æ¡¼¥¶¤ËÊÝ¾Ú¤¹¤ë¤¿¤á
+ ¤Î¤â¤Î¡¢Â¨¤Á¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤¬¤½¤Î¥æ¡¼¥¶Á´¤Æ¤Ë¤È¤Ã¤Æ¥Õ¥ê¡¼¤Ç¤¢¤ë¤³¤È
+ ¤òÊÝ¾Ú¤¹¤ë¤¿¤á¤Î¤â¤Î¤Ç¤¹¡£
+ ËÜ»ÈÍÑµöÂú¤Ï¡¢Free Software Foundation¤Î¤Û¤È¤ó¤ÉÁ´¤Æ¤Î¥½¥Õ¥È¥¦¥§¥¢¤ËÅ¬ÍÑ
+ ¤µ¤ì¤ë¤À¤±¤Ç¤Ê¤¯¡¢¥×¥í¥°¥é¥à¤ÎºîÀ®¼Ô¤¬ËÜ»ÈÍÑµöÂú¤Ë°Í¤ë¤È¤·¤¿¾ì¹ç¤Î¤½¤Î
+ ¥×¥í¥°¥é¥à¤Ë¤âÅ¬ÍÑ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£(¤½¤ÎÂ¾¤Î Free Software Foundation
+ ¤Î¥½¥Õ¥È¥¦¥§¥¢¤Î¤¤¤¯¤Ä¤«¤Ï¡¢ËÜµöÂú½ñ¤Ç¤Ï¤Ê¤¯¡¢GNU¥é¥¤¥Ö¥é¥ê°ìÈÌ¸øÍ­»ÈÍÑ
+ µöÂú¤ÇÊÝ¸î¤µ¤ì¤Þ¤¹¡£)
+ ¤¢¤Ê¤¿¤Ï¼«Ê¬¤Î¥×¥í¥°¥é¥à¤Ë¤â¤³¤ì¤òÅ¬ÍÑ¤Ç¤­¤Þ¤¹¡£²æ¡¹¤¬¥Õ¥ê¡¼¡¦¥½¥Õ¥È
+ ¥¦¥§¥¢¤Ë¤Ä¤¤¤Æ¸À¤¦¾ì¹ç¤Ï¼«Í³¤Î¤³¤È¤Ë¸ÀµÚ¤·¤Æ¤¤¤ë¤Î¤Ç¤¢¤Ã¤Æ¡¢²Á³Ê¤Î¤³¤È¤Ç¤Ï
+ ¤¢¤ê¤Þ¤»¤ó¡£
+ ²æ¡¹¤Î°ìÈÌ¸øÍ­»ÈÍÑµöÂú¤Î³Æ¾ò¹à¤Ï¡¢¼¡¤Î»öÊÁ¤ò³Î¼Â¤Ë¼Â¸½¤¹¤ë¤³¤È¤òÌÜÅª¤È¤·¤Æ
+ Î©°Æ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ 
+ 
+ ¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤ÎÊ£À½Êª¤ò¼«Í³¤ËÈÒÉÛ¤Ç¤­¤ë¤³¤È(¤½¤·¤Æ¡¢Ë¾¤à¤Ê¤é¤¢¤Ê¤¿¤Î
+ ¤³¤Î¥µ¡¼¥Ó¥¹¤ËÂÐ¤·¤ÆÂÐ²Á¤òÀÁµá¤Ç¤­¤ë¤³¤È)¡£ 
+ ¥½¡¼¥¹¡¦¥³¡¼¥É¤ò¼ÂºÝ¤Ë¼õ¤±¼è¤ë¤«¡¢¤¢¤ë¤¤¤Ï¡¢´õË¾¤·¤µ¤¨¤¹¤ì¤Ð¤½¤ì¤òÆþ¼ê¤¹¤ë
+ ¤³¤È¤¬²ÄÇ½¤Ç¤¢¤ë¤³¤È¡£ Æþ¼ê¤·¤¿¥½¥Õ¥È¥¦¥§¥¢¤òÊÑ¹¹¤·¤¿¤ê¡¢¿·¤·¤¤¥Õ¥ê¡¼¡¦
+ ¥×¥í¥°¥é¥à¤Î°ìÉô¤È¤·¤Æ»ÈÍÑ¤Ç¤­¤ë¤³¤È¡£ 
+ °Ê¾å¤Î³ÆÆâÍÆ¤ò¹Ô¤Ê¤¦¤³¤È¤¬¤Ç¤­¤ë¤È¤¤¤¦¤³¤È¤ò¥æ¡¼¥¶¼«¿È¤¬ÃÎ¤Ã¤Æ¤¤¤ë¤³¤È¡£ 
+ 
+ ¤³¤Î¤è¤¦¤Ê¥æ¡¼¥¶¤Î¸¢Íø¤ò¼é¤ë¤¿¤á¤Ë¡¢²æ¡¹¤Ï¡¢²¿¿Í¤â¤³¤ì¤é¤Î¸¢Íø¤òÈÝÄê¤·¤¿
+ ¤ê¡¢¤¢¤ë¤¤¤ÏÊü´þ¤¹¤ë¤è¤¦¤Ë¥æ¡¼¥¶¤Ëµá¤á¤ë¤³¤È¤Ï¤Ç¤­¤Ê¤¤¤È¤¤¤¦À©¸Â¾ò¹à¤òÀß
+ ¤±¤ëÉ¬Í×¤¬¤¢¤ê¤Þ¤¹¡£¤³¤ì¤é¤ÎÀ©¸Â¾ò¹à¤Ï¡¢¥æ¡¼¥¶¤¬¡¢¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤Î
+ Ê£À½Êª¤òÈÒÉÛ¤·¤¿¤êÊÑ¹¹¤·¤è¤¦¤È¤¹¤ë¾ì¹ç¤Ë¤Ï¡¢¤½¤Î¥æ¡¼¥¶¼«¿È¤¬¼é¤ë¤Ù¤­µÁÌ³
+ ¤È¤â¤Ê¤ê¤Þ¤¹¡£Îã¤¨¤Ð¡¢¤¢¤Ê¤¿¤¬¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤ÎÊ£À½Êª¤òÈÒÉÛ¤¹¤ë¾ì¹ç¡¢
+ Í­½þ¤«Ìµ½þ¤«¤Ë¤«¤«¤ï¤é¤º¡¢¤¢¤Ê¤¿¤Ï¼«Ê¬¤Î»ý¤Ã¤Æ¤¤¤ë¸¢Íø¤òÁ´¤ÆÁê¼ê¤ËÍ¿¤¨¤Ê
+ ¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤¢¤Ê¤¿¤Ï¡¢Áê¼ê¤â¤Þ¤¿¥½¡¼¥¹¡¦¥³¡¼¥É¤ò¼õ¤±¼è¤Ã¤¿¤êÆþ¼ê¤Ç
+ ¤­¤ë¤È¤¤¤¦¤³¤È¤òÇ§¤á¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤µ¤é¤Ë¤¢¤Ê¤¿¤Ï¡¢Èà¤é¤¬¼«Ê¬¤¿¤Á¤Î
+ ¸¢Íø¤òÃÎ¤ë¤è¤¦¤Ë¡¢¤³¤ì¤é¤Î¾ò¹à¤òÃÎ¤é¤·¤á¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ 
+ 
+ ²æ¡¹¤Ï¼¡¤Î£²¤Ä¤ÎÊýË¡¤Ç¥æ¡¼¥¶¤Î¸¢Íø¤ò¼é¤ê¤Þ¤¹¡£(1)¥½¥Õ¥È¥¦¥§¥¢¤ËÃøºî¸¢¤ò
+ ¼çÄ¥¤·¡¢(2)ËÜ»ÈÍÑµöÂú¤Î¾ò¹à¤Î²¼¤Ç¥½¥Õ¥È¥¦¥§¥¢¤òÊ£À½¡¦ÈÒÉÛ¡¦ÊÑ¹¹¤¹¤ë¸¢Íø
+ ¤ò¥æ¡¼¥¶¤ËÍ¿¤¨¤Þ¤¹¡£ 
+ 
+ ¤Þ¤¿¡¢³ÆºîÀ®¼Ô¤ä²æ¡¹¼«¿È¤ò¼é¤ë¤¿¤á¤Ë¡¢ËÜ¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤¬ÌµÊÝ¾Ú¤Ç¤¢
+ ¤ë¤³¤È¤òÁ´¤Æ¤Î¿Í¡¹¤¬Î»²ò¤·¤Æ¤¤¤ëÉ¬Í×¤¬¤¢¤ê¤Þ¤¹¡£¤µ¤é¤Ë¡¢Â¾¤ÎÃ¯¤«¤Ë¤è¤Ã¤Æ
+ ÊÑ¹¹¤µ¤ì¤¿¥½¥Õ¥È¥¦¥§¥¢¤¬ÈÒÉÛ¤µ¤ì¤¿¾ì¹ç¡¢¼õÎÎ¼Ô¤Ï¤½¤Î¥½¥Õ¥È¥¦¥§¥¢¤¬¥ª¥ê¥¸
+ ¥Ê¥ë¡¦¥Ð¡¼¥¸¥ç¥ó¤Ç¤Ï¤Ê¤¤¤È¤¤¤¦¤³¤È¤òÃÎ¤é¤µ¤ì¤ëÉ¬Í×¤¬¤¢¤ê¤Þ¤¹¡£¤½¤ì¤Ï¡¢Â¾
+ ¿Í¤Î´ØÍ¿¤Ë¤è¤Ã¤Æ¸¶³«È¯¼Ô¤ËÂÐ¤¹¤ëÉ¾²Á¤¬±Æ¶Á¤µ¤ì¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¤¿¤á¤Ç¤¹¡£ 
+ 
+ ºÇ¸å¤Ë¡¢¤É¤Î¥Õ¥ê¡¼¡¦¥×¥í¥°¥é¥à¤â¥½¥Õ¥È¥¦¥§¥¢ÆÃµö¤ËÀä¤¨¤º¶¼¤«¤µ¤ì¤Æ¤¤¤Þ¤¹¡£
+ ²æ¡¹¤Ï¡¢¥Õ¥ê¡¼¡¦¥×¥í¥°¥é¥à¤ÎºÆÈÒÉÛ¼Ô¤¬¸Ä¿ÍÅª¤ËÆÃµö¸¢¤ò¼èÆÀ¤·¡¢»ö¼Â¾å¤½¤Î
+ ¥×¥í¥°¥é¥à¤ò¼«Ê¬¤Îºâ»º¤Ë¤·¤Æ¤·¤Þ¤¦¤È¤¤¤¦´í¸±¤òÈò¤±¤¿¤¤¤È´ê¤Ã¤Æ¤¤¤Þ¤¹¡£
+ ¤³¤ì¤òËÉ¤°¤¿¤á¤Ë²æ¡¹¤Ï¡¢¤¤¤º¤ì¤ÎÆÃµö¤â¡¢Ã¯¤Ç¤â¼«Í³¤Ë»ÈÍÑ¤Ç¤­¤ë¤è¤¦¤Ë»ÈÍÑ
+ µöÂú¤µ¤ì¤ë¤Ù¤­¤«¡¢¤¢¤ë¤¤¤Ï²¿¿Í¤ËÂÐ¤·¤Æ¤âÁ´¤¯»ÈÍÑ¤µ¤»¤Ê¤¤¤«¤Î¡¢¤¤¤º¤ì¤«¤Ë
+ ¤¹¤Ù¤­¤Ç¤¢¤ë¤³¤È¤òÌÀ¤é¤«¤Ë¤·¤Æ¤­¤Þ¤·¤¿¡£ 
+ 
+ Ê£¼Ì¡¦ÈÒÉÛ¡¦ÊÑ¹¹¤ËÂÐ¤¹¤ëÀµ³Î¤Ê¾ò¹à¤È¾ò·ï¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£ 
+ 
+ GNU°ìÈÌ¸øÍ­»ÈÍÑµöÂú¤Î²¼¤Ç¤ÎÊ£À½¡¢ÈÒÉÛ¡¢ÊÑ¹¹¤Ë´Ø¤¹¤ë¾ò¹à¤È¾ò·ï 
+ 
+   1.ËÜ»ÈÍÑµöÂú¤Ï¡¢ËÜ°ìÈÌ¸øÍ­»ÈÍÑµöÂú¤Î³Æ¾ò¹à¤Ë½¾¤Ã¤ÆÈÒÉÛ¤µ¤ì¤ë¤È¤¤¤¦Ãø
+     ºî¸¢¼Ô¤«¤é¤Î¹ðÃÎÊ¸¤¬É½¼¨¤µ¤ì¤Æ¤¤¤ë¥×¥í¥°¥é¥à¤ä¤½¤ÎÂ¾¤ÎºîÀ®Êª¤ËÅ¬ÍÑ
+     ¤µ¤ì¤Þ¤¹¡£°Ê²¼¤Ë¤ª¤¤¤Æ¡Ö¥×¥í¥°¥é¥à¡×¤È¤Ï¡¢¤½¤Î¤è¤¦¤Ê¥×¥í¥°¥é¥à¤äºî
+     À®Êª¤ò»Ø¤¹¤â¤Î¤È¤·¡¢¤Þ¤¿¡¢¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×¤È¤Ï¡¢¾å½Ò¤·¤¿¡Ö¥×¥í
+     ¥°¥é¥à¡×¼«¿È¡¢¤Þ¤¿¤Ï¡¢Ãøºî¸¢Ë¡²¼¤Ë¤ª¤±¤ëÁ´¤Æ¤ÎÇÉÀ¸Êª¡¨¤¹¤Ê¤ï¤Á¡¢¤½
+     ¤Î¡Ö¥×¥í¥°¥é¥à¡×¤ÎÁ´ÉôËô¤Ï°ìÉô¤ò¡¢¤½¤Î¤Þ¤ÞËô¤ÏÊÑ¹¹¤·¤Æ¡¢³î¤Ä¡¿Ëô¤Ï
+     Â¾¤Î¸À¸ì¤ËÊÑ´¹¤·¤Æ¡¢ÆâÉô¤ËÁÈ¤ß¹þ¤ó¤ÀºîÀ®Êª¤ò°ÕÌ£¤·¤Þ¤¹¡£(°Ê²¼¡¢¸À¸ì
+     ÊÑ´¹¤Ï¡ÖÊÑ¹¹¡×¤È¤¤¤¦ÍÑ¸ì¤ÎÃæ¤ËÌµ¾ò·ï¤Ë´Þ¤Þ¤ì¤ë¤â¤Î¤È¤·¤Þ¤¹¡£)ËÜ»ÈÍÑ
+     µöÂú¤Ë¤è¤Ã¤ÆµöÂú¤ò¼õ¤±¤ë¼Ô¤ò¡Ö¤¢¤Ê¤¿¡×¤È¸Æ¤Ó¤Þ¤¹¡£ 
+ 
+     Ê£À½¡¢ÈÒÉÛ¡¢ÊÑ¹¹°Ê³°¤Î¹Ô°Ù¤ÏËÜ»ÈÍÑµöÂú¤ÎÂÐ¾Ý¤È¤·¤Þ¤»¤ó¡£¤½¤ì¤é¤ÏËÜ
+     »ÈÍÑµöÂú¤ÎÈÏ°Ï³°¤Ç¤¹¡£¡Ö¥×¥í¥°¥é¥à¡×¤ò¼Â¹Ô¤µ¤»¤ë¹Ô°Ù¤Ë´Ø¤·¤ÆÀ©Ìó¤Ï
+     ¤¢¤ê¤Þ¤»¤ó¡£¡Ö¥×¥í¥°¥é¥à¡×¤Î½ÐÎÏ¤Ï¡¢(¡Ö¥×¥í¥°¥é¥à¡×¤ò¼Â¹Ô¤µ¤»¤ÆºîÀ®
+     ¤µ¤»¤¿¤«¤É¤¦¤«¤È¤ÏÌµ´Ø·¸¤Ë)¤½¤ÎÆâÍÆ¤¬¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×¤Ç¤¢¤ë¾ì¹ç
+     ¤Ë¸Â¤êËÜ»ÈÍÑµöÂú¤ÎÂÐ¾Ý¤È¤Ê¤ê¤Þ¤¹¡£¤³¤ì¤¬Åö¤Æ¤Ï¤Þ¤ë¤«¤É¤¦¤«¤Ï¡¢¡Ö¥×
+     ¥í¥°¥é¥à¡×¤¬²¿¤ò¤¹¤ë¤â¤Î¤«¤Ë°Í¤ê¤Þ¤¹¡£ 
+ 
+   2.¤¢¤Ê¤¿¤Ï¡¢¤É¤Î¤è¤¦¤ÊÇÞÂÎ¾å¤ØÊ£À½¤·¤è¤¦¤È¤¹¤ë¾ì¹ç¤Ç¤¢¤Ã¤Æ¤â¡¢Æþ¼ê¤·
+     ¤¿¡Ö¥×¥í¥°¥é¥à¡×¤Î¥½¡¼¥¹¡¦¥³¡¼¥É¤ò¤½¤Î¤Þ¤Þ¤ÎÆâÍÆ¤ÇÊ£¼Ì¤·¤¿¾å¤ÇÅ¬Àµ
+     ¤ÊÃøºî¸¢É½¼¨¤ÈÊÝ¾Ú¤ÎÊü´þ¤òÌÀ³Î¡¢³î¤ÄÅ¬Àµ¤ËÉÕµ­¤¹¤ë¾ì¹ç¤Ë¸Â¤ê¡¢Ê£À½
+      Ëô¤ÏÈÒÉÛ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤½¤Î¾ì¹ç¡¢ËÜ»ÈÍÑµöÂúµÚ¤ÓÌµÊÝ¾Ú¤Ë´Ø¤¹¤ë
+      µ­ºÜÉôÊ¬¤Ï¡¢Á´¤Æ¸µ¤Î¤Þ¤Þ¤Î·Á¤ÇÉ½¼¨¤·¤Æ¤¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¡Ö¥×¥í¥°¥é¥à¡×
+      ¤ÎÈÒÉÛÀè¤ËÂÐ¤·¤Æ¤Ï¡¢¡Ö¥×¥í¥°¥é¥à¡×¤È¶¦¤ËËÜ»ÈÍÑµöÂú½ñ¤Î¼Ì¤·¤òÅÏ¤·¤Æ
+      ¤¯¤À¤µ¤¤¡£Ê£À½Êª¤Î°ú¤­ÅÏ¤·¤ËÍ×¤¹¤ë¼ÂÈñ¤ÏÀÁµá¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+      ¤Þ¤¿¡¢¤¢¤Ê¤¿ÆÈ¼«¤ÎÊÝ¾Ú¤ò¹Ô¤Ê¤¦¾ì¹ç¤Ï¤½¤ì¤òÍ­½þ¤È¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ 
+ 
+   3.¼¡¤Î³Æ¾ò·ï¤òÁ´¤ÆËþ¤¿¤·¤Æ¤¤¤ë¸Â¤ê¡¢¤¢¤Ê¤¿¤Ï¡¢¡Ö¥×¥í¥°¥é¥à¡×Ëô¤Ï¤½¤Î
+     °ìÉôÊ¬¤òÊÑ¹¹¤·¤Æ¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×¤È¤¹¤ë¤³¤È¤¬¤Ç¤­¡¢¤µ¤é¤Ë¡¢ÊÑ¹¹
+     ÈÇ¤ä±¦ºîÀ®Êª¤ò¾åµ­Âè 2 ¹à¤Ë½¾¤Ã¤ÆÊ£À½Ëô¤ÏÈÒÉÛ¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ 
+ 
+     a.¥Õ¥¡¥¤¥ë¤òÊÑ¹¹¤·¤¿»Ý¤È¤½¤ÎÊÑ¹¹Æü¤È¤ò¡¢ÊÑ¹¹¤·¤¿¥Õ¥¡¥¤¥ë¾å¤ËÌÀ³Î
+       ¤ËÉ½¼¨¤¹¤ë¤³¤È¡£ 
+ 
+     b.ÊÑ¹¹¤·¤¿¤«ÈÝ¤«¤òÌä¤ï¤º¡¢ËÞ¤½¡Ö¥×¥í¥°¥é¥à¡×Ëô¤Ï¤½¤Î°ìÉôÊ¬¤òÆâÉô
+       ¤ËÁÈ¤ß¹þ¤ó¤Ç¤¤¤ë¤«Ëô¤Ï¤½¤ì¤«¤éÇÉÀ¸¤·¤¿À¸À®Êª¤òÈÒÉÛ¤¹¤ë¾ì¹ç¤Ë¤Ï¡¢
+       ¤½¤ÎÁ´ÂÎ¤òËÜ»ÈÍÑµöÂú¤Î¾ò¹à¤Ë½¾¤Ã¤ÆÂè»°¼Ô¤ØÌµ½þ¤Ç»ÈÍÑµöÂú¤¹¤ë¤³¤È¡£
+ 
+     c.ÊÑ¹¹¤·¤¿¥×¥í¥°¥é¥à¤¬¼Â¹Ô»þ¤ËÄÌ¾ï¤ÎÂÐÏÃÅª¤ÊÊýË¡¤Ç¥³¥Þ¥ó¥É¤òÆÉ¤à
+       ¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤È¤¹¤ì¤Ð¡¢ºÇ¤âÉáÄÌ¤ÎÊýË¡¤ÇÂÐÏÃÅª¤Ë¤½¤Î¥×¥í¥°
+       ¥é¥à¤ò¼Â¹Ô¤¹¤ë»þ¤Ë¡¢¼¡¤ÎÆâÍÆ¤ò¼¨¤¹Ê¸¸À¤¬¥×¥ê¥ó¥¿¤Ø°õ»ú¤µ¤ì¤ë¤«¡¢
+       °¿¤¤¤Ï²èÌÌ¤ËÉ½¼¨¤µ¤ì¤ë¤³¤È¡£ 
+       Å¬ÀÚ¤ÊÃøºî¸¢É½¼¨¡£
+       ÌµÊÝ¾Ú¤Ç¤¢¤ë¤³¤È(¤¢¤Ê¤¿¤¬ÆÈ¼«¤ËÊÝ¾Ú¤¹¤ë¾ì¹ç¤Ï¡¢¤½¤Î»Ý)¡£ 
+       ÈÒÉÛ¤ò¼õ¤±¤ë¼Ô¤â¡¢ËÜ»ÈÍÑµöÂú¤ÈÆ±°ì¤Î¾ò¹à¤Ë½¾¤Ã¤Æ¡Ö¥×¥í¥°¥é¥à¡×
+       ¤òºÆÈÒÉÛ¤Ç¤­¤ë¤³¤È¡£
+       ÈÒÉÛ¤ò¼õ¤±¤ë¼Ô¤¬ËÜ»ÈÍÑµöÂú½ñ¤Î¼Ì¤·¤ò»²¾È¤¹¤ëÊýË¡¡£
+       (Îã³°¤È¤·¤Æ¡¢¡Ö¥×¥í¥°¥é¥à¡×¼«ÂÎ¤ÏÂÐÏÃÅª¤Ç¤¢¤Ã¤Æ¤âµ¯Æ°»þ¤ÎÊ¸¸À¤ò
+       ÄÌ¾ï¤Ï°õ»ú¤·¤Ê¤¤¤Î¤Ê¤é¤Ð¡¢¤¢¤Ê¤¿¤Î¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×¤Ï¤³¤Î¤è
+       ¤¦¤ÊÊ¸¸À¤ò°õ»ú¤¹¤ëÉ¬Í×¤Ï¤¢¤ê¤Þ¤»¤ó¡£) 
+ 
+     ¤³¤ì¤é¤ÎÍ×·ï¤ÏÊÑ¹¹¤µ¤ì¤¿ºîÀ®Êª¤Ë¤âÁ´¤ÆÅ¬ÍÑ¤µ¤ì¤Þ¤¹¡£¤½¤ÎÊÑ¹¹ÈÇ¤Î°¿
+     ¤ëÉôÊ¬¤¬¡Ö¥×¥í¥°¥é¥à¡×¤ÎÇÉÀ¸Êª¤Ç¤Ï¤Ê¤¯¡¢¤·¤«¤â¤½¤ì¼«ÂÎÆÈÎ©¤Ç°Û¤Ê¤ë
+     ºîÀ®Êª¤À¤È¹çÍýÅª¤Ë¹Í¤¨¤é¤ì¤ë¾ì¹ç¡¢¤¢¤Ê¤¿¤¬¤½¤ì¤é¤òÊÌ¤ÎºîÀ®Êª¤È¤·¤Æ
+     ÈÒÉÛ¤·¤¿»þ¤Ï¡¢ËÜ»ÈÍÑµöÂú¤È¤½¤Î¾ò¹à¤Ï¤½¤ì¤é¤ÎÉôÊ¬¤Ë¤ÏÅ¬ÍÑ¤µ¤ì¤Þ¤»¤ó¡£
+     ¤·¤«¤·¡¢¤½¤ì¤é¤ò¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×¤Î°ìÉô¤È¤·¤ÆÈÒÉÛ¤¹¤ë¾ì¹ç¤Ï¡¢Á´ÂÎ
+     ¤¬ËÜ»ÈÍÑµöÂú¤Î¾ò¹à¤Ë½¾¤Ã¤ÆÈÒÉÛ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤é¤º¡¢»ÈÍÑµöÂú¤ò¼õ¤±¤ë
+     Â¾¤ÎÁ´¤Æ¤Î¼Ô¤ËÂÐ¤¹¤ëµöÂú¤â¥×¥í¥°¥é¥àÁ´ÂÎ¤Ë¤ï¤¿¤Ã¤ÆÍ¿¤¨¤é¤ì¤Ê¤±¤ì¤Ð
+     ¤Ê¤é¤º¡¢·ë²Ì¤È¤·¤Æ¡¢Ã¯¤¬½ñ¤¤¤¿¤«¤Ë¤«¤«¤ï¤é¤º¡¢Á´¤Æ¤ÎÉôÊ¬¤ËËÜ»ÈÍÑµöÂú
+     ¤¬Å¬ÍÑ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ 
+ 
+     ¤³¤Î¤è¤¦¤Ë¡¢ËÜ¾ò¹à¤Î°Õ¿Þ¤¹¤ë¤È¤³¤í¤Ï¡¢´°Á´¤Ë¤¢¤Ê¤¿¤Ë¤è¤Ã¤Æ½ñ¤«¤ì¤¿
+     ºîÀ®Êª¤Ë¤Ä¤¤¤Æ¡¢¸¢Íø¤òÍ×µá¤·¤¿¤ê¡¢¤¢¤Ê¤¿¤È¸¢Íø´Ø·¸¤òÁè¤¦¤³¤È¤Ç¤Ï¤¢
+     ¤ê¤Þ¤»¤ó¡£¤à¤·¤í¤½¤ÎÌÜÅª¤Ï¡¢ºîÀ®Êª¤¬¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×¤Ç¤¢¤ë¾ì¹ç
+     ¤Ë¤½¤ÎÇÉÀ¸Êª¤ä½¸¹çÊª¤ÎÈÒÉÛ¤òµ¬À©¤¹¤ë¤³¤È¤Ë¤¢¤ê¤Þ¤¹¡£ 
+ 
+     ¤µ¤é¤Ë¡¢¡Ö¥×¥í¥°¥é¥à¡×(Ëô¤Ï¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×)¤È¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×
+     ¤È¤Ï¤Ê¤é¤Ê¤¤Â¾¤Î¥×¥í¥°¥é¥à¤È¤ò¡¢Ã±¤ËÊÝ´É¤äÈÒÉÛ¤Î¤¿¤á¤ËÆ±°ì¤ÎÇÞÂÎ¾å¤Ë
+     ¤Þ¤È¤á¤Æµ­Ï¿¤·¤¿¤È¤·¤Æ¤â¡¢ËÜ»ÈÍÑµöÂú¤ÏÂ¾¤Î¥×¥í¥°¥é¥à¤Ë¤ÏÅ¬ÍÑ¤µ¤ì¤Þ¤»¤ó¡£ 
+ 
+   4.¤¢¤Ê¤¿¤Ï¡¢°Ê²¼¤Î¤¦¤Á¤¤¤º¤ì¤«1¤Ä¤òËþ¤¿¤¹¸Â¤ê¡¢¾åµ­Âè2¹àµÚ¤ÓÂè3¹à¤Ë½¾¤Ã
+     ¤Æ¡Ö¥×¥í¥°¥é¥à¡×(Ëô¤Ï¡¢¾åµ­Âè3¹à¤Ç¸ÀµÚ¤·¤Æ¤¤¤ë¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×)
+     ¤ò¥ª¥Ö¥¸¥§¥¯¥È¡¦¥³¡¼¥ÉËô¤Ï¼Â¹Ô²ÄÇ½¤Ê·Á¼°¤ÇÊ£À½µÚ¤ÓÈÒÉÛ¤¹¤ë¤³¤È¤¬¤Ç
+     ¤­¤Þ¤¹¡£ 
+ 
+     a.ÂÐ±þ¤¹¤ëµ¡³£ÆÉ¤ß¼è¤ê²ÄÇ½¤Ê¥½¡¼¥¹¡¦¥³¡¼¥É°ì¼°¤ò°ì½ï¤Ë°ú¤­ÅÏ¤¹¤³¤È¡£
+       ¤½¤Î¾ì¹ç¡¢¤½¤Î¥½¡¼¥¹¡¦¥³¡¼¥É¤Î°ú¤­ÅÏ¤·¤Ï¾åµ­Âè2¹àµÚ¤ÓÂè3¹à¤Ë½¾¤Ã¤Æ¡¢
+       ÄÌ¾ï¥½¥Õ¥È¥¦¥§¥¢¤Î¸ò´¹¤ËÍÑ¤¤¤é¤ì¤ëÇÞÂÎ¤Ç¹Ô¤Ê¤ï¤ì¤ë¤³¤È¡£
+        
+     b.¾¯¤Ê¤¯¤È¤â3Ç¯´Ö¤ÎÍ­¸ú´ü´Ö¤òÄê¤á¡¢³î¤Ä¤½¤Î´ü´ÖÆâ¤Ç¤¢¤ì¤ÐÂÐ±þ¤¹¤ë
+       µ¡³£ÆÉ¤ß¼è¤ê²ÄÇ½¤Ê¥½¡¼¥¹¡¦¥³¡¼¥É°ì¼°¤ÎÊ£À½¤ò¡¢¥½¡¼¥¹ÈÒÉÛ¤Ë´Ø¤ï¤ë¼ÂÈñ
+       °Ê¾å¤ÎÂÐ²Á¤òÍ×µá¤»¤º¤ËÄó¶¡¤¹¤ë»Ý¡¢µÚ¤Ó¤½¤Î¾ì¹ç¤Ë¤Ï¾åµ­ Âè2¹àµÚ¤ÓÂè3
+       ¹à¤Ë½¾¤Ã¤Æ¡¢ÄÌ¾ï¥½¥Õ¥È¥¦¥§¥¢¤Î¸ò´¹¤ËÍÑ¤¤¤é¤ì¤ëÇÞÂÎ¤ÇÄó¶¡¤µ¤ì¤ë»Ý¤ò
+       µ­ºÜ¤·¤¿½ñÌÌ¤ò¡¢Âè»°¼Ô¤Ë°ì½ï¤Ë°ú¤­ÅÏ¤¹¤³¤È¡£
+        
+     c.ÂÐ±þ¤¹¤ë¥½¡¼¥¹¡¦¥³¡¼¥ÉÈÒÉÛ¤Î¿½¤·½Ð¤ËºÝ¤·¤Æ¡¢¤¢¤Ê¤¿¤¬ÆÀ¤¿¾ðÊó¤ò°ì½ï
+       ¤Ë°ú¤­ÅÏ¤¹¤³¤È¡£(¤³¤ÎÁªÂò»è¤Ï¡¢±ÄÍø¤òÌÜÅª¤È¤·¤Ê¤¤ÈÒÉÛ¤Ç¤¢¤Ã¤Æ¡¢³î¤Ä
+       ¤¢¤Ê¤¿¤¬¾åµ­¤Î(b)¹à¤Ë´ð¤Å¤¤¤Æ¡¢¥ª¥Ö¥¸¥§¥¯¥È¡¦¥³¡¼¥É°¿ ¤¤¤Ï¼Â¹Ô²ÄÇ½
+       ·Á¼°¤Î¥×¥í¥°¥é¥à¤·¤«Æþ¼ê¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ë¸Â¤êÅ¬ÍÑ¤µ¤ì¤ëÁªÂò¹àÌÜ¤Ç¤¹¡£) 
+       
+     ¤Ê¤ª¡¢¥½¡¼¥¹¡¦¥³¡¼¥É¤È¤Ï¡¢ÊÑ¹¹ºî¶È¤ËÅ¬¤·¤¿µ­½Ò·Á¼°¤ò»Ø¤·¤Þ¤¹¡£¤Þ¤¿¡¢
+     ¼Â¹Ô²ÄÇ½·Á¼°¤Î¥Õ¥¡¥¤¥ë¤ËÂÐ±þ¤¹¤ë¥½¡¼¥¹¡¦¥³¡¼¥É°ì¼°¤È¤Ï¡¢¤½¤ì¤Ë´Þ¤Þ¤ì¤ë
+     Á´¥â¥¸¥å¡¼¥ë¤ËÂÐ±þ¤¹¤ëÁ´¤Æ¤Î¥½¡¼¥¹¡¦¥³¡¼¥É¡¢µÚ¤Ó¤¢¤é¤æ¤ë´ØÏ¢¤Î¥¤¥ó¥¿
+     ¥Õ¥§¡¼¥¹ÄêµÁ¥Õ¥¡¥¤¥ë¡¢µÚ¤Ó¼Â¹Ô¤ò²ÄÇ½¤Ë¤¹¤ë¥³¥ó¥Ñ¥¤¥ë¤È¥¤¥ó¥¹¥È¡¼¥ë¤Î
+     À©¸æ¤Ë´Ø¤¹¤ëµ­½Ò¤ò»Ø¤·¤Þ¤¹¡£ÆÃÊÌ¤ÊÎã³°¤È¤·¤Æ¡¢¼Â¹Ô²ÄÇ½¤Ê¥Õ¥¡¥¤¥ë¤¬Æ°ºî
+     ¤¹¤ë¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¡¦¥·¥¹¥Æ¥à¤Î¼çÍ×¤Ê¹½À®Í×ÁÇ(¥³¥ó¥Ñ¥¤¥é¡¢ ¥«¡¼¥Í¥ë
+     ¤Ê¤É)¤È¶¦¤Ë(¥½¡¼¥¹¡¦¥³¡¼¥ÉËô¤Ï¥Ð¥¤¥Ê¥ê¤Î¤É¤Á¤é¤«¤Ç)ÈÒÉÛ¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤Ë
+     ¤Ä¤¤¤Æ¤Ï¡¢¤½¤Î¹½À®Í×ÁÇ¼«ÂÎ¤¬¼Â¹Ô·Á¼°¤ËÉÕ¿ï¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ë¸Â¤ê¡¢ÈÒÉÛ
+     ¤µ¤ì¤ë¥½¡¼¥¹¡¦¥³¡¼¥É¤Ë´Þ¤á¤ëÉ¬Í×¤Ï¤¢¤ê¤Þ¤»¤ó¡£ 
+ 
+     ¼Â¹Ô²ÄÇ½·Á¼°¤Þ¤¿¤Ï¥ª¥Ö¥¸¥§¥¯¥È¡¦¥³¡¼¥É¤ÎÈÒÉÛ¤¬¡¢»Ø¼¨¤µ¤ì¤¿¾ì½ê¤«¤é¤Î
+     Ê£À½¤Î¤¿¤á¤Î¥¢¥¯¥»¥¹¸¢¤ÎÉêÍ¿¤Ç¤¢¤ë¾ì¹ç¡¢Æ±¤¸¾ì½ê¤«¤é¤Î¥½¡¼¥¹¡¦¥³¡¼¥É¤Î
+     Ê£À½¤Î¤¿¤á¤ÎÆ±Åù¤Ê¥¢¥¯¥»¥¹¸¢¤òÉêÍ¿¤¹¤ì¤Ð¡¢¤¿¤È¤¨Âè»°¼Ô¤Ë¥ª¥Ö¥¸¥§ ¥È¡¦
+     ¥³¡¼¥É¤È¶¦¤Ë¥½¡¼¥¹¤ÎÊ£À½¤ò¶¯¤¤¤Ê¤¯¤È¤â¡¢¥½¡¼¥¹¡¦¥³¡¼¥É¤òÈÒÉÛ ¤·¤¿¤â¤Î¤È
+     ¤ß¤Ê¤·¤Þ¤¹¡£ 
+ 
+   5.ËÜ»ÈÍÑµöÂú¤¬ÌÀ¼¨Åª¤ËµöÂú¤·¤Æ¤¤¤ë¾ì¹ç¤ò½ü¤­¡¢¤¢¤Ê¤¿¤Ï¡¢¡Ö¥×¥í¥°¥é¥à¡×¤ò
+     Ê£À½¡¢ÊÑ¹¹¡¢¥µ¥Ö¥é¥¤¥»¥ó¥¹¡¢ÈÒÉÛ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó¡£ËÜ»ÈÍÑµöÂú¤Ë½¾¤ï¤º
+     ¤Ë¡Ö¥×¥í¥°¥é¥à¡×¤òÊ£À½¡¢ÊÑ¹¹¡¢¥µ¥Ö¥é¥¤¥»¥ó¥¹¡¢ÈÒÉÛ¤·¤è¤¦¤È¤¹¤ë¹Ô°Ù¤Ï¡¢
+     ¤½¤ì¼«ÂÎ¤¬Ìµ¸ú¤Ç¤¢¤ê¡¢³î¤Ä¡¢ËÜ»ÈÍÑµöÂú¤¬¤¢¤Ê¤¿¤ËµöÂú¤·¤Æ¤¤¤ë¡Ö¥×¥í¥°¥é¥à¡×
+     ¤Î¸¢Íø¤ò¼«Æ°Åª¤Ë¾ÃÌÇ¤µ¤»¤Þ¤¹¡£¤½¤Î¾ì¹ç¡¢ËÜ»ÈÍÑµöÂú¤Ë½¾¤Ã¤Æ¤¢¤Ê¤¿¤«¤éÊ£À½
+     Êª¤ä¤½¤Î¸¢Íø¤òÆÀ¤Æ¤¤¤ëÂè»°¼Ô¤Ï¡¢ËÜ»ÈÍÑµöÂú¤Ë´°Á´¤Ë½¾¤Ã¤Æ¤¤¤ë¾ì¹ç¤Ë¸Â¤ê¡¢
+     °úÂ³¤­Í­¸ú¤Ê»ÈÍÑ¸¢¸Â¤ò»ý¤Ä¤â¤Î¤È¤·¤Þ¤¹¡£ 
+ 
+   6.¤¢¤Ê¤¿¤Ï¤Þ¤ÀÆ±°Õ¤Î°õ¤È¤·¤Æ½ðÌ¾¤·¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¢ËÜ»ÈÍÑµöÂú¤ò¼õ¤±Æþ¤ì¤ëÉ¬Í×
+     ¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤·¤«¤·¡¢¤¢¤Ê¤¿¤Ë¡Ö¥×¥í¥°¥é¥à¡×Ëô¤Ï¤½¤ÎÇÉÀ¸Êª¤òÊÑ¹¹Ëô¤Ï
+     ºÆÈÒÉÛ¤¹¤ëµö²Ä¤òÍ¿¤¨¤ë¤â¤Î¤ÏËÜ»ÈÍÑµöÂú°Ê³°¤Ë¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤³¤ì¤é¤Î¹Ô°Ù¤Ï¡¢
+     ¤¢¤Ê¤¿¤¬¤â¤·ËÜ»ÈÍÑµöÂú¤ò¼õ¤±Æþ¤ì¤Ê¤¤¤Î¤Ç¤¢¤ì¤Ð¡¢Ë¡Î§¤Ë¤è¤Ã¤Æ¶Ø¤¸¤é¤ì¤Þ¤¹¡£
+     ½¾¤Ã¤Æ¡¢¤¢¤Ê¤¿¤¬¡Ö¥×¥í¥°¥é¥à¡×(Ëô¤Ï¡Ö¥×¥í¥° ¥é¥àÀ¸À®Êª¡×)¤ÎÊÑ¹¹Ëô¤ÏÈÒÉÛ¤ò
+     ¹Ô¤¨¤Ð¡¢¤½¤ì¼«ÂÎ¤Ç¤¢¤Ê¤¿¤ÏËÜ»ÈÍÑµöÂú¤ò¼õ¤±Æþ¤ì¡¢³î¤Ä¡¢¡Ö¥×¥í¥°¥é¥à¡×Ëô¤Ï
+     ¤½¤Î¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×¤ÎÊ£À½¡¢ÈÒÉÛ¡¢ÊÑ¹¹¤Ë´Ø¤¹¤ë¤³¤ì¤é¤Î¾ò¹à¤È¾ò·ï¤Î
+     Á´¤Æ¤ò¼õ¤±Æþ¤ì¤¿¤³¤È¤ò¼¨¤·¤Þ¤¹¡£ 
+ 
+   7.¤¢¤Ê¤¿¤¬¡Ö¥×¥í¥°¥é¥à¡×(Ëô¤Ï¤½¤Î¡Ö¥×¥í¥°¥é¥àÀ¸À®Êª¡×)¤òºÆÈÒÉÛ¤¹¤ë¤È¼«Æ°Åª
+     ¤Ë¡¢¤½¤Î¼õÎÎ¼Ô¤Ï¡¢¸µ¤Î»ÈÍÑµöÂú¼Ô¤«¤é¡¢ËÜ»ÈÍÑµöÂú¤Î¾ò¹à¤Ë½¾¤Ã¤Æ¡Ö¥×¥í¥°¥é
+     ¥à¡×¤òÊ£À½¡¢ÈÒÉÛ¡¢ÊÑ¹¹¤¹¤ë¤³¤È¤òÆâÍÆ¤È¤¹¤ë»ÈÍÑµöÂú¤ò¼õ¤±¤¿¤â¤Î¤È¤·¤Þ¤¹¡£
+     ¤¢¤Ê¤¿¤Ï¡¢¼õÎÎ¼Ô¤ËµöÂú¤µ¤ì¤¿¸¢Íø¤Î¹Ô»È¤Ë¤Ä¤¤¤Æ¡¢¤µ¤é¤ËÀ©Ìó¤ò²Ã¤¨¤ë¤³¤È¤Ï
+     ¤Ç¤­¤Þ¤»¤ó¡£¤¢¤Ê¤¿¤Ë¤Ï¡¢Âè»°¼Ô¤ËËÜ»ÈÍÑµöÂú¤Î¼õ¤±Æþ¤ì¤ò¶¯¤¤¤ëÀÕÇ¤¤Ï¤¢¤ê¤Þ
+     ¤»¤ó¡£
+ 
+   8.ºÛÈ½½ê¤ÎÈ½·è¡¢Ëô¤ÏÆÃµö¿¯³²¤Î¿½¤·Î©¤Æ¡¢Ëô¤Ï(ÆÃµöÌäÂê¤Ë¸Â¤é¤Ê¤¤)²¿¤é¤«¤Î
+     ÍýÍ³¤Î·ë²Ì¤È¤·¤Æ¡¢¤¢¤Ê¤¿¤Ë²Ý¤»¤é¤ì¤¿¾ò·ï¤¬ËÜ»ÈÍÑµöÂú¤ÈÁêÆþ¤ì¤Ê¤¤¤â¤Î¤Ç
+     ¤¢¤Ã¤¿¤È¤·¤Æ¤â(ºÛÈ½½ê¤ÎÌ¿Îá¡¢·ÀÌó¡¢¤½¤ÎÂ¾¤Ë¤è¤ë¤â¤Î¤Ç¤¢¤ì)¡¢ËÜ»ÈÍÑµöÂú¤Î
+     ¾ò·ï¤¬ÌÈ½ü¤µ¤ì¤ë¤â¤Î¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£
+     ËÜ»ÈÍÑµöÂú¤Ë¤è¤ëÀÕÌ³¤È¡¢¤½¤ÎÂ¾¤Î²¿¤é¤«¤Î´ØÏ¢ÀÕÌ³¤òÆ±»þ¤ËËþ¤¿¤¹ÂÖÍÍ¤ÇÈÒÉÛ
+     ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Ê¤¤¤Ê¤é¤Ð¡¢¤¢¤Ê¤¿¤Ï¥×¥í¥°¥é¥à¡×¤òÁ´¤¯ÈÒÉÛ¤·¤Æ¤Ï¤¤¤±¤Þ¤»¤ó¡£
+     Îã¤¨¤Ð¡¢ÆÃµö¸¢¤ÎÆâÍÆ¤¬¡¢¤¢¤Ê¤¿¤«¤éÄ¾ÀÜËô¤Ï´ÖÀÜ¤ËÊ£À½¤ò¼õ¤±¼è¤Ã¤¿Á´¤Æ¤Î
+     ¿Í¤Ë»ÈÍÑÎÁ¤Î¤Ê¤¤¥×¥í¥°¥é¥à¤ÎºÆÈÒÉÛ¤òµö¤µ¤Ê¤¤¤â¤Î¤Ç¤¢¤ì¤Ð¡¢¤¢¤Ê¤¿¤¬¤«¤«¤ë
+     ÆÃµö¾å¤ÎÍ×ÀÁ¤ÈËÜ»ÈÍÑµöÂú¤ÎÎ¾Êý¤òËþÂ­¤µ¤»¤ëÊýË¡¤Ï¡¢¡Ö¥×¥í¥°¥é¥à¡×¤ÎÈÒÉÛ¤ò
+     ´°Á´¤ËÃÇÇ°¤¹¤ë¤³¤È¤À¤±¤Ç¤¹¡£
+ 
+     ËÜ¾ò¹à¤Î°¿¤ëÉôÊ¬¤¬²¿¤é¤«¤ÎÆÃÊÌ¤Ê¾õ¶·²¼¤ÇÌµ¸ú¤Þ¤¿¤ÏÅ¬ÍÑÉÔ²ÄÇ½¤Ë¤Ê¤Ã¤¿¾ì¹ç¡¢
+     ËÜ¾ò¹à¤Î¤½¤ÎÂ¾¤Î»Ä¤ê¤ÎÉôÊ¬¤¬Å¬ÍÑ¤µ¤ì¤ë¤è¤¦¤Ë°Õ¿Þ¤µ¤ì¤Æ¤ª¤ê¡¢ ¤Þ¤¿¡¢ËÜ¾ò¹à
+     ¤ÏÁ´ÂÎ¤È¤·¤Æ¤½¤ÎÂ¾¤Î¾õ¶·¤ËÅö¤Æ¤Ï¤Þ¤ë¤è¤¦¤Ë°Õ¿Þ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ 
+ 
+     ËÜ¾ò¹à¤ÎÌÜÅª¤Ï¡¢ÆÃµö¤ä¤½¤ÎÂ¾¤Îºâ»º¸¢¤ò¿¯³²¤·¤¿¤ê¡¢¤½¤Î¤è¤¦¤Ê¸¢Íø¤Ë´ð¤Å¤¯
+     ¼çÄ¥¤ÎÂÅÅöÀ­¤òÁè¤¦¤è¤¦¤Ë¤¢¤Ê¤¿¤Ë´«¤á¤ë¤³¤È¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£ËÜ¾ò¹à¤ÎÍ£°ì¤Î
+     ÌÜÅª¤Ï¡¢¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤ÎÈÒÉÛ¥·¥¹¥Æ¥à¤Î´°Á´À­¤ò¼é¤ë¤³¤È¤Ç¡¢¤½¤ì¤Ï
+     ¸øÍ­»ÈÍÑµöÂú¤Î¼ÂÁ©¤Ë¤è¤Ã¤ÆÍú¹Ô¤µ¤ì¤Þ¤¹¡£
+     Â¿¤¯¤Î¿Í¡¹¤¬¡¢¤³¤Î¥·¥¹¥Æ¥à¤Î°ì´Ó¤·¤¿Å¬ÍÑ¤ò¿®Íê¤·¤Æ¡¢¤³¤Î¥·¥¹¥Æ¥à¤òÄÌ¤¸¤Æ
+     ÈÒÉÛ¤µ¤ì¤Æ¤¤¤ëÉý¹­¤¤ÈÏ°Ï¤Î¥½¥Õ¥È¥¦¥§¥¢¤ËÀË¤·¤ß¤Ê¤¤¹×¸¥¤ò¤·¤Æ¤¯¤ì¤Þ¤·¤¿¡£
+     ºîÀ®¼Ô¤ä´óÂ£¼Ô¤¬Â¾¤Î²¿¤é¤«¤Î¥·¥¹¥Æ¥à¤òÄÌ¤¸¤Æ¥½¥Õ¥È¥¦¥§¥¢¤òÈÒÉÛ¤·¤¿¤¤¤È
+     ·è¤á¤ë¤³¤È¤ÏÈà¤é¤Î¼«Í³°Õ»Ö¤Ç¤¢¤ê¡¢»ÈÍÑµöÂú¤ò¼õ¤±¤ë¼Ô¤Ï¤½¤ÎÁªÂò¤ò¶¯¤¤¤ë
+     ¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£ 
+ 
+     ËÜ¾ò¹à¤Ï¡¢ËÜ»ÈÍÑµöÂú¤ÎÂ¾¤Î¾ò¹à¤Î°ÕÌ£ÆâÍÆ¤¬²¿¤Ç¤¢¤ë¤«¤ò´°Á´¤ËÌÀ¤é¤«¤Ë¤¹¤ë
+     ¤³¤È¤ò°Õ¿Þ¤·¤Æ¤¤¤Þ¤¹¡£ 
+ 
+   9.¡Ö¥×¥í¥°¥é¥à¡×¤ÎÈÒÉÛ¡¦»ÈÍÑ¤¬¡¢¤¢¤ë¹ñ¤Ë¤ª¤¤¤ÆÆÃµöËô¤ÏÃøºî¸¢¤ÇÊÝ¸î¤µ¤ì¤¿
+     ¥¤¥ó¥¿¥Õ¥§¡¼¥¹¤Î¤É¤Á¤é¤«¤ÇÀ©¸Â¤µ¤ì¤ë¾ì¹ç¡¢¡Ö¥×¥í¥°¥é¥à¡×¤òËÜ»ÈÍÑµöÂú²¼¤Ë
+     ¤ª¤¤¤¿¸¶Ãøºî¸¢ÊÝ»ý¼Ô¤Ï¡¢¤½¤Î¹ñ¤ò½ü³°¤¹¤ë»Ý¡¢ÌÀ¼¨Åª¤ÊÈÒÉÛÃÏ°èÀ©¸Â¤ò²Ã¤¨¡¢
+     ¤½¤ì°Ê³°¤Î(½ü³°¤µ¤ì¤Ê¤¤)¹ñ¤Ë¸ÂÄê¤·¤ÆÈÒÉÛ¤¬µö¤µ¤ì¤ë¤è¤¦¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+     ¤½¤Î¤è¤¦¤Ê¾ì¹ç¡¢¤½¤ÎÀ©¸Â¤òËÜ»ÈÍÑµöÂú¤ÎËÜÊ¸¤Ë¤¢¤¿¤«¤â½ñ¤«¤ì¤Æ¤¤¤ë¤«¤Î¤è¤¦
+     ¤ËËÜ»ÈÍÑµöÂú¤ÎÃæ¤ËÁÈ¤ßÆþ¤ì¤é¤ì¤ë¤â¤Î¤È¤·¤Þ¤¹¡£ 
+ 
+  10.Free Software Foundation¤Ï¿ï»þ¡¢ËÜ°ìÈÌ¸øÍ­»ÈÍÑµöÂú¤Î²þÄûÈÇ¡¢Ëô¤Ï¿·ÈÇ¤ò
+     ¸øÉ½¤¹¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£
+     ¤½¤Î¤è¤¦¤Ê¿·¤·¤¤¥Ð¡¼¥¸¥ç¥ó¤Ï¡¢¸½¹Ô¤Î¥Ð¡¼¥¸¥ç¥ó¤È´ðËÜÅª¤ËÊÑ¤ï¤ë¤È¤³¤í¤Ï
+     ¤¢¤ê¤Þ¤»¤ó¤¬¡¢¿·¤·¤¤ÌäÂê¤ä·ü°Æ»ö¹à¤Ë ÂÐ±þ¤¹¤ë¤¿¤á¤ËºÙÉô¤Ç¤Ï°Û¤Ê¤ë¤«¤â
+     ¤·¤ì¤Þ¤»¤ó¡£ 
+ 
+     ³Æ¥Ð¡¼¥¸¥ç¥ó¤Ï¡¢¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤Ë¤è¤Ã¤Æ¶èÊÌ¤·¤Þ¤¹¡£¡Ö¥×¥í¥°¥é¥à¡×Ãæ¤Ë
+     ËÜ»ÈÍÑµöÂú¤Î¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤Î»ØÄê¤¬¤¢¤ë¾ì¹ç¤Ï¡¢¤½¤Î»ØÄê¤µ¤ì¤¿¥Ð¡¼¥¸¥ç¥ó¤«¡¢
+     Ëô¤Ï¤½¤Î¸å¤Ë Free Software Foundation¤«¤é¸øÉ½¤µ¤ì¤Æ¤¤¤ë ¤¤¤º¤ì¤«¤Î
+     ¥Ð¡¼¥¸¥ç¥ó¤«¤é1¤Ä¤òÁªÂò¤·¤Æ¡¢¤½¤Î¾ò¹à¤È¾ò·ï¤Ë½¾¤Ã¤Æ¤¯¤À¤µ¤¤¡£¡Ö¥×¥í¥°¥é¥à¡×
+     Ãæ¤ËËÜ»ÈÍÑµöÂú¤Î¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤Î»ØÄê¤¬¤Ê¤¤¾ì¹ç¤Ï¡¢ Free Software Foundation
+     ¤¬¸øÉ½¤·¤¿¤É¤Î¥Ð¡¼¥¸¥ç¥ó¤Ç¤âÁªÂò¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ 
+ 
+  11.¡Ö¥×¥í¥°¥é¥à¡×¤Î°ìÉô¤òÈÒÉÛ¾ò·ï¤Î°Û¤Ê¤ëÂ¾¤Î¥Õ¥ê¡¼¡¦¥×¥í¥°¥é¥à¤ËÁÈ¤ß¹þ¤ß
+     ¤¿¤¤¾ì¹ç¤Ï¡¢¤½¤Î³«È¯¼Ô¤Ë½ñÌÌ¤Çµö²Ä¤òµá¤á¤Æ¤¯¤À¤µ¤¤¡£Free Software Foundation
+     ¤¬Ãøºî¸¢¤ò»ý¤Ã¤Æ¤¤¤ë¥½¥Õ¥È¥¦¥§¥¢¤Ë¤Ä¤¤¤Æ¤Ï¡¢Free Software Foundation¤Ø
+     ½ñÌÌ¤òÄó½Ð¤·¤Æ¤¯¤À¤µ¤¤¡£
+     ¤³¤Î¤è¤¦¤Ê¾ì¹ç¤ËÂÐ±þ¤¹¤ë¤¿¤á¤Ë²æ¡¹¤ÏÎã³°Åª½èÍý¤ò¤¹¤ë¤³¤È¤â¤¢¤ê¤Þ¤¹¤¬¡¢
+     ¤½¤ÎÈ½ÃÇ´ð½à¤È¤Ê¤ë¤Î¤Ï¡¢¼¡¤Î2 ¤Ä¤ÎÌÜÉ¸¤Î¼Â¸½¤Ë¹çÃ×¤¹¤ë¤«ÈÝ¤«¤È¤¤¤¦ÅÀ¤Ç¤¹¡£
+     Â¨¤Á¡¢£±¤Ä¤Ï²æ¡¹¤Î¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤ÎÁ´¤Æ¤ÎÇÉÀ¸Êª¤ò¥Õ¥ê¡¼¤Ê¾õÂÖ¤Ë
+     ÊÝ¤Ä¤³¤È¤Ç¤¢¤ê¡¢¤â¤¦£±¤Ä¤Ï¥½¥Õ¥È¥¦¥§¥¢¤Î¶¦Í­¤ÈºÆÍøÍÑ¤È¤ò¹­¤¯Â¥¿Ê¤µ¤»¤ë
+     ¤³¤È¤Ç¤¹¡£ 
+ 
+ ÌµÊÝ¾Ú 
+ 
+  12.¡Ö¥×¥í¥°¥é¥à¡×¤ÏÌµ½þ¤Ç»ÈÍÑµöÂú¤µ¤ì¤Þ¤¹¤Î¤Ç¡¢Å¬ÍÑË¡Îá¤ÎÈÏ°ÏÆâ¤Ç¡¢
+     ¡Ö¥×¥í¥°¥é¥à¡×¤ÎÊÝ¾Ú¤Ï°ìÀÚ¤¢¤ê¤Þ¤»¤ó¡£Ãøºî¸¢¼Ô¤ä¤½¤ÎÂ¾¤ÎÂè»°¼Ô¤Ï
+     Á´¤¯ÌµÊÝ¾Ú¤Ç¡Ö¤½¤Î¤Þ¤Þ¡×¤Î¾õÂÖ¤Ç¡¢³î¤Ä¡¢ÌÀ¼¨¤«°ÅÌÛ¤Ç¤¢¤ë¤«¤òÌä¤ï¤º
+     °ìÀÚ¤ÎÊÝ¾Ú¤ò¤Ä¤±¤Ê¤¤¤ÇÄó¶¡¤¹¤ë¤â¤Î¤È¤·¤Þ¤¹¡£
+     ¤³¤³¤Ç¤¤¤¦ÊÝ¾Ú¤È¤Ï¡¢»Ô¾ìÀ­¤äÆÃÄêÌÜÅªÅ¬¹çÀ­¤Ë¤Ä¤¤¤Æ¤Î°ÅÌÛ¤ÎÊÝ¾Ú¤â´Þ¤Þ¤ì
+     ¤Þ¤¹¤¬¡¢¤½¤ì¤Ë¸ÂÄê¤µ¤ì¤ë¤â¤Î¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£¡Ö¥×¥í¥°¥é¥à¡×¤ÎÉÊ¼Á¤äÀ­Ç½
+     ¤Ë´Ø¤¹¤ëÁ´¤Æ¤Î¥ê¥¹¥¯¤Ï¤¢¤Ê¤¿¤¬Éé¤¦¤â¤Î¤È¤·¤Þ¤¹¡£
+     ¡Ö¥×¥í¥°¥é¥à¡×¤Ë·ç´Ù¤¬¤¢¤ë¤È¤ï¤«¤Ã¤¿¾ì¹ç¡¢¤½¤ì¤ËÈ¼¤¦°ìÀÚ¤ÎÇÉÀ¸ÈñÍÑ¤ä
+     ½¤Íý¡¦ÄûÀµ¤ËÍ×¤¹¤ëÈñÍÑ¤ÏÁ´¤Æ¤¢¤Ê¤¿¤ÎÉéÃ´¤È¤·¤Þ¤¹¡£ 
+ 
+  13.Å¬ÍÑË¡Îá¤ÎÄê¤á¡¢Ëô¤Ï½ñÌÌ¤Ë¤è¤ë¹ç°Õ¤¬¤¢¤ë¾ì¹ç¤ò½ü¤­¡¢Ãøºî¸¢¼Ô¤ä¾åµ­µöÂú
+     ¤ò¼õ¤±¤Æ¡Ö¥×¥í¥°¥é¥à¡×¤ÎÊÑ¹¹¡¦ºÆÈÒÉÛ¤ò°Ù¤·ÆÀ¤ëÂè»°¼Ô¤Ï¡¢¡Ö¥×¥í¥°¥é¥à¡×
+     ¤ò»ÈÍÑ¤·¤¿¤³¤È¡¢¤Þ¤¿¤Ï»ÈÍÑ¤Ç¤­¤Ê¤¤¤³¤È¤Ëµ¯°ø¤¹¤ë°ìÀÚ¤ÎÂ»³²¤Ë¤Ä¤¤¤Æ²¿¤é
+     ¤ÎÀÕÇ¤¤âÉé¤¤¤Þ¤»¤ó¡£Ãøºî¸¢¼Ô¤äÁ°µ­¤ÎÂè»°¼Ô¤¬¡¢¤½¤Î¤è¤¦¤ÊÂ»³²¤ÎÈ¯À¸¤¹¤ë
+     ²ÄÇ½À­¤Ë¤Ä¤¤¤ÆÃÎ¤é¤µ¤ì¤Æ¤¤¤¿¾ì¹ç¤Ç¤âÆ±ÍÍ¤Ç¤¹¡£¤Ê¤ª¡¢¤³¤³¤Ç¤¤¤¦Â»³²¤Ë¤Ï
+     ÄÌ¾ïÂ»³²¡¢ÆÃÊÌÂ»³²¡¢¶öÈ¯Â»³²¡¢´ÖÀÜÂ»³²¤¬´Þ¤Þ¤ì¤Þ¤¹(¥Ç¡¼¥¿¤Î¾Ã¼º¡¢Ëô¤Ï
+     ¤½¤ÎÀµ³Î¤µ¤ÎÁÓ¼º¡¢¤¢¤Ê¤¿¤äÂè»°¼Ô¤¬Èï¤Ã¤¿Â»¼º¡¢Â¾¤Î¥×¥í¥°¥é¥à¤È¤Î
+     ¥¤¥ó¥¿¥Õ¥§¡¼¥¹¤ÎÉÔÅ¬¹ç²½¡¢Åù¤â´Þ¤Þ¤ì¤Þ¤¹¤¬¡¢¤³¤ì¤Ë¸ÂÄê¤µ¤ì¤ë¤â¤Î¤Ç¤Ï
+     ¤¢¤ê¤Þ¤»¤ó)¡£ 
+ 
+ °Ê¾å
+ 
+ Ãí°Õ 
+ 
+ ±ÑÊ¸Ê¸½ñ(GNU General Public Licence)¤òÀµ¼°Ê¸½ñ¤È¤¹¤ë¡£¤³¤ÎÏÂÊ¸Ê¸½ñ¤ÏÊÛ¸î»Î
+ ¤Î°Õ¸«¤òºÎ¤êÆþ¤ì¤Æ¡¢¤Ç¤­¤ë¤À¤±Àµ³Î¤Ë±ÑÊ¸Ê¸½ñ¤òËÝÌõ¤·¤¿¤â¤Î¤Ç¤¢¤ë¤¬¡¢Ë¡Î§Åª
+ ¤ËÍ­¸ú¤Ê·ÀÌó½ñ¤Ç¤Ï¤Ê¤¤¡£ 
+ 
+ ÏÂÊ¸Ê¸½ñ¼«ÂÎ¤ÎºÆÇÛÉÛ¤Ë´Ø¤·¤Æ 
+ 
+ ¤¤¤«¤Ê¤ëÇÞÂÎ¤Ç¤â¼¡¤Î¾ò·ï¤¬¤¹¤Ù¤ÆËþ¤¿¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ë¸Â¤ê¡¢ËÜÏÂÊ¸Ê¸½ñ¤ò
+ ¤½¤Î¤Þ¤ÞÊ£¼Ì¤·ÇÛÉÛ¤¹¤ë¤³¤È¤òµö²Ä¤¹¤ë¡£
+ ¤Þ¤¿¡¢¤¢¤Ê¤¿¤ÏÂè»°¼Ô¤ËÂÐ¤·¤ÆËÜµö²Ä¹ðÃÎ¤ÈÆ±°ì¤Îµö²Ä¤òÍ¿¤¨¤ë¾ì¹ç¤Ë¸Â¤ê¡¢
+ ºÆÇÛÉÛ¤¹¤ë¤³¤È¤¬µö²Ä¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ 
+ 
+ ¼õÎÎ¡¢ÇÛÉÛ¤µ¤ì¤¿¥³¥Ô¡¼¤ËÃøºî¸¢É½¼¨¤ª¤è¤ÓËÜµöÂú¹ðÃÎ¤¬Á°¤â¤Ã¤ÆºÜ¤»¤é¤ì¤Æ¤¤¤ë
+ ¤³¤È¡£ 
+ ¥³¥Ô¡¼¤Î¼õÎÎ¼Ô¤¬¤µ¤é¤ËºÆÇÛÉÛ¤¹¤ë¾ì¹ç¡¢¤½¤ÎÇÛÉÛ¼Ô¤¬ËÜ¹ðÃÎ¤ÈÆ±¤¸µö²Ä¤òÍ¿¤¨¤Æ
+ ¤¤¤ë¤³¤È¡£ 
+ ÏÂÊ¸Ê¸½ñ¤ÎËÜÊ¸¤ò²þÊÑ¤·¤Ê¤¤¤³¤È¡£ 
+ 
+ ¤¢¤Ê¤¿¤Î¿·¤·¤¤¥×¥í¥°¥é¥à¤Ë¤³¤ì¤é¤Î¾ò¹à¤òÅ¬ÍÑ¤¹¤ëÊýË¡ 
+ 
+ ¤¢¤Ê¤¿¤¬¿·¤·¤¯¥×¥í¥°¥é¥à¤òºîÀ®¤·¡¢¤½¤ì¤ò¸øÍÑ¤Ë¶¡¤·¤¿¤¤¾ì¹ç¤Ï¡¢¥×¥í¥°¥é¥à
+ ¤ò¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤Ë¤·¤Æ¡¢Á´¤Æ¤Î¿Í¡¹¤¬°Ê¾å¤Î³Æ¾ò¹à¤Ë½¾¤Ã¤Æ¤³¤ì¤ò
+ ºÆÈÒÉÛ¤äÊÑ¹¹¤ò¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¤è¤¦¤Ë¤¹¤ë¤Î¤¬ºÇÎÉ¤ÎÊýË¡¤Ç¤¹¡£ 
+ 
+ ¤½¤¦¤¹¤ë¤¿¤á¤Ë¤Ï¡¢¥×¥í¥°¥é¥à¤Ë°Ê²¼¤ÎÉ½¼¨¤ò¤·¤Æ¤¯¤À¤µ¤¤¡£¤½¤Î¾ì¹ç¡¢ÌµÊÝ¾Ú¤Ç
+ ¤¢¤ë¤È¤¤¤¦¤³¤È¤òºÇ¤â¸ú²ÌÅª¤ËÅÁ¤¨¤ë¤¿¤á¤Ë¡¢¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ë¤ÎËÁÆ¬¤Ë¤½¤ÎÁ´Ê¸
+ ¤òÉ½¼¨¤¹¤ì¤ÐºÇ¤â°ÂÁ´¤Ç¤¹¤¬¡¢¤½¤ÎÂ¾¤ÎÊýË¡¤ÇÉ½¼¨¤¹¤ë¾ì¹ç¤Ç¤â¡¢¡ÖÃøºî¸¢É½¼¨¡×
+ ¤ÈÁ´Ê¸¤òÆÉ¤ß½Ð¤¹°Ù¤Î¥¢¥É¥ì¥¹¤Ø¤Î¥Ý¥¤¥ó¥¿¤À¤±¤Ï¥Õ¥¡¥¤¥ë¾å¤ËÉ½¼¨¤·¤Æ¤ª¤¤¤Æ
+ ¤¯¤À¤µ¤¤¡£ 
+ 
+ ¥×¥í¥°¥é¥àÌ¾¤È¤É¤ó¤ÊÆ°ºî¤ò¤¹¤ë¤â¤Î¤«¤Ë¤Ä¤¤¤Æ¤Î´ÊÃ±¤ÊÀâÌÀ¤Î¹Ô
+ 
+ Copyright (C) 19¡û¡ûÇ¯¡¢Ãøºî¸¢¼ÔÌ¾ 
+ 
+ ËÜ¥×¥í¥°¥é¥à¤Ï¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤Ç¤¹¡£¤¢¤Ê¤¿¤Ï¡¢Free Software Foundation
+ ¤¬¸øÉ½¤·¤¿GNU°ìÈÌ¸øÍ­»ÈÍÑµöÂú¤Î¡Ö¥Ð¡¼¥¸¥ç¥ó2¡×°¿¤¤¤Ï¤½¤ì°Ê¹ß¤Î³Æ¥Ð¡¼¥¸¥ç¥ó
+ ¤ÎÃæ¤«¤é¤¤¤º¤ì¤«¤òÁªÂò¤·¡¢¤½¤Î¥Ð¡¼¥¸¥ç¥ó¤¬Äê¤á¤ë¾ò¹à¤Ë½¾¤Ã¤ÆËÜ¥×¥í¥°¥é¥à¤ò
+ ºÆÈÒÉÛ¤Þ¤¿¤ÏÊÑ¹¹¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ 
+ 
+ ËÜ¥×¥í¥°¥é¥à¤ÏÍ­ÍÑ¤È¤Ï»×¤¤¤Þ¤¹¤¬¡¢ÈÒÉÛ¤Ë¤¢¤¿¤Ã¤Æ¤Ï¡¢»Ô¾ìÀ­µÚ¤ÓÆÃÄêÌÜÅªÅ¬¹çÀ­
+ ¤Ë¤Ä¤¤¤Æ¤Î°ÅÌÛ¤ÎÊÝ¾Ú¤ò´Þ¤á¤Æ¡¢¤¤¤«¤Ê¤ëÊÝ¾Ú¤â¹Ô¤Ê¤¤¤Þ¤»¤ó¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï
+ GNU°ìÈÌ¸øÍ­»ÈÍÑµöÂú½ñ¤ò¤ªÆÉ¤ß¤¯¤À¤µ¤¤¡£ 
+ 
+ ¤¢¤Ê¤¿¤Ï¡¢ËÜ¥×¥í¥°¥é¥à¤È°ì½ï¤ËGNU °ìÈÌ¸øÍ­»ÈÍÑµöÂú¤Î¼Ì¤·¤ò¼õ¤±¼è¤Ã¤Æ¤¤¤ë¤Ï¤º
+ ¤Ç¤¹¡£
+ ¤½¤¦¤Ç¤Ê¤¤¾ì¹ç¤Ï¡¢Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
+ MA 02139,USA¤Ø¼ê»æ¤ò½ñ¤¤¤Æ¤¯¤À¤µ¤¤¡£ 
+ 
+ ¤Þ¤¿¡¢¥æ¡¼¥¶¤¬ÅÅ»Ò¥á¥¤¥ë¤ä½ñ¿®¤Ç¤¢¤Ê¤¿¤ÈÏ¢Íí¤ò¤È¤ëÊýË¡¤Ë¤Ä¤¤¤Æ¤Î¾ðÊó¤â½ñ¤­
+ Åº¤¨¤Æ¤¯¤À¤µ¤¤¡£ 
+ 
+ ¥×¥í¥°¥é¥à¤¬ÂÐÏÃÅª¤ËÆ°ºî¤¹¤ë¾ì¹ç¤Ï¡¢ÂÐÏÃ¥â¡¼¥É¤Çµ¯Æ°¤·¤¿»þ¤Ë¼¡¤Î¤è¤¦¤ÊÃ»
+ ¤¤¹ðÃÎÊ¸¤¬É½¼¨¤µ¤ì¤ë¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£ 
+ 
+ Gnomovision ¥Ð¡¼¥¸¥ç¥ó69¡¢Copyright (C) 19 ¡û¡ûÇ¯Ãøºî¸¢¼ÔÌ¾ 
+ 
+ Gnomovision¤Ï´°Á´¤ËÌµÊÝ¾Ú¤Ç¤¹¡£¾ÜºÙ¤Ï show w¤È¥¿¥¤¥×¤·¤Æ¤¯¤À¤µ¤¤¡£
+ ¤³¤ì¤Ï¥Õ¥ê¡¼¡¦¥½¥Õ¥È¥¦¥§¥¢¤Ê¤Î¤Ç¡¢ÆÃÄê¤Î¾ò·ï¤Î²¼¤Ç¤³¤ì¤òºÆÈÒÉÛ¤¹¤ë¤³
+ ¤È¤¬¤Ç¤­¤Þ¤¹¡£¾ÜºÙ¤Ïshow c¤È¥¿¥¤¥×¤·¤Æ¤¯¤À¤µ¤¤¡£ 
+ 
+ ¾åµ­¤Îshow w¤äshow c¤Ï³Æ¡¹¡¢ËÜ°ìÈÌ¸øÍ­»ÈÍÑµöÂú¤Î´ØÏ¢¤¹¤ëÉôÊ¬¤òÉ½¼¨¤¹¤ë¥³¥Þ¥ó¥É
+ ¤ò»Ø¤·¤Þ¤¹¡£
+ ¤â¤Á¤í¤ó¡¢¤¢¤Ê¤¿¤¬»È¤¦¤³¤ì¤é¤Î¥³¥Þ¥ó¥É¤Ïshow w¤äshow c¤È¤¤¤Ã¤¿¸Æ¤ÓÌ¾¤Ç¤Ê¤¯¤Æ¤â
+ ¹½¤¤¤Þ¤»¤ó¡£
+ ¤µ¤é¤Ë¡¢¤½¤ì¤é¤Î¥³¥Þ¥ó¥É¤Ï¤¢¤Ê¤¿¤Î¥×¥í¥°¥é¥à¤Ë¹ç¤ï¤»¤ë°Ù¤Ë¡¢¥Þ¥¦¥¹¤Ç¥¯¥ê¥Ã¥¯
+ ¤·¤¿¤ê¥á¥Ë¥å¡¼·Á¼°¤Ë¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ 
+ 
+ ¤Þ¤¿¡¢É¬Í×¤ÈÇ§¤á¤¿¾ì¹ç¤Ë¤Ï¡¢¤¢¤Ê¤¿¤Î¸Û¤¤¼ç(¤¢¤Ê¤¿¤¬¥×¥í¥°¥é¥Þ¤È¤·¤ÆÆ¯¤¤¤Æ¤¤¤ë
+ ¾ì¹ç)¤äºßÀÒ¤¹¤ë³Ø¹»¤«¤é¡¢¤½¤Î¥×¥í¥°¥é¥à¤ËÂÐ¤¹¤ë¡ÖÃøºî¸¢Êü´þ¡×¤òÇ§¤á¤¿½ðÌ¾Æþ¤ê
+ ¤Î½ñÌÌ¤òÆþ¼ê¤·¤Æ¤¯¤À¤µ¤¤¡£¤³¤³¤Ë¤½¤ÎÊ¸Îã¤òºÜ¤»¤Þ¤¹¡£Ì¾Á°¤ÏÊÑ¤¨¤Æ¤¯¤À¤µ¤¤¡£ 
+ 
+ Yoyodyne, Inc. ¤Ï¡¢James Hacker ¤¬³«È¯¤·¤¿¥×¥í¥°¥é¥à`Gnomovision'(¥³¥ó¥Ñ¥¤¥é
+ ¤Ë¤Ä¤Ê¤²¤ë¥×¥í¥°¥é¥à)¤Ë¤Ä¤¤¤Æ¤ÎÃøºî¸¢Ë¡¾å¤ÎÁ´¤Æ¤Î¸¢Íø¤òÊü´þ¤¹¤ë¡£ 
+ 
+ Ty Coon ¤Î½ðÌ¾, 1 April 1989
+ Ty Coon, Éû¼ÒÄ¹ 
+ 
+ ËÜ°ìÈÌ¸øÍ­»ÈÍÑµöÂú¤Ï¡¢¤¢¤Ê¤¿¤Î¥×¥í¥°¥é¥à¤òºâ»º¸¢¤ÎÂÐ¾Ý¤È¤Ê¤Ã¤Æ¤¤¤ëÂ¾¤Î¥×¥í¥°¥é¥à
+ ¤ËÁÈ¤ß¹þ¤à¤³¤È¤ÏÇ§¤á¤Æ¤¤¤Þ¤»¤ó¡£
+ ¤¢¤Ê¤¿¤Î¥×¥í¥°¥é¥à¤¬¥µ¥Ö¥ë¡¼¥Á¥ó¡¦ ¥é¥¤¥Ö¥é¥ê¤Ç¤¢¤Ã¤Æ¡¢¤¢¤Ê¤¿¤¬¤½¤Î¥é¥¤¥Ö¥é¥ê
+ ¤òºâ»º¸¢¤ÎÂÐ¾Ý¤È¤Ê¤Ã¤Æ¤¤¤ëÂ¾¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤È¥ê¥ó¥¯¤µ¤»¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢
+ ¤µ¤é¤ËÍ­ÍÑ¤Ê¤â¤Î¤Ë¤·¤è¤¦¤È¤¹¤ë¾ì¹ç¤Ë¤Ï¡¢ËÜ»ÈÍÑµöÂú½ñ¤ÎÂå¤ï¤ê¤Ë¡¢GNU¥é¥¤¥Ö¥é¥ê
+ °ìÈÌ¸øÍ­»ÈÍÑµöÂú½ñ¤Ë½¾¤Ã¤Æ¤¯¤À¤µ¤¤¡£ 
diff -Pcr tkdesk-1.2/tcldesk/doc/MailUsage tkdesk-1.2-jp/tcldesk/doc/MailUsage
*** tkdesk-1.2/tcldesk/doc/MailUsage	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/tcldesk/doc/MailUsage	Fri Sep 15 17:46:39 2000
***************
*** 0 ****
--- 1,243 ----
+ 
+  TkMailerÆüËÜ¸ìÈÇ(TkDesk¥á¡¼¥ë³ÈÄ¥)¤Î´ÊÃ±¤Ê»È¤¤¤«¤¿
+  
+  =============================================================================
+ 
+  ºÇ½é¤Ë
+  -----------------------------------------------------------------------------
+  ¤³¤ÎTkMailerÆüËÜ¸ìÈÇ¤Ï¡¢»°´ä¹¬É×¤¬½é¿´¼Ô¤Ë¤âÂÐ±þ¤·¤¿ÆüËÜ¸ì¥á¡¼¥ë&¥Ë¥å¡¼¥¹Åý¹ç
+  ´Ä¶­¤Ç¡¢TkDeskÆüËÜ¸ìÈÇ¥ª¥ê¥¸¥Ê¥ëµ¡Ç½¤Ç¤¹¡£
+  ºÇ¿·¾ðÊó¤Ï¡¢ http://www2.famille.ne.jp/~mituiwa/ ¤Ë¤¢¤ê¤Þ¤¹¡£
+  ¤³¤ÎTkMailerÆüËÜ¸ìÈÇ¤Î¥¨¥é¡¼¤Ê¤É¤Î¥Ð¥°Êó¹ð¤Ï¡¢
+                                     »°´ä¹¬É× mailto: mituiwa@marinet.or.jp ¤Þ¤Ç
+ 
+  ¥á¡¼¥ëµ¡Ç½¤Î¸Æ¤Ó½Ð¤·¤Ë¤Ä¤¤¤Æ
+  -----------------------------------------------------------------------------
+ 
+  ¥á¡¼¥ë¤ÎÁ÷¼õ¿®¤ò¤¹¤ë¤Þ¤¨¤ËÉ¬¤º¥á¡¼¥ëÀßÄê¤ò¹Ô¤Ã¤Æ¤¯¤À¤µ¤¤¡£
+ 
+  ¥Ç¥¹¥¯¥È¥Ã¥×¤Î¥á¥¤¥ó¥á¥Ë¥å¡¼¡ÖM ¥á¡¼¥ë¡×¤Ç°Ê²¼¤Îµ¡Ç½¤ò¸Æ¤Ó½Ð¤¹¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+  
+    o ¥á¡¼¥ë¼õ¿® -- ¤³¤Î¥Þ¥·¥ó¤ËÄ¾ÀÜÆÏ¤¤¤¿¥á¡¼¥ë¤ä¥×¥í¥Ð¥¤¥À¤Î¥á¡¼¥ë¥µ¡¼¥Ð¡¼¤Ë
+                    ÆÏ¤¤¤¿¥á¡¼¥ë¤ò¼õ¤±¼è¤Ã¤Æ¡¢·ïÌ¾ÊÌ¤Ë±ÜÍ÷¤¬¤Ç¤­¤Þ¤¹¡£
+                    ¥×¥í¥Ð¥¤¥À¤Î¥á¡¼¥ë¥µ¡¼¥Ð¤«¤é¤Ï¡¢POP¥×¥í¥È¥³¥ë¤Ë¤è¤Ã¤Æ¥á¡¼¥ë
+                    ¤ò¼õ¤±¼è¤ê¤Þ¤¹¡£
+                    ¤Þ¤¿¡¢ÅºÉÕ¥Õ¥¡¥¤¥ë½èÍý¤ä¥Õ¥©¥ë¥À¤´¤È¤Î¥á¡¼¥ë´ÉÍý¤â¤Ç¤­¤Þ¤¹¡£
+    
+    o ¥á¡¼¥ëºîÀ® -- ¥á¡¼¥ë¤ÎÆâÍÆ¤òºîÀ®¡¦ÊÔ½¸¤·¤Æ¡¢¤³¤Î¥Þ¥·¥ó¤«¤é¡¢¤Þ¤¿¤Ï¡¢
+                    ¥×¥í¥Ð¥¤¥À¤Î¥á¡¼¥ë¥µ¡¼¥Ð¤«¤é¥á¡¼¥ë¤òÁ÷¿®¤·¤Þ¤¹¡£
+                    ¤Þ¤¿¡¢¤¹¤Ç¤Ë¼õ¿®¤·¤¿¥á¡¼¥ë¤ËÂÐ¤·¤ÆÊÖ¿®¤äÅºÉÕ¥Õ¥¡¥¤¥ë¤ÎÁ÷¿®
+                    ¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+ 
+    o ¥Ë¥å¡¼¥¹ºîÀ® - ¥Ë¥å¡¼¥¹¤ÎÆâÍÆ¤òºîÀ®¡¦ÊÔ½¸¤·¤Æ¡¢¥Ë¥å¡¼¥¹¥µ¡¼¥Ð¤«¤é¥Ë¥å¡¼¥¹
+                     ¤òÅê¹Æ¤·¤Þ¤¹¡£
+    
+    o ´ÊÃ±ÀßÄê ---- ½é¿´¼Ô¤Î¤¿¤á¤Î¥á¡¼¥ëÀßÄê²èÌÌ¤Ç¤¹¡£
+                    ¥×¥í¥Ð¥¤¥À¤«¤é»Ùµë¤µ¤ì¤¿¥á¡¼¥ë¥¢¥É¥ì¥¹¤È¥×¥í¥Ð¥¤¥À¤Î¥á¡¼¥ë
+                    ¥µ¡¼¥Ð¡¼Ì¾¤òÆþÎÏ¤¹¤ë¤À¤±¤Ç¥á¡¼¥ëÀßÄê¤¬¤Ç¤­¤Þ¤¹¡£
+                    ¤½¤ÎÂ¾¤Î¹àÌÜ¤Ï¼«Æ°ÀßÄê¤µ¤ì¤Þ¤¹¡£
+    
+    o ¾ÜºÙÀßÄê ---- ¥á¡¼¥ëÁ÷¼õ¿®¤Ë´Ø¤¹¤ëÀßÄê¤ò¾ÜºÙ¤Ë»ØÄê¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+                    ¤Þ¤¿¡¢¥Ç¥Õ¥©¥ë¥È¤ÎÀßÄê¤ò¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£
+ 
+  ¥á¥Ë¥å¡¼¡ÖM ¥á¡¼¥ë¡×°Ê³°¤Ë¤â¡¢¥Ó¥Ã¥È¥Þ¥Ã¥×¤Î¥Ü¥¿¥ó¤Ç¤â¥á¡¼¥ëÁ÷¿®¡¢¥á¡¼¥ë¼õ¿®¤ò
+  ¸Æ¤Ó½Ð¤¹¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+  ÊØäµ¤Î³¨¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤³¤È¤Ë¤è¤ê¥á¡¼¥ëºîÀ®¡¦Á÷¿®¤ò¡¢Í¹ÊØÈ¢¤Î³¨¤ò¥¯¥ê¥Ã¥¯¤¹¤ë
+  ¤³¤È¤Ë¤è¤ê¥á¡¼¥ë¼õ¿®¤ò¸Æ¤Ó½Ð¤¹¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+ 
+ 
+  ¥á¡¼¥ë¼õ¿®
+  -----------------------------------------------------------------------------
+  
+  ¥á¡¼¥ë¼õ¿®µ¡Ç½¤Ï¡¢¼õ¿®¤·¤¿¥á¡¼¥ë¤Î·ïÌ¾°ìÍ÷¤Î¥¦¥£¥ó¥É¥¦¡¢¥á¡¼¥ëËÜÊ¸¤òÉ½¼¨¤¹¤ë
+  ¥¦¥£¥ó¥É¥¦¡¢ÅºÉÕ¥Õ¥¡¥¤¥ë¤Î°ìÍ÷¤òÉ½¼¨¤¹¤ë¥¦¥£¥ó¥É¥¦¡¢¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤¹¤ë¥Ü¥¿¥ó
+  ·²¤«¤é¹½À®¤µ¤ì¤Þ¤¹¡£
+  
+  ¥á¡¼¥ë¤Î·ïÌ¾°ìÍ÷¤Ç¥Þ¥¦¥¹º¸¥Ü¥¿¥ó¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤¹¤ë¤³¤È¤Ë¤è¤ê¥á¡¼¥ë¤ÎËÜÊ¸¤¬
+  É½¼¨¤µ¤ì¤Þ¤¹¡£ 
+  
+  ¥á¡¼¥ë¤ò¼õ¿®¤·¤Æ¤âÂ¨»þ¤Ë¤Ï°ìÍ÷¤ËÈ¿±Ç¤µ¤ì¤Ê¤¤¤Î¤Ç¡¢¸½ºß¤Î¥á¡¼¥ë°ìÍ÷¤òÈ¿±Ç¤µ¤»
+  ¤ë¤Ë¤Ï¡Ö¹¹¿·¡×¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
+  
+  ¤Þ¤¿¡¢¥á¡¼¥ë¤Î·ïÌ¾¤òÊ£¿ôÁªÂò¤¹¤ë¤³¤È¤¬¤Ç¤­¡¢ºï½ü¤¹¤ë¤È¤­¤Ë¤Þ¤È¤á¤Æºï½ü¤Ç¤­¤Þ¤¹¡£
+  
+     ¥á¡¼¥ë¤Î·ïÌ¾°ìÍ÷Æâ¤Î
+         ¥Þ¥¦¥¹¥Ü¥¿¥ó³ä¤êÉÕ¤±¤ÎÍ×Ìó (1:º¸¥Ü¥¿¥ó¡¢2:Ãæ¥Ü¥¿¥ó¡¢3:±¦¥Ü¥¿¥ó)
+  
+  		           1:  ¥á¡¼¥ë¤òÁªÂò
+ 	  	 Control + 1:  ¥á¡¼¥ë¤Î1¹àÌÜ¤ÎÁªÂòÄÉ²Ã 
+         	   Shift + 1:  ¥á¡¼¥ë¤ÎÈÏ°ÏÁªÂò
+   	        ¥É¥é¥Ã¥° + 1:  ¥á¡¼¥ë¤ÎÎÎ°èÁªÂò
+            1¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯:  ¥á¡¼¥ë¤ÎËÜÊ¸¤òÉ½¼¨
+ 
+  ¤³¤Î¥Þ¥·¥ó¤ËÆÏ¤¤¤¿¥á¡¼¥ë¤Î¼è¤ê¹þ¤ß¤Ï¡¢¡Ö¼è¹þ¡×¤Î¥Ü¥¿¥ó¤Î¥¯¥ê¥Ã¥¯¤Ç¹Ô¤¤¤Þ¤¹¡£
+  ¥×¥í¥Ð¥¤¥À¤Î¥á¡¼¥ë¥µ¡¼¥Ð¤ËÆÏ¤¤¤¿¥á¡¼¥ë¤Î¼è¤ê¹þ¤ß¤Ï¡¢¡ÖPOP¼è¹þ¡×¤Î¥Ü¥¿¥ó¤Î
+  ¥¯¥ê¥Ã¥¯¤Ç¹Ô¤¤¤Þ¤¹¡£
+  ¥á¡¼¥ë¤Î´ÊÃ±ÀßÄê¤ò¤·¤¿¾ì¹ç¤Ï¡¢¡Ö¼è¹þ¡×¤¬Ìµ¸ú¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£ 
+  
+  ÅºÉÕ¥Õ¥¡¥¤¥ë¤Î¥á¡¼¥ë¤¬ÆÏ¤¤¤¿¤È¤­¤Ï¡¢±¦²¼¤Îº°¿§¤Î¥¦¥£¥ó¥É¥¦¤Ë¥Õ¥¡¥¤¥ëÌ¾¤Î°ìÍ÷
+  ¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
+  ¤½¤·¤Æ¡¢¥Õ¥¡¥¤¥ëÌ¾¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤¹¤ë¤³¤È¤Ë¤è¤êÂÐ¾Ý¤È¤Ê¤ë¥Õ¥¡¥¤¥ë¤òÊÝÂ¸¤Ç¤­
+  ¤Þ¤¹¡£
+  ¤â¤·¡¢ÅºÉÕ¥Õ¥¡¥¤¥ë¤¬BASE64·Á¼°¤Î¾ì¹ç¤Ï¡¢ÊÝÂ¸¤ò¤¹¤ë¤È¤­¤Ë¼«Æ°Åª¤ËBASE64¥Ç¥³¡¼¥É
+  ¤ò¹Ô¤¤¤Þ¤¹¡£
+  
+  ¥Õ¥©¥ë¥À¤´¤È¤Ë¥á¡¼¥ë¤ò´ÉÍý¤¹¤ë¾ì¹ç¡¢¥Õ¥ì¡¼¥à¤Îº¸¾å¤Î¡Ö¥Õ¥©¥ë¥À¡×¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
+  ¤½¤¦¤¹¤ë¤È³Æ¥Õ¥©¥ë¥À¤ÎÁªÂò¤ä¥Õ¥©¥ë¥À´ÉÍý¥á¥Ë¥å¡¼¤¬¸½¤ì¤Þ¤¹¡£
+  É¸½à¤Ç¤Ï¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ë¥À¡Öinbox¡×¡¢Á÷¿®¥á¡¼¥ë¤Î¥Õ¥©¥ë¥À¡Ösend¡×¡¢¥´¥ßÈ¢
+  ¤Î¥Õ¥©¥ë¥À¡Ötrash¡×¤¬¤¢¤ê¤Þ¤¹¡£
+  ¤½¤ì°Ê³°¤Î¥«¥¹¥¿¥à¥Õ¥©¥ë¥À¤Ï¡¢¥á¥Ë¥å¡¼¤Î¡Ö¥Õ¥©¥ë¥À¡¼ºîÀ®¡×¤ÇºîÀ®¤·¤Þ¤¹¡£
+  ¿·¤·¤¯¥Õ¥©¥ë¥À¤òºîÀ®¤¹¤ë¤È¡¢¼¡²ó¤Î¥á¡¼¥ë¼õ¿®¥Õ¥ì¡¼¥àµ¯Æ°»þ¤ËÈ¿±Ç¤µ¤ì¡¢¤µ¤é¤Ë
+  ¡Ö¥Õ¥©¥ë¥À¡×¥á¥Ë¥å¡¼¤Î²¼¤Ë¡Ö¥á¡¼¥ë¿¶¤êÊ¬¤±¡×¥µ¥Ö¥á¥Ë¥å¡¼¤¬¸½¤ì¤Þ¤¹¡£¥á¡¼¥ë¤Î
+  ¿¶¤êÊ¬¤±¾ò·ï¤Ï¡¢¤³¤Î¥µ¥Ö¥á¥Ë¥å¡¼¤Ç¤Ç»ØÄê¤·¤Þ¤¹¡£
+  ¤Þ¤º¡Ö¹àÌÜ¡×¤ò¥¯¥ê¥Ã¥¯¤·¡¢¿¶¤êÊ¬¤±ÂÐ¾Ý¾ò·ï¤È¤·¤Æ·ïÌ¾¤«º¹½Ð¿Í¤«¤òÁªÂò¤·¤Þ¤¹¡£
+  ¼¡¤Ë¡Ö¥­¡¼¥ï¡¼¥É¡×¤ËÈ½Äê¾ò·ï¤È¤Ê¤ëÊ¸»úÎó¤òÆþÎÏ¤·¡¢¡ÖÅ¾Á÷Àè¡×¤ò¥¯¥ê¥Ã¥¯¤·¤Æ¿¶
+  ¤êÊ¬¤±Àè¤Î¥Õ¥©¥ë¥À¤ò»ØÄê¤·¤Þ¤¹¡£
+  ¤½¤·¤Æ¡¢¾ò·ï¤ò³ÎÇ§¤·¤Æ¤½¤ì¤ÇÎÉ¤±¤ì¤Ð¡¢¡ÖÄÉ²Ã¡×¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
+  
+  ¥á¡¼¥ë¤¬¼è¤ê¹þ¤Þ¤ì¤ë¤ÈÌµ¾ò·ï¤Ç¡Öinbox¡×¤ËÆþ¤ê¤Þ¤¹¡£
+  ¤½¤·¤Æ¡¢¡Ö¿¶Ê¬¡×¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡Öinbox¡×¤«¤é¤½¤ì¤¾¤ì¤Î¥Õ¥©¥ë¥À¤Ë¿¶¤êÊ¬¤±¤é¤ì¤Þ¤¹¡£
+  ¤³¤Î¤Þ¤Þ¤Ç¤Ï¡¢²èÌÌ¤ËÈ¿±Ç¤µ¤ì¤Ê¤¤¤Î¤Ç¡¢¡Ö¹¹¿·¡×¤Ç²èÌÌ¤ËÈ¿±Ç¤µ¤ì¤Þ¤¹¡£
+  
+ 
+  ¥á¡¼¥ëºîÀ®
+  -----------------------------------------------------------------------------
+ 
+  ÅÅ»Ò¥á¡¼¥ë¤Î°¸Àè¡¢·ïÌ¾¡¢CC¤òÆþÎÏ¤¹¤ë¥¦¥£¥ó¥É¥¦¡¢¥á¡¼¥ëËÜÊ¸¤òºîÀ®¡¦ÊÔ½¸¤¹¤ë¥¦¥£¥ó¥É¥¦¡¢
+  ÅºÉÕ¥Õ¥¡¥¤¥ë¤Î°ìÍ÷¤òÉ½¼¨¤¹¤ë¥¦¥£¥ó¥É¥¦¡¢¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤¹¤ë¥Ü¥¿¥ó·²¤«¤é¹½À®¤µ¤ì¤Þ¤¹¡£
+  
+  ¤´¤¯´ÊÃ±¤ÊÊ¸¾Ï¤ÎºîÀ®¡¦ÊÔ½¸¤Ç¤¢¤ì¤Ð¡¢¤³¤Î¥Õ¥ì¡¼¥à¤Çºî¶È¤·¤Æ¤â¤«¤Þ¤¤¤Þ¤»¤ó¤¬¡¢
+  ¥¢¥ó¥É¥¥¤Ê¤É¤¬°ìÀÚ¤Ç¤­¤Ê¤¤¤Î¤Ç¤¢¤Þ¤ê¤ª¤¹¤¹¤á¤·¤Þ¤»¤ó¡£
+  
+  ¥Õ¥¡¥¤¥ë¤ÎÆÉ¤ß¹þ¤ß¡¢ÁÞÆþ¡¢¸¡º÷¤äÊ¸»úÎó¤Îºï½ü¡¢¥³¥Ô¡¼¡¢¥Ú¡¼¥¹¥È¡¢ÁÞÆþ
+  ¤Ê¤É¥Æ¥­¥¹¥ÈÊÔ½¸¡¢¸¡º÷¡¦ÃÖ´¹¡¢Àµµ¬É½¸½¸¡º÷¡¢³°Éô¥Æ¥­¥¹¥È¤È¤Î¤ä¤ê¤È¤ê¤Ê¤É¤Î
+  ¹âÅÙ¤Ê¥¨¥Ç¥£¥¿µ¡Ç½¤òÉ¬Í×¤È¤¹¤ë¾ì¹ç¤Ï¡¢TkDesk¤Î¥¨¥Ç¥£¥¿¤òÍøÍÑ¤·¤Þ¤¹¡£
+  TkDesk¤Î¥¨¥Ç¥£¥¿¤Ç¥á¡¼¥ë¤ÎËÜÊ¸¤òºîÀ®¡¦ÊÔ½¸¤·¡¢¥¨¥Ç¥£¥¿¤Î¥á¥¤¥ó¥á¥Ë¥å¡¼
+  ¡ÖF ¥Õ¥¡¥¤¥ë¡×¤Î²¼¡ÖM ¥á¡¼¥ëÁ÷¿®¡×¤ò»ØÄê¤¹¤ë¤È¥á¡¼¥ëºîÀ®¤Î¥¦¥£¥ó¥É¥¦¤¬¸½¤ì¤Þ¤¹¡£
+  ¤¹¤Ç¤Ë¥Æ¥­¥¹¥È¤ÎÉôÊ¬¤Ë¤Ï¥¨¥Ç¥£¥¿¤ÇÊÔ½¸¤·¤¿ÆâÍÆ¤¬¤Ï¤¤¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢°¸Àè¤È·ïÌ¾¤ò
+  ÆþÎÏ¤·¤Æ¡¢¡ÖÁ÷¿®¡×¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ì¤ÐÁ÷¿®¤Ç¤­¤Þ¤¹¡£
+  
+  ¥á¡¼¥ëºîÀ®¤Ç¤Ï¡¢¼õ¿®¤·¤¿¥á¡¼¥ë¤ÎÊÖ¿®¤ò¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ 
+  ÊÖ¿®¤ò¤¹¤ë¤Ë¤Ï¡¢¥á¡¼¥ë¼õ¿®¤Î¥¦¥£¥ó¥É¥¦¤ÇÊÖ¿®¤·¤¿¤¤¥á¡¼¥ë¤Î·ïÌ¾¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯
+  ¤·¡¢¥á¡¼¥ë¤ÎËÜÊ¸¤òÉ½¼¨¤µ¤»¡¢¡ÖÊÖ¿®¡×¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
+  
+  ºîÀ®¤·¤¿¥á¡¼¥ë¤ÏÁ÷¿®¤¹¤ë¤È¾ÃÌÇ¤¹¤ë¤Î¤Ç¡¢¥á¡¼¥ë¤ÎÆâÍÆ¤òÊÝÂ¸¤·¤¿¤¤¾ì¹ç¤Ï¡¢¡ÖÊÝÂ¸...¡×
+  ¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
+ 
+  ¥Õ¥¡¥¤¥ë¤òÅºÉÕ¤¹¤ë¾ì¹ç¤Ï¡¢¡ÖÅºÉÕ...¡×¤ò¥¯¥ê¥Ã¥¯¤·¡¢ÅºÉÕ¤·¤¿¤¤¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Þ¤¹¡£
+  
+  ¤Þ¤¿¡¢°¸Àè¤Ï1¤Ä¤À¤±¤Ç¤Ê¤¯Ê£¿ô»ØÄê¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
+  Ê£¿ô»ØÄê¤¹¤ë¾ì¹ç¤Ï¡¢¡Ö,¡×¤Ç¶èÀÚ¤ê¤Þ¤¹¡£
+  Îã¤¨¤Ð¡¢mituiwa@marinet.or.jp ¤È kinsaitoh@fugu.or.jp ¤ò»ØÄê¤¹¤ë¾ì¹ç¤Ï¡¢
+  
+  mituiwa@marinet.or.jp,kinsaitoh@fugu.or.jp
+  
+  ¤È»ØÄê¤·¤Þ¤¹¡£
+  
+ 
+  ¥Ë¥å¡¼¥¹ºîÀ®
+  -----------------------------------------------------------------------------
+ 
+  ¥Ë¥å¡¼¥¹¥°¥ë¡¼¥×¤Î°¸Àè¡¢·ïÌ¾¡¢CC¤òÆþÎÏ¤¹¤ë¥¦¥£¥ó¥É¥¦¡¢¥á¡¼¥ëËÜÊ¸¤òºîÀ®¡¦ÊÔ½¸¤¹¤ë
+  ¥¦¥£¥ó¥É¥¦¡¢ ÅºÉÕ¥Õ¥¡¥¤¥ë¤Î°ìÍ÷¤òÉ½¼¨¤¹¤ë¥¦¥£¥ó¥É¥¦¡¢¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤¹¤ë¥Ü¥¿¥ó·²
+  ¤«¤é¹½À®¤µ¤ì¤Þ¤¹¡£
+  
+  ´ÊÃ±¤ÊÊ¸¾Ï¤ÎºîÀ®¡¦ÊÔ½¸¤Ç¤¢¤ì¤Ð¡¢¤³¤Î¥Õ¥ì¡¼¥à¤Çºî¶È¤¬¤Ç¤­¤Þ¤¹¡£
+  
+  ¤·¤«¤·¡¢¥Õ¥¡¥¤¥ë¤ÎÆÉ¤ß¹þ¤ß¡¢ÁÞÆþ¡¢¸¡º÷¤äÊ¸»úÎó¤Îºï½ü¡¢¥³¥Ô¡¼¡¢¥Ú¡¼¥¹¥È¡¢ÁÞÆþ
+  ¤Ê¤É¥Æ¥­¥¹¥ÈÊÔ½¸¡¢¸¡º÷¡¦ÃÖ´¹¡¢Àµµ¬É½¸½¸¡º÷¡¢³°Éô¥Æ¥­¥¹¥È¤È¤Î¤ä¤ê¤È¤ê¤Ê¤É¤Î
+  ¹âÅÙ¤Ê¥¨¥Ç¥£¥¿µ¡Ç½¤òÉ¬Í×¤È¤¹¤ë¾ì¹ç¤Ï¡¢TkDesk¤Î¥¨¥Ç¥£¥¿¤òÍøÍÑ¤·¤Þ¤¹¡£
+  TkDesk¤Î¥¨¥Ç¥£¥¿¤Ç¥á¡¼¥ë¤ÎËÜÊ¸¤òºîÀ®¡¦ÊÔ½¸¤·¡¢¥¨¥Ç¥£¥¿¤Î¥á¥¤¥ó¥á¥Ë¥å¡¼
+  ¡ÖF ¥Õ¥¡¥¤¥ë¡×¤Î²¼¡ÖD ¥Ë¥å¡¼¥¹Åê¹Æ¡×¤ò»ØÄê¤¹¤ë¤È¥Ë¥å¡¼¥¹ºîÀ®¤Î¥¦¥£¥ó¥É¥¦¤¬
+  ¸½¤ì¤Þ¤¹¡£
+  ¤¹¤Ç¤Ë¥Æ¥­¥¹¥È¤ÎÉôÊ¬¤Ë¤Ï¥¨¥Ç¥£¥¿¤ÇÊÔ½¸¤·¤¿ÆâÍÆ¤¬¤Ï¤¤¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢°¸Àè¤È·ïÌ¾¤ò
+  ÆþÎÏ¤·¤Æ¡¢¡ÖÁ÷¿®¡×¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ì¤ÐÁ÷¿®¤Ç¤­¤Þ¤¹¡£
+  
+  ºîÀ®¤·¤¿¥Ë¥å¡¼¥¹¤ÏÁ÷¿®¤¹¤ë¤È¾ÃÌÇ¤¹¤ë¤Î¤Ç¡¢¥Ë¥å¡¼¥¹¤ÎÆâÍÆ¤òÊÝÂ¸¤·¤¿¤¤¾ì¹ç¤Ï¡¢
+  ¡ÖÊÝÂ¸...¡× ¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
+ 
+  ¥Õ¥¡¥¤¥ë¤òÅºÉÕ¤¹¤ë¾ì¹ç¤Ï¡¢¡ÖÅºÉÕ...¡×¤ò¥¯¥ê¥Ã¥¯¤·¡¢ÅºÉÕ¤·¤¿¤¤¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Þ¤¹¡£
+  
+  ¤Þ¤¿¡¢¥Ë¥å¡¼¥¹¥°¥ë¡¼¥×¤Ï1¤Ä¤À¤±¤Ç¤Ê¤¯Ê£¿ô»ØÄê¤¹¤ë¤³¤È¡¢¤Ä¤Þ¤ê¡¢¥¯¥í¥¹¥Ý¥¹¥È¤¬
+  ¤Ç¤­¤Þ¤¹¡£
+  Ê£¿ô»ØÄê¤¹¤ë¾ì¹ç¤Ï¡¢¡Ö,¡×¤Ç¶èÀÚ¤ê¤Þ¤¹¡£
+  Îã¤¨¤Ð¡¢fj.os.linux ¤È fj.unix ¤ò»ØÄê¤¹¤ë¾ì¹ç¤Ï¡¢
+  
+  fj.os.linux,fj.unix
+  
+  ¤È»ØÄê¤·¤Þ¤¹¡£
+  
+ 
+  ¾ÜºÙÀßÄê
+  -----------------------------------------------------------------------------
+ 
+  ÅÅ»Ò¥á¡¼¥ëÁ÷¼õ¿®¤Ë´Ø¤¹¤ë°Ê²¼¤ÎÀßÄê¤ò¤·¤Þ¤¹¡£
+  
+   o ¥á¡¼¥ë¥¢¥É¥ì¥¹
+       È¯¿®¼Ô¤Î¥á¡¼¥ë¥¢¥É¥ì¥¹¤ò»ØÄê¤¹¤ë¡£
+         
+   o Ì¾Á°
+       È¯¿®¼Ô¤Î¥Õ¥ë¥Í¡¼¥à¤ò»ØÄê¤¹¤ë¡£
+       Full Name <User@FromDomain> ¤Î Full Name ¤ËÍøÍÑ¤µ¤ì¤ë¡£
+       ¥Ç¥Õ¥©¥ë¥È¤Ç¤Ï¡¢¥Ñ¥¹¥ï¡¼¥É¥Õ¥¡¥¤¥ë¤Î GCOS ¥Õ¥£¡¼¥ë¥É¤ÎÆâÍÆ¤¬ÍøÍÑ¤µ¤ì¤ë¡£  
+ 
+   o ¥á¡¼¥ë¥µ¡¼¥Ð¡¼
+       SMTP ¥µ¡¼¥Ð¤ª¤è¤Ó¥Ý¡¼¥È¤ò»ØÄê¤¹¤ë¡£
+       ·Á¼°¤Ï¡¢¡Ö¥µ¡¼¥ÐÌ¾¡×¤¢¤ë¤¤¤Ï¡Ö¥µ¡¼¥ÐÌ¾/¥Ý¡¼¥ÈÈÖ¹æ¡×¤Ç/¥Ý¡¼¥ÈÈÖ¹æ¤ò¾ÊÎ¬
+       ¤·¤¿¾ì¹ç¤ÏSMTP(25)¤ò»ÈÍÑ¤¹¤ë¡£
+       Ê£¿ô¤Î¥µ¡¼¥Ð¤ò»ØÄê¤¹¤ë¾ì¹ç¤Ï¡¢¶õÇò¤òÆþ¤ì¤º¤Ë ',' ¤Ç¶èÀÚ¤Ã¤ÆÎóµó¤¹¤ë¡£
+ 
+   o ÂåÂØ¥á¡¼¥ë¥µ¡¼¥Ð¡¼
+       ÇÛÁ÷¥¨¥é¡¼¤¬È¯À¸¤·¤¿¾ì¹ç¤Ç¡¢¤«¤Ä¡¢SMTPservers ¤Ë»ØÄê¤·¤¿Á´¤Æ¤Î¥µ¡¼¥Ð¤Ë
+       ¥á¡¼¥ë¤òÁ÷¤ì¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë»î¹Ô¤¹¤Ù¤­¥á¡¼¥ë¥µ¡¼¥Ð¤ò»ØÄê¤¹¤ë¡£  
+ 
+   o POP¥µ¡¼¥Ð¡¼
+       POP¥µ¡¼¥Ð¡¼¤ò»ØÄê¤¹¤ë¡£
+ 
+   o ¥Ë¥å¡¼¥¹¥µ¡¼¥Ð¡¼
+       NNTP ¥µ¡¼¥Ð¤ª¤è¤Ó¥Ý¡¼¥È¤ò»ØÄê¤¹¤ë¡£
+       ·Á¼°¤Ï¡¢¡Ö¥µ¡¼¥ÐÌ¾¡×¤¢¤ë¤¤¤Ï¡Ö¥µ¡¼¥ÐÌ¾/¥Ý¡¼¥ÈÈÖ¹æ¡×¤Ç/¥Ý¡¼¥ÈÈÖ¹æ¤ò¾ÊÎ¬
+       ¤·¤¿¾ì¹ç¤ÏNNTP(119)¤ò»ÈÍÑ¤¹¤ë¡£
+       Ê£¿ô¤Î¥µ¡¼¥Ð¤ò»ØÄê¤¹¤ë¾ì¹ç¤Ï¡¢¶õÇò¤òÆþ¤ì¤º¤Ë ',' ¤Ç¶èÀÚ¤Ã¤ÆÎóµó¤¹¤ë¡£  
+ 
+   o ¥á¡¼¥ë¤Î³ÊÇ¼¾ì½ê
+       ¥á¡¼¥ë¤ò³ÊÇ¼¤¹¤ë¥Õ¥©¥ë¥À¡¼Ì¾¤ò»ØÄê¤¹¤ë
+       ¥á¡¼¥ë¤¬³ÊÇ¼¤µ¤ì¤ë¥Õ¥©¥ë¥À¡¼¤Ï¡¢¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Î²¼¤Î»ØÄê¤·¤¿¥Õ¥©¥ë¥À
+       ¤Ë¤Ê¤ë¡£
+   
+   o ¥Ë¥å¡¼¥¹¤Î³ÊÇ¼¾ì½ê
+       ¥Ë¥å¡¼¥¹¤ò³ÊÇ¼¤¹¤ë¥Õ¥©¥ë¥À¡¼Ì¾¤ò»ØÄê¤¹¤ë
+       ¥Ë¥å¡¼¥¹¤¬³ÊÇ¼¤µ¤ì¤ë¥Õ¥©¥ë¥À¡¼¤Ï¡¢¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Î²¼¤Î»ØÄê¤·¤¿¥Õ¥©¥ë¥À
+       ¤Ë¤Ê¤ë¡£
+     
+   o 1¹Ô¤ÎÊ¸»ú¿ô
+       ¥á¡¼¥ë¤Î1¹Ô¤¢¤¿¤ê¤ÎÊ¸»ú¿ô¤ò»ØÄê¤¹¤ë¡£
+   
+   o JIS¤òÇÛÎ¸
+       on:  scan É½¼¨¤Î¥Õ¥©¡¼¥Þ¥Ã¥È½èÍý¤ÎºÝ¤Ë¡¢ISO-2022-JPÅù¤Î¥¨¥¹¥±¡¼¥×¥·¡¼¥±¥ó¥¹
+            ¤ò¹ÍÎ¸¤¹¤ë¡£  
+       off: scan É½¼¨¤Î¥Õ¥©¡¼¥Þ¥Ã¥È½èÍý¤ÎºÝ¤Ë¡¢ISO-2022-JPÅù¤Î¥¨¥¹¥±¡¼¥×¥·¡¼¥±¥ó¥¹
+            ¤ò¹ÍÎ¸¤·¤Ê¤¤¡£  
+ 
+   o JIS¥Ø¥Ã¥À
+       on:  ¥Ø¥Ã¥À¤Î JIS ¤ò MIME (RFC2047) ·Á¼°¤ÇÉä¹æ²½¤¹¤ë¡£
+       off: ¥Ø¥Ã¥À¤Î JIS ¤ò MIME (RFC2047) ·Á¼°¤ÇÉä¹æ²½¤·¤Ê¤¤¡£
+       
+   o JIS¤ØÊÑ´¹ 
+       on:  EUC/SJIS -> JIS ÊÑ´¹¤ò¹Ô¤Ê¤¦¡£
+       off: EUC/SJIS -> JIS ÊÑ´¹¤ò¹Ô¤Ê¤ï¤Ê¤¤¡£
+       
+   o ÀÞÊÖ¶Ø»ß
+       on:  72Ê¸»ú/¹ÔÄøÅÙ¤Î²þ¹ÔÁÞÆþ¤ò¹Ô¤ï¤Ê¤¤¡£
+       off: 72Ê¸»ú/¹ÔÄøÅÙ¤Î²þ¹ÔÁÞÆþ¤ò¹Ô¤¦¡£
+ 
+   o Q¥¨¥ó¥³¡¼¥É
+       on:  ¥Ø¥Ã¥À¤ÎÉä¹æ²½¤òQÉä¹æ²½Êý¼°¤Ç¹Ô¤¦¡£
+       off: ¥Ø¥Ã¥À¤ÎÉä¹æ²½¤òBÉä¹æ²½Êý¼°¤Ç¹Ô¤¦¡£
+ 
+   o 7¥Ó¥Ã¥ÈÊÑ´¹
+       on:  8bit ¥³¡¼¥É¤Î´Þ¤Þ¤ì¤ë¥á¥Ã¥»¡¼¥¸¥Ü¥Ç¥£¤ò7¥Ó¥Ã¥È¤ËÉä¹æ²½¤¹¤ë¡£
+            8bit ¥³¡¼¥É¤Î³ä¹ç¤Ë¤è¤ê base64 ¤È quoted-printable¤Î¤É¤Á¤é¤«¤¬
+            ¼«Æ°Åª¤ËÁªÂò¤µ¤ì¤ë¡£
+       off: 8bit ¥³¡¼¥É¤Î´Þ¤Þ¤ì¤ë¥á¥Ã¥»¡¼¥¸¥Ü¥Ç¥£¤ò7bit¤ËÉä¹æ²½¤·¤Ê¤¤¡£
+ 
diff -Pcr tkdesk-1.2/tcldesk/doc/QuickStart tkdesk-1.2-jp/tcldesk/doc/QuickStart
*** tkdesk-1.2/tcldesk/doc/QuickStart	Mon Nov 15 07:07:48 1999
--- tkdesk-1.2-jp/tcldesk/doc/QuickStart	Fri Sep 15 17:46:39 2000
***************
*** 1,116 ****
  
!  How To Get Started With TkDesk Really Quickly  (V1.2)
   =============================================================================
  
! 	
!  What's On Desk
   -----------------------------------------------------------------------------
  
!  When you start TkDesk for the first time, it comes up with its default
!  window layout.  This is:
! 
!    o The Application Bar (or appbar for short) -- that's the vertical
!      row of buttons on the left hand side of the screen, and
!      
!    o A File Browser Window (or browser) containing three file listboxes.
!      This is the "main" window of TkDesk used for file operations like
!      copy, move etc. (in fact, you can have several of such browsers).
  
!  There's also a smaller variant of the browser window: the File List
!  Window.  This is a compact version of the browser with just one file
!  listbox.
  
  
!  The Application Bar
   -----------------------------------------------------------------------------
  
!  Each button provides a pop-up menu that can be accessed by pressing the
!  right mouse button over any of the appbar's buttons.  Clicking the first
!  mouse button over an appbar button invokes the first entry of the pop-up
!  menu.  The appbar can be moved around by pressing the Meta- or Alt-key
!  and the first mouse-button at the same time over the appbar.
  
!  Summary of mouse button bindings (1: left, 2: middle, 3: right button):
!  
!     		1:  Invokes first entry of associated pop-up menu.
!     		3:  Displays associated pop-up menu.
!        Meta/Alt-1:  Move the application bar around.
!        Meta/Alt-2:  Shortcut to TkDesk's configuration files.
  
-  The first appbar button gives access to some more often used functions
-  of TkDesk, and to most history lists managed by TkDesk.  It also contains
-  an entry to change the layout of the appbar to horizontal, if that's what
-  you prefer.
-  
  
!  The File Browser Window
   -----------------------------------------------------------------------------
  
!  The main part of the file browser windows are the file listboxes.
!  They are laid out such that the left listbox always displays the contents
!  of the parent directory of the file listbox to the right.  As you traverse
!  a directory tree, listboxes "move off" the visible area to the left. The
!  large horizontal scrollbar on top of the listboxes can be used to make them
!  visible again.
  
!  Summary of mouse button bindings (1: left, 2: middle, 3: right button):
  
-                 1:  Select directory or file.
-         Control-1:  Single-select directory or file.
-           Shift-1:  Range-select directories or files.
-            Drag-1:  Select an area.
-    Shift-Double-1:  Select all items.
-          Double-1:  Open directory or file (actually invokes the
- 		    first entry of the associated pop-up menu).
-     Ctrl-Double-1:  Directory: Open file list window with this directory.
- 		    File: Open file interactively.
-            2-Move:  Drag directory or file.  Can be dropped on
- 		    other file listboxes, some appbar buttons,
- 		    or the desktop (root window).
-                 3:  Display associated pop-up menu.
  
!  The button right above each file listbox displaying the name of the
!  directory whose contents is displayed in the listbox is a menu button.
!  Pressing the first mouse button over it displays a menu of operations
!  applicable to the contents of the listbox.
   
   
!  The File List Window
   -----------------------------------------------------------------------------
  
!  File list windows can be opened by opening a directory while pressing
!  the Control key, or by entries from the browser's "Directory" menu.
!  The default directory popup menu also contains an entry for this purpose.
!  The main difference of the file list window compared with a browser window
!  is that the contents of directories you open are always displayed in the
!  same file listbox.
  
!  For the list of mouse bindings please refer to the previous section.
  
! 
!  Get going!
   -----------------------------------------------------------------------------
  
!  Hopefully, this is enough to get you started with TkDesk.  Note that
!  there is a "Help" menu button in the menu bar of the file browser
!  window.  It gives access to the TkDesk User's Guide, which documents
!  every tiny feature of TkDesk (not yet though).  Also note that TkDesk
!  has a "balloon help" feature: just place the mouse pointer over any
!  button of the application bar or button bar in the browser window.
!  A very useful place to look for help is the searchable archive of
!  the TkDesk mailing list at http://www.findmail.com/list/tkdesk.
! 
!  And now it's your turn:  Start exploring TkDesk!  Look into every
!  menu, click on every button, and take a look at the User's Guide!
!  Please also take a look at "Help/Changes", even if you're a first-time
!  TkDesk user.  It explains many of the less obvious TkDesk features.
!  
!  When you've become a bit more familiar with TkDesk you will want to take
!  a look at TkDesk's configuration files (Menu "TkDesk/Configuration").
!  Virtually every aspect of TkDesk can be configured!  Just experiment with
!  the default configuration.
  
  
   
!  Enjoy TkDesk!!
! 
--- 1,136 ----
  
!  TkDesk¥Ð¡¼¥¸¥ç¥ó1.1¤Î´ÊÃ±¤Ê»È¤¤¤«¤¿
!  
   =============================================================================
  
!  ºÇ½é¤Ë
   -----------------------------------------------------------------------------
  
!  ¤³¤ÎÆüËÜ¸ì¥Ç¥¹¥¯¥È¥Ã¥×¤Ï¡¢»°´ä¹¬É×¤¬TkDesk¥Ç¥¹¥¯¥È¥Ã¥×¤òÆüËÜ¸ì²½¤·¤¿¤â¤Î¤Ç¤¹¡£
!  ºÇ¿·¾ðÊó¤Ï¡¢ http://www2.famille.ne.jp/~mituiwa/ ¤Ë¤¢¤ê¤Þ¤¹¡£
!  ¤³¤ÎÆüËÜ¸ì¥Ç¥¹¥¯¥È¥Ã¥×¤Î¥¨¥é¡¼¤Ê¤É¤Î¥Ð¥°Êó¹ð¤Ï¡¢
!                                     »°´ä¹¬É× mailto: mituiwa@linet.gr.jp ¤Þ¤Ç
!                                     
!  ¤«¤Ê´Á»úÊÑ´¹¤Ë¤Ä¤¤¤Æ
!  -----------------------------------------------------------------------------
  
!  ¤³¤ÎÆüËÜ¸ì¥Ç¥¹¥¯¥È¥Ã¥×¤Ï¡¢kinput2¤Î¥Õ¥í¥ó¥È¥¨¥ó¥É¥×¥í¥»¥Ã¥µ¤ËÂÐ±þ¤·¤Æ¤¤¤Þ¤¹¡£
!  ¤«¤Ê´Á»úÊÑ´¹¤Ï¡¢¥Æ¥­¥¹¥È¥¨¥Ç¥£¥¿¤ä³Æ¼ï¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤ÎÆþÎÏ¤Ç»ÈÍÑ¤Ç¤­¤Þ¤¹¡£
!  ¤«¤Ê´Á»úÊÑ´¹¤ÎÊÑ´¹¥­¡¼¤Ï¡¢<¥·¥Õ¥È + ¥¹¥Ú¡¼¥¹> ¤ÇÀÚÂØ¤¨¤¬¤Ç¤­¤Þ¤¹¡£
  
  
!  ¥Ç¥¹¥¯¥È¥Ã¥×¤Ë¤Ä¤¤¤Æ
   -----------------------------------------------------------------------------
  
!  TkDesk¤òºÇ½é¤Ëµ¯Æ°¤¹¤ë¤È¤­¤Ë¡¢´ûÄêÃÍ¤Ç¤¢¤ë°Ê²¼¤Î¥¦¥£¥ó¥É¥¦¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
  
!    o ¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼  --- ²èÌÌ¤Î±¦Ã¼¤Ë¥Ü¥¿¥ó¤¬½ÄÎó¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
!      
!    o 3¤Ä¤Î¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤«¤éÀ®¤ë¥Ç¥¹¥¯¥È¥Ã¥×²èÌÌ¤Ç¤¹¡£
!      ¤³¤ì¤Ï¡¢¥³¥Ô¡¼¡¢°ÜÆ°¤Ê¤É¤Î¥Õ¥¡¥¤¥ëÁàºî¤ò¤¹¤ë¤¿¤á¤Î¥Ç¥¹¥¯¥È¥Ã¥×¤Î¥á¥¤¥ó
!      ¥¦¥£¥ó¥É¥¦¤Ç¤¹¡£
! 
!  ¤Þ¤¿¡¢¥Õ¥©¥ë¥À¤Î°ìÍ÷¤ò¸«¤ë¤¿¤á¤Î¤è¤ê¾®¤µ¤Ê¼ïÎà¤Î¥¦¥£¥ó¥É¥¦¤â¤¢¤ê¤Þ¤¹¡£
!  ¤³¤ì¤Ï¡¢1¤Ä¤Î¥Õ¥©¥ë¥À¤Î¤ß¤ò¸«¤ë¥³¥ó¥Ñ¥¯¥È¤Ê¤â¤Î¤Ç¤¹¡£
  
  
!  ¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼
   -----------------------------------------------------------------------------
  
!  ¤½¤ì¤¾¤ì¤Î¥Ü¥¿¥ó¤Ï¡¢
  
!  ¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼¤Î¾å¤Ç¥Þ¥¦¥¹¤Î±¦¥Ü¥¿¥ó¤ò²¡¤¹¤³¤È¤Ë¤è¤Ã¤Æ¡¢¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼
!  ¤ÎÃæ¤Î¤½¤ì¤¾¤ì¤Î¥Ü¥¿¥ó¤ËÂ°¤¹¤ë¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤¬µ¯Æ°¤Ç¤­¤Þ¤¹¡£
!  ¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼¤Î¾å¤Ç¥Þ¥¦¥¹¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼
!  ¤ÎºÇ½é¤Î¹àÌÜ¤¬µ¯Æ°¤·¤Þ¤¹¡£
!  ¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼¤Î¾å¤ÇAlt(PC98¤ÏGraph)¥­¡¼¤ò²¡¤·¤Ê¤¬¤é¥Þ¥¦¥¹¤Îº¸¥Ü¥¿¥ó¤ò
!  ¥É¥é¥Ã¥°¤¹¤ë¤È¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼¤ò°ÜÆ°¤¹¤ë¤³¤È¤¬¤Ç¤­¡¢¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼¤Î
!  °ìÈÖ¾å¤Î¥Ü¥¿¥ó¤Î¾å¤Ç¥Þ¥¦¥¹¤Îº¸¥Ü¥¿¥ó¤ò¥É¥é¥Ã¥°¤·¤Æ¤âÆ±ÍÍ¤Ë¤Ç¤­¤Þ¤¹¡£
!  
!  ¥Þ¥¦¥¹¥Ü¥¿¥ó³ä¤êÉÕ¤±¤ÎÍ×Ìó (1:º¸¥Ü¥¿¥ó¡¢2:Ãæ¥Ü¥¿¥ó¡¢3:±¦¥Ü¥¿¥ó)
!  
!              1:  ¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤ÎºÇ½é¤Î¹àÌÜ¤¬µ¯Æ°
!              3:  ¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤ÎÉ½¼¨
!        Alt + 1:  ¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼¤Î°ÜÆ°
!        Alt + 2:  ¥Ç¥¹¥¯¥È¥Ã¥×ÀßÄê¤Ø¤Î¥·¥ç¡¼¥È¥«¥Ã¥È
! 
!  ¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼¤ÎºÇ½é¤Î¥Ü¥¿¥ó¤Ï¡¢¥Ç¥¹¥¯¥È¥Ã¥×¤Ç»ÈÍÑ¤µ¤ì¤ëµ¡Ç½¤¬Áàºî¤ä¡¢
!  ¥Ç¥¹¥¯¥È¥Ã¥×Áàºî¤ÎÍúÎò¤¬´ÉÍý¤Ç¤­¤Þ¤¹¡£
!  ¤Þ¤¿¡¢¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼¤ò²£Îó¤Ë¤¹¤ë¤Ê¤É¡¢¹¥¤­¤Ê¤è¤¦¤ËÇÛÃÖ¡¢¾õÂÖ¤òÊÑ¹¹
!  ¤Ç¤­¤Þ¤¹¡£
  
  
!  ¥Ç¥¹¥¯¥È¥Ã¥×
!  -----------------------------------------------------------------------------
! 
!  ¥Ç¥¹¥¯¥È¥Ã¥×¤Î¼çÍ×¤ÊÉôÊ¬¤Ï¡¢¥Õ¥¡¥¤¥ë¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Ç¤¹¡£
!  ¤³¤ì¤é¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Ï²£Îó¤Ç¡¢±¦Â¦¤Î¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤«¤é¸«¤Æ¡¢¾ï¤Ë¤½¤Îº¸Â¦¤Ë
!  ¤½¤Î¿Æ¥Õ¥©¥ë¥À¤Î¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤¬ÇÛÃÖ¤µ¤ì¤Þ¤¹¡£
!  ¥ê¥¹¥È¥Ü¥Ã¥¯¥¹Æâ¤ÎÆâÍÆÁ´ÂÎ¤¬¥¦¥£¥ó¥É¥¦Æâ¤Ë¼ý¤Þ¤ê¤­¤ì¤Ê¤¤¾ì¹ç¤Ï¡¢¥¹¥¯¥í¡¼¥ë
!  ¥Ð¡¼¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£¤½¤Î¤È¤­¡¢¥ê¥¹¥È¥Ü¥Ã¥¯¥¹Æâ¤ÎÆâÍÆ¤Îº¸¾å¤ÎÉôÊ¬¤¬É½¼¨¤µ¤ì
!  ¤ë¤Î¤Ç¡¢¤½¤ì°Ê³°¤ÎÆâÍÆ¤ò¸«¤¿¤¤¾ì¹ç¤Ï¡¢¥¹¥¯¥í¡¼¥ë¥Ð¡¼¤òÁàºî¤·¤ÆÉ½¼¨ÎÎ°è¤ò°ÜÆ°
!  ¤µ¤»¤Þ¤¹¡£
! 
!  ¥Þ¥¦¥¹¥Ü¥¿¥ó³ä¤êÉÕ¤±¤ÎÍ×Ìó (1:º¸¥Ü¥¿¥ó¡¢2:Ãæ¥Ü¥¿¥ó¡¢3:±¦¥Ü¥¿¥ó)
!  
!  		           1:  ¥Õ¥¡¥¤¥ë¤Þ¤¿¤Ï¥Õ¥©¥ë¥À¤ÎÁªÂò
! 	  	 Control + 1:  ¥Õ¥¡¥¤¥ë¤Þ¤¿¤Ï¥Õ¥©¥ë¥À¤Î1¹àÌÜ¤ÎÁªÂòÄÉ²Ã 
!         	   Shift + 1:  ¥Õ¥¡¥¤¥ë¤Þ¤¿¤Ï¥Õ¥©¥ë¥À¤ÎÈÏ°ÏÁªÂò
!   	        ¥É¥é¥Ã¥° + 1:  ¥Õ¥¡¥¤¥ë¤Þ¤¿¤Ï¥Õ¥©¥ë¥À¤ÎÎÎ°èÁªÂò
!    Shift + 1¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯:  ¥Õ¥¡¥¤¥ë¤Þ¤¿¤Ï¥Õ¥©¥ë¥À¤òÁ´ÉôÁªÂò
!            1¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯:  ¥Õ¥¡¥¤¥ë¤Þ¤¿¤Ï¥Õ¥©¥ë¥À¤ò³«¤¯
!                		       (¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤ÎºÇ½é¤Î¹àÌÜ¤¬µ¯Æ°¤·¤Þ¤¹)
!     Ctrl + 1¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯:
!     			      ¥Õ¥©¥ë¥À - Ã±°ì¥Õ¥©¥ë¥À¤Î¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤ò³«¤¯
!     			      ¥Õ¥¡¥¤¥ë - ¼Â¹Ô¥À¥¤¥¢¥í¥°¤ò³«¤¯
!            	¥É¥é¥Ã¥° + 2: ¥Õ¥¡¥¤¥ë¤Þ¤¿¤Ï¥Õ¥©¥ë¥À¤ò¥É¥é¥Ã¥°¡£Â¾¤Î¥ê¥¹¥È
!            		      ¥Ü¥Ã¥¯¥¹¤ä¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼¤äÂ¾¤Î¥Ç¥¹¥¯¥È¥Ã¥×
!            		      ¤Ø¤â¥É¥í¥Ã¥×¤Ç¤­¤Þ¤¹¡£
!                 	   3: ¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤ÎÉ½¼¨
! 
!  ¥Õ¥©¥ë¥À¤Î¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤ÎÃæ¤ËÉ½¼¨¤µ¤ì¤Æ¤¤¤ëÌ¾Á°¤Î¾å¤Ç¥Þ¥¦¥¹¤Î±¦¥Ü¥¿¥ó
!  ¤ò²¡¤¹¤È¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
!  ¥Ü¥¿¥ó¤ò²¡¤·Â³¤±¤ë¤È¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤¬É½¼¨¤µ¤ìÂ³¤±¡¢ÂÐ¾Ý¤È¤Ê¤ë¹àÌÜ¤Ë
!  ÂÐ¤·¤Æ¡¢¤µ¤Þ¤¶¤Þ¤ÊÁàºî¤ä¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤¬µ¯Æ°¤Ç¤­¤Þ¤¹¡£
   
   
!  Ã±°ì¥Õ¥©¥ë¥À¤Î¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¥¦¥£¥ó¥É¥¦
   -----------------------------------------------------------------------------
  
!  ¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¥¦¥£¥ó¥É¥¦¤Ï¡¢¥³¥ó¥È¥í¡¼¥ë¥­¡¼¤ò²¡¤·¤Ê¤¬¤é¥Õ¥©¥ë¥À¤ò³«¤¯¡¢
!  ¤Þ¤¿¤Ï¡¢ ¥Õ¥©¥ë¥À¥á¥Ë¥å¡¼¤Ç¥Õ¥©¥ë¥À¤Î¥¦¥£¥ó¥É¥¦ºîÀ®¤òÁªÂò¤¹¤ë¤È¡¢ ¥ê¥¹¥È
!  ¥Ü¥Ã¥¯¥¹¥¦¥£¥ó¥É¥¦¤¬¸½¤ì¤Þ¤¹¡£
!  ¤Þ¤¿¡¢¥Õ¥©¥ë¥À¤Î¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼¤Ç¥Õ¥©¥ë¥À¤ò³«¤¯¤òÁªÂò¤·¤Æ¤âÆ±ÍÍ¤Ç¤¹¡£
!  ¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¥¦¥£¥ó¥É¥¦¤Î¥Ç¥¹¥¯¥È¥Ã¥×¤ÈÈæ³Ó¤·¤Æ¤ÎÂç¤­¤Ê°ã¤¤¤Ï¡¢¥Õ¥©¥ë¥À
!  ¤ÎÆâÍÆ¤ò³«¤¯¤È¤­¡¢Æ±¤¸¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤ÎÃæ¤Ë¾ï¤ËÉ½¼¨¤µ¤ì¤ë¡£
  
!  ¥Þ¥¦¥¹¥Ü¥¿¥ó³ä¤êÉÕ¤±¤ÎÍ×Ìó¤Ï¡¢¥Ç¥¹¥¯¥È¥Ã¥×¤ÈÆ±ÍÍ¤Ç¤¹¡£
  
!  
!  ¤Ç¤Ï¡¢»Ï¤á¤Þ¤·¤ç¤¦¡ª
   -----------------------------------------------------------------------------
  
!  ¤¦¤Þ¤¯¤¤¤±¤Ð¡¢¥Ç¥¹¥¯¥È¥Ã¥×¤ò»Ï¤á¤ë¤Ë¤¢¤¿¤Ã¤Æ¤ÎÉ¬Í×¤ÊÃÎ¼±¤¬¤³¤ì¤ÇÆÀ¤é¤ì¤Þ¤¹¡£
!  ¤³¤ÎÊ¸½ñ¤Ï¡¢¥Ç¥¹¥¯¥È¥Ã¥×¤Î¥á¥Ë¥å¡¼¤Î¥Ø¥ë¥×¤ÎÆþÌç¥¬¥¤¥É¤òÁªÂò¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ
!  É½¼¨¤µ¤ì¤Þ¤¹¡£
!  ¤Þ¤¿¡¢¤³¤Î¥Ç¥¹¥¯¥È¥Ã¥×¤Ï¡¢¥Ð¥ë¡¼¥ó¥Ø¥ë¥×¤òÈ÷¤¨¤Æ¤ª¤ê¡¢¥Þ¥¦¥¹¤Î¥Ý¥¤¥ó¥¿¤ò
!  ¥·¥ç¡¼¥È¥«¥Ã¥È¥Ð¡¼Æâ¥Ü¥¿¥ó¤ä¥Ç¥¹¥¯¥È¥Ã¥×Æâ¤Î¥Ü¥¿¥ó¤Ê¤É¤Î¾å¤Ë°ÜÆ°¤¹¤ë¤ÈÉ½¼¨
!  ¤µ¤ì¤Þ¤¹¡£
!  ¤È¤Æ¤âÍ­ÍÑ¤Ê¥Ø¥ë¥×¤¬tkdesk¤Î¥á¡¼¥ê¥ó¥°¥ê¥¹¥È¤Ç¤¢¤ë
!  http://www.findmail.com/list/tkdesk
!  ¤Î¥¢¡¼¥«¥¤¥Ö¤ò¸¡º÷¤¹¤ë¤³¤È¤Ë¤è¤Ã¤ÆÆÀ¤é¤ì¤Þ¤¹¡£
!  
!  ¤½¤ì¤Ç¤Ï¡¢¥Ç¥¹¥¯¥È¥Ã¥×¤ÎÃµº÷¤ò¤Ï¤¸¤á¤Þ¤·¤ç¤¦¡ª
!  Á´¤Æ¤Î¥á¥Ë¥å¡¼¤ò¸«ÅÏ¤·¡¢Á´¤Æ¤Î¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤·¡¢¥æ¡¼¥¶¡¼¥º¥¬¥¤¥É¤ò¸«¤Æ
!  ¸«¤Þ¤·¤ç¤¦¡£
!  ¤Þ¤¿¡¢¥á¥Ë¥å¡¼¤Î¥Ø¥ë¥×¤ÎÊÑ¹¹ÍúÎò¤òºÇ½é¤Ë¸«¤Æ¤ß¤Þ¤·¤ç¤¦¡£
!  ¤³¤Î²òÀâ¤Ë¤è¤Ã¤Æ¡¢¾¯¤Ê¤¯¤È¤âÂ¿¤¯¤Î¥Ç¥¹¥¯¥È¥Ã¥×¤ÎÆÃÄ§¤¬ÌÀ¤é¤«¤Ë¤Ê¤ë¤Ç¤·¤ç¤¦¡£
! 
!  ¥Ç¥¹¥¯¥È¥Ã¥×¤ÎÁàºî¤¬½ÏÃÎ¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¤é¡¢¥Ç¥¹¥¯¥È¥Ã¥×¤ÎÀßÄê¥Õ¥¡¥¤¥ë
!  ¤ò¸«¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£(¥Ç¥¹¥¯¥È¥Ã¥×¤Î¥á¥Ë¥å¡¼¤ÎÉ½¼¨¤ÎÀßÄê¤òÁªÂò) 
!  ¤³¤ì¤Ë¤è¤Ã¤Æ¡¢¥Ç¥¹¥¯¥È¥Ã¥×¤Î¤Û¤È¤ó¤É¤ÎÀßÄê¤¬¤Ç¤­¤Þ¤¹¡ª
!  »î¤·¤Ë¥Ç¥Õ¥©¥ë¥È¤ÎÀßÄê¤ò¤¤¤í¤¤¤í¤ÈÊÑ¹¹¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£
  
  
   
!  ÆüËÜ¸ì¥Ç¥¹¥¯¥È¥Ã¥×¤Ç²÷Å¬¤ÊÁàºî¤ò¡ª¡ª
\ No newline at end of file
diff -Pcr tkdesk-1.2/tcldesk/envedit.tcl tkdesk-1.2-jp/tcldesk/envedit.tcl
*** tkdesk-1.2/tcldesk/envedit.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/envedit.tcl	Fri Sep 15 17:46:39 2000
***************
*** 40,50 ****
      frame $t.fb -bd 1 -relief raised
      pack $t.fb -fill x
  
!     cb_button $t.bOK -text "OK" -default 1 -width 6 -underline 0 \
  	    -command "_dsk_env_set $t; $t.bClose.button invoke"
!     cb_button $t.bApply -text "Apply" -width 6 -underline 0 \
  	    -command "_dsk_env_set $t; _dsk_env_fill_listbox"
!     cb_button $t.bClose -text "Close" -width 6 -underline 0 \
  	    -command "set tkdesk(geometry,env_edit) \[wm geometry $t\];
                        destroy $t"
      cb_addShortcutBinding $t.env $t.bOK.button "o"
--- 40,50 ----
      frame $t.fb -bd 1 -relief raised
      pack $t.fb -fill x
  
!     cb_button $t.bOK -text "O Î»²ò" -default 1 -width 6 -underline 0 \
  	    -command "_dsk_env_set $t; $t.bClose.button invoke"
!     cb_button $t.bApply -text "A ¼Â¹Ô" -width 6 -underline 0 \
  	    -command "_dsk_env_set $t; _dsk_env_fill_listbox"
!     cb_button $t.bClose -text "C ÊÄ¤¸¤ë" -width 6 -underline 0 \
  	    -command "set tkdesk(geometry,env_edit) \[wm geometry $t\];
                        destroy $t"
      cb_addShortcutBinding $t.env $t.bOK.button "o"
diff -Pcr tkdesk-1.2/tcldesk/file_ops.tcl tkdesk-1.2-jp/tcldesk/file_ops.tcl
*** tkdesk-1.2/tcldesk/file_ops.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/file_ops.tcl	Fri Sep 15 17:46:39 2000
***************
*** 183,199 ****
  
      if {$type == "file"} {
  	set dsk_create(win,file) [dsk_HistEntry .dhe[dsk_HistEntry :: id] \
! 		-label "Name of new file:" \
! 		-title "New File" \
! 		-checklabel "Open in Editor" \
  		-checkvalue $dsk_create(open,file) \
  		-callback {dsk_create_callback file} \
  		-nograb 1]
      } else {
  	set dsk_create(win,directory) [dsk_HistEntry .dhe[dsk_HistEntry :: id] \
! 		-label "Name of new directory:" \
! 		-title "New Directory" \
! 		-checklabel "Open after Creation" \
  		-checkvalue $dsk_create(open,directory) \
  		-callback {dsk_create_callback directory} \
  		-nograb 1]
--- 183,199 ----
  
      if {$type == "file"} {
  	set dsk_create(win,file) [dsk_HistEntry .dhe[dsk_HistEntry :: id] \
! 		-label "¿·µ¬ºîÀ®¤Î¥Õ¥¡¥¤¥ëÌ¾:" \
! 		-title "¿·µ¬ºîÀ®" \
! 		-checklabel "¥¨¥Ç¥£¥¿¤Ç³«¤¯" \
  		-checkvalue $dsk_create(open,file) \
  		-callback {dsk_create_callback file} \
  		-nograb 1]
      } else {
  	set dsk_create(win,directory) [dsk_HistEntry .dhe[dsk_HistEntry :: id] \
! 		-label "¿·µ¬¤Î¥Õ¥©¥ë¥ÀÌ¾:" \
! 		-title "¿·µ¬¥Õ¥©¥ë¥À" \
! 		-checklabel "³«¤¤¤¿¸å¤ËºîÀ®" \
  		-checkvalue $dsk_create(open,directory) \
  		-callback {dsk_create_callback directory} \
  		-nograb 1]
***************
*** 228,234 ****
  	set err [catch {eval exec $tkdesk(cmd,$cmd) [list $name]} errmsg]
  	if $err {
  	    dsk_errbell
! 	    cb_error "Couldn't create $name! ($errmsg)"
  	    return
  	}
  	set win [dsk_active win]
--- 228,234 ----
  	set err [catch {eval exec $tkdesk(cmd,$cmd) [list $name]} errmsg]
  	if $err {
  	    dsk_errbell
! 	    cb_error "$name ¤òºîÀ®¤Ç¤­¤Þ¤»¤ó¡ª ($errmsg)"
  	    return
  	}
  	set win [dsk_active win]
***************
*** 552,558 ****
  	    incr c
  	    if {$c >= $tkdesk(_max_menu_entries)} {
  		set om $m
! 		$m add cascade -label "More..." -menu [set m $m.c$c]
  		catch {destroy $m}
  		menu $m
  		foreach b [bind $om] {
--- 552,558 ----
  	    incr c
  	    if {$c >= $tkdesk(_max_menu_entries)} {
  		set om $m
! 		$m add cascade -label "¹¹¤Ë..." -menu [set m $m.c$c]
  		catch {destroy $m}
  		menu $m
  		foreach b [bind $om] {
***************
*** 586,601 ****
  
      if {$files == ""} {
  	dsk_bell
! 	cb_info "Please select one or more files first."
  	return
      }
  
      foreach file $files {
  	set file [subst $file]
  	if ![dsk_check_perm $file] {
! 	    set rc [cb_dialog .trename "Permission denied" \
! 		    "[file tail $file]:\nYou don't have permission to rename this item." \
! 		    error 0 " OK " "Cancel"]
  	    if {$rc == 1} {
  		return
  	    } else {
--- 586,601 ----
  
      if {$files == ""} {
  	dsk_bell
! 	cb_info "¥Õ¥¡¥¤¥ë¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤¡£"
  	return
      }
  
      foreach file $files {
  	set file [subst $file]
  	if ![dsk_check_perm $file] {
! 	    set rc [cb_dialog .trename "¥Õ¥¡¥¤¥ë¤òÁàºî¤¹¤ë¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó" \
! 		    "[file tail $file]:\n¤³¤Î¥Õ¥¡¥¤¥ë¤ÎÌ¾Á°¤òÊÑ¹¹¤¹¤ë¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡£" \
! 		    error 0 " ¤Ï¤¤ " "¼è¾Ã"]
  	    if {$rc == 1} {
  		return
  	    } else {
***************
*** 605,615 ****
  	if [file exists $file] {
  	    set tmpnewname [file tail [dskC_striptc $file]]
  	    set path [file dirname [dskC_striptc $file]]
! 	    cb_readString "Rename $tmpnewname to:" tmpnewname "Rename File"
  	    if {$tmpnewname != "" && \
  		    [list $file] != [list $path/$tmpnewname]} {
  		if [file exists [list $path/$tmpnewname]] {
! 		    if {[cb_okcancel "File \"$tmpnewname\" already exists. Overwrite?"] == 1} {
  			unset tmpnewname
  			continue
  		    }
--- 605,615 ----
  	if [file exists $file] {
  	    set tmpnewname [file tail [dskC_striptc $file]]
  	    set path [file dirname [dskC_striptc $file]]
! 	    cb_readString "$tmpnewname ¤Î¥Õ¥¡¥¤¥ëÌ¾ÊÑ¹¹:" tmpnewname "Rename File"
  	    if {$tmpnewname != "" && \
  		    [list $file] != [list $path/$tmpnewname]} {
  		if [file exists [list $path/$tmpnewname]] {
! 		    if {[cb_okcancel " \"$tmpnewname\" ¤Ï¤¹¤Ç¤ËÂ¸ºß¤·¤Þ¤¹¡£¾å½ñ¤­¤·¤Þ¤¹¤«¡©"] == 1} {
  			unset tmpnewname
  			continue
  		    }
***************
*** 632,638 ****
  	    unset tmpnewname
  	} else {
  	    dsk_errbell
! 	    cb_error "File does not exist."
  	}
      }
  }
--- 632,638 ----
  	    unset tmpnewname
  	} else {
  	    dsk_errbell
! 	    cb_error "¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Þ¤»¤ó¡£"
  	}
      }
  }
diff -Pcr tkdesk-1.2/tcldesk/find.tcl tkdesk-1.2-jp/tcldesk/find.tcl
*** tkdesk-1.2/tcldesk/find.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/find.tcl	Fri Sep 15 17:46:39 2000
***************
*** 57,67 ****
      set dsk_find(path) ""
      set dsk_find(name) ""
      set dsk_find(string) ""
!     set dsk_find(strtype) "String"
      set dsk_find(size) ""
      set dsk_find(days) ""
!     set dsk_find(type) "All Types"
!     set dsk_find(time) "Last Modified"
      set dsk_find(owner) ""
      set dsk_find(group) ""
      set dsk_find(samefs) 0
--- 57,67 ----
      set dsk_find(path) ""
      set dsk_find(name) ""
      set dsk_find(string) ""
!     set dsk_find(strtype) "Ê¸»úÎó"
      set dsk_find(size) ""
      set dsk_find(days) ""
!     set dsk_find(type) "Á´¤Æ¤Î¼ïÎà"
!     set dsk_find(time) "ºÇ¸å¤ËÊÑ¹¹"
      set dsk_find(owner) ""
      set dsk_find(group) ""
      set dsk_find(samefs) 0
***************
*** 112,118 ****
      frame $t.f1
      pack $t.f1 -in $t.f -fill x -expand yes -padx $tkdesk(pad)
  
!     label $t.lsp -text "Path:" -width 10 -anchor w
      entry $t.esp -bd 2 -relief sunken -width 20 -textvar dsk_find(path)
      if !$path_set {
  	set p [dsk_active dir]
--- 112,118 ----
      frame $t.f1
      pack $t.f1 -in $t.f -fill x -expand yes -padx $tkdesk(pad)
  
!     label $t.lsp -text "¥Ñ¥¹:" -width 10 -anchor w
      entry $t.esp -bd 2 -relief sunken -width 20 -textvar dsk_find(path)
      if !$path_set {
  	set p [dsk_active dir]
***************
*** 127,151 ****
      bind $t.esp <Control-c> "$t.bClose invoke; break"
      blt_drag&drop target $t.esp handler file "dd_handle_text $t.esp %v 1"
      cb_bindForCompletion $t.esp <Control-Tab>
!     cb_balloonHelp $t.esp "The search will start at this directory. If this field remains blank, search will start at the current directory of the last active file browser. You may specify multiple paths by separating them with a space."
      
      frame $t.fs1 -width 8
      menubutton $t.mbDir -bd 2 -relief raised \
  		-bitmap @$tkdesk(library)/cb_tools/bitmaps/slash.xbm \
  		-menu $t.mbDir.menu
!     cb_balloonHelp $t.mbDir "This menu contains the custom directories from the Directories menu."
      menu [set m $t.mbDir.menu] \
  	    -postcommand "_dsk_dmenu $t.mbDir.menu $t.esp"
      # add dummy entry to work around bug in pre Tk 4.0p2:
!     $m add command -label "dummy"
  
      menubutton $t.mbHist -bd 2 -relief raised \
  		-bitmap @$tkdesk(library)/cb_tools/bitmaps/combo.xbm \
  		-menu $t.mbHist.menu
!     cb_balloonHelp $t.mbHist "This menu contains the directories you have last visited."
      menu $t.mbHist.menu -postcommand "_dsk_hmenu $t.mbHist.menu $t.esp"
      # add dummy entry to work around bug in pre Tk 4.0p2:
!     $t.mbHist.menu add command -label "dummy"
  
      pack $t.lsp $t.esp $t.fs1 $t.mbDir $t.mbHist -in $t.f1 -side left \
  	    -pady $tkdesk(pad)
--- 127,151 ----
      bind $t.esp <Control-c> "$t.bClose invoke; break"
      blt_drag&drop target $t.esp handler file "dd_handle_text $t.esp %v 1"
      cb_bindForCompletion $t.esp <Control-Tab>
!     cb_balloonHelp $t.esp "¤³¤Î¥Õ¥©¥ë¥À¤Î¸¡º÷¤ò¤¹¤ë¤Ë¤¢¤¿¤Ã¤Æ¡¢¤³¤ÎÍó¤¬¶õ¤Ê¤é¤Ð¡¢¥Ç¥¹¥¯¥È¥Ã¥×¤ÇºÇ¸å¤ËÍ­¸ú¤Ë¤Ê¤Ã¤¿¸½ºß¤Î¥Õ¥©¥ë¥À¤«¤é¸¡º÷¤ò³«»Ï¤·¤Þ¤¹¡£Ê£¿ô¤Î¥Ñ¥¹¤ò¸¡º÷¤¹¤ë¾ì¹ç¤Ï¡¢¤½¤ì¤é¤ò¥¹¥Ú¡¼¥¹¤Ç¶èÀÚ¤Ã¤Æ¤¯¤À¤µ¤¤¡£"
      
      frame $t.fs1 -width 8
      menubutton $t.mbDir -bd 2 -relief raised \
  		-bitmap @$tkdesk(library)/cb_tools/bitmaps/slash.xbm \
  		-menu $t.mbDir.menu
!     cb_balloonHelp $t.mbDir "¤³¤Î¥á¥Ë¥å¡¼¤ÎÆâÍÆ¤Ï¡¢¥Õ¥©¥ë¥À¥á¥Ë¥å¡¼¤«¤é¤Î¥«¥¹¥¿¥à¥Õ¥©¥ë¥À¤Ç¤¹¡£"
      menu [set m $t.mbDir.menu] \
  	    -postcommand "_dsk_dmenu $t.mbDir.menu $t.esp"
      # add dummy entry to work around bug in pre Tk 4.0p2:
!     $m add command -label "¥À¥ß¡¼"
  
      menubutton $t.mbHist -bd 2 -relief raised \
  		-bitmap @$tkdesk(library)/cb_tools/bitmaps/combo.xbm \
  		-menu $t.mbHist.menu
!     cb_balloonHelp $t.mbHist "¤³¤Î¥á¥Ë¥å¡¼¤ÎÆâÍÆ¤Ï¡¢ºÇ¸å¤Ë»ØÄê¤·¤¿½ç¤Î¥Õ¥©¥ë¥À¤Ç¤¹¡£"
      menu $t.mbHist.menu -postcommand "_dsk_hmenu $t.mbHist.menu $t.esp"
      # add dummy entry to work around bug in pre Tk 4.0p2:
!     $t.mbHist.menu add command -label "¥À¥ß¡¼"
  
      pack $t.lsp $t.esp $t.fs1 $t.mbDir $t.mbHist -in $t.f1 -side left \
  	    -pady $tkdesk(pad)
***************
*** 156,177 ****
      frame $t.f2
      pack $t.f2 -in $t.f -fill x -expand yes -padx $tkdesk(pad)
  
!     label $t.ln -text "File-Masks:" -width 10 -anchor w
      entry $t.en -bd 2 -relief sunken -width 16 -textvar dsk_find(name)
      bind $t.en <Return> "$t.bSearch.button invoke"
      bind $t.en <Escape> "$t.bClose invoke"
      bind $t.en <Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.en "Enter a shell-like glob pattern here (e.g. *.c) to search for files with a certain name. You may specify multiple masks by separating them with a space."
      frame $t.fs2 -width 8
!     tk_optionMenu $t.mst dsk_find(strtype) "String" "RegExp" "ExtReg"
      $t.mst config -width 7 -anchor w
!     cb_balloonHelp $t.mst "Whether to look for a set of strings (separated by ||), for a regular expression, or for an extended regular expression (see the grep manual-page for more)."
!     #label $t.lst -text "String:"
      entry $t.est -bd 2 -relief sunken -width 34 -textvar dsk_find(string)
      bind $t.est <Return> "$t.bSearch.button invoke"
      bind $t.est	<Escape> "$t.bClose invoke"
      bind $t.est	<Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.est "Enter a string or regular expression in this field if you're looking for files containing a certain string."
      pack $t.ln $t.en $t.fs2 $t.mst $t.est \
  	    -in $t.f2 -side left -pady $tkdesk(pad)
      pack config $t.en -ipady 2
--- 156,177 ----
      frame $t.f2
      pack $t.f2 -in $t.f -fill x -expand yes -padx $tkdesk(pad)
  
!     label $t.ln -text "¥Õ¥¡¥¤¥ë¤Î¼ïÎà¤Î»ØÄê:" -width 20 -anchor w
      entry $t.en -bd 2 -relief sunken -width 16 -textvar dsk_find(name)
      bind $t.en <Return> "$t.bSearch.button invoke"
      bind $t.en <Escape> "$t.bClose invoke"
      bind $t.en <Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.en "¸¡º÷¤¹¤ë¥Õ¥¡¥¤¥ëÌ¾¤ò(*.c¤Î¤è¤¦¤Ê)¥·¥§¥ë·Á¼°¥ï¥¤¥ë¥É¥«¡¼¥É¤Î¥Ñ¥¿¡¼¥ó¤Ç»ØÄê¤·¤Æ¤¯¤À¤µ¤¤¡£Ê£¿ô¤Î¥Ñ¥¿¡¼¥ó¤ò»ØÄê¤¹¤ë¾ì¹ç¤Ï¡¢¤½¤ì¤é¤ò¥¹¥Ú¡¼¥¹¤Ç¶èÀÚ¤Ã¤Æ¤¯¤À¤µ¤¤¡£"
      frame $t.fs2 -width 8
!     tk_optionMenu $t.mst dsk_find(strtype) "Ê¸»úÎó" "Àµµ¬É½¸½" "³ÈÄ¥Àµµ¬É½¸½"
      $t.mst config -width 7 -anchor w
!     cb_balloonHelp $t.mst "(||¤Ç¶èÀÚ¤é¤ì¤¿)Ê¸»úÎó¤Î¥»¥Ã¥È¤«¡¢Àµµ¬É½¸½¤«¡¢³ÈÄ¥¤µ¤ì¤¿Àµµ¬É½¸½(grep¤Î¥Þ¥Ë¥å¥¢¥ë¥Ú¡¼¥¸¤ò¹¹¤Ë»²¾È¤Î¤³¤È)¤«¤É¤¦¤«¤òÁªÂò¤¹¤ë¡£"
!     #label $t.lst -text "Ê¸»úÎó:"
      entry $t.est -bd 2 -relief sunken -width 34 -textvar dsk_find(string)
      bind $t.est <Return> "$t.bSearch.button invoke"
      bind $t.est	<Escape> "$t.bClose invoke"
      bind $t.est	<Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.est "¥Õ¥¡¥¤¥ë¤Ë¸¡º÷¤·¤¿¤¤Ê¸»úÎó¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¤«¸«¤¿¤¤¾ì¹ç¤Ï¡¢¤³¤ÎÍó¤ËÀµµ¬É½¸½¤«Ê¸»úÎó¤òÆþÎÏ¤·¤Æ¤¯¤À¤µ¤¤¡£"
      pack $t.ln $t.en $t.fs2 $t.mst $t.est \
  	    -in $t.f2 -side left -pady $tkdesk(pad)
      pack config $t.en -ipady 2
***************
*** 181,204 ****
      frame $t.f3b
      pack $t.f3b -in $t.f -fill x -expand yes -padx $tkdesk(pad)
  
!     label $t.lown -text "Owner:" -width 10 -anchor w
      entry $t.eown -bd 2 -relief sunken -width 16 -textvar dsk_find(owner)
      bind $t.en <Return> "$t.bSearch.button invoke"
      bind $t.en <Escape> "$t.bClose invoke"
      bind $t.en <Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.eown "Enter a numeric or textual user ID to look for files belonging to that user."
      frame $t.fs3b -width 8
!     label $t.lgrp -text "Group:" -anchor w
      entry $t.egrp -bd 2 -relief sunken -width 16 -textvar dsk_find(group)
      bind $t.egrp <Return> "$t.bSearch.button invoke"
      bind $t.egrp <Escape> "$t.bClose invoke"
      bind $t.egrp <Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.egrp "Enter a numeric or textual group ID to look for files belonging to that group."
      frame $t.fs3b2 -width 8
!     tk_optionMenu $t.mt dsk_find(type) "All Types" "Regular Files" \
! 	    "Directories" "Symbolic Links" "Sockets" "Named Pipes"
!     $t.mt config -width 12 -anchor w
!     cb_balloonHelp $t.mt "The type of files to look for."
  
      pack $t.lown $t.eown $t.fs3b $t.lgrp $t.egrp $t.fs3b2 $t.mt \
  	    -in $t.f3b -side left -pady $tkdesk(pad)
--- 181,206 ----
      frame $t.f3b
      pack $t.f3b -in $t.f -fill x -expand yes -padx $tkdesk(pad)
  
!     label $t.lown -text "½êÍ­¼Ô:" -width 10 -anchor w
      entry $t.eown -bd 2 -relief sunken -width 16 -textvar dsk_find(owner)
      bind $t.en <Return> "$t.bSearch.button invoke"
      bind $t.en <Escape> "$t.bClose invoke"
      bind $t.en <Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.eown "¥æ¡¼¥¶¡¼ÊÌ¤ËÂ°¤¹¤ë¥Õ¥¡¥¤¥ë¤ò¸¡º÷¤¹¤ë¤¿¤á¤Ë¡¢Ì¾Á°¤Þ¤¿¤Ï¿ô»ú·Á¼°¤Î¥æ¡¼¥¶¡¼ID¤òÆþÎÏ"
      frame $t.fs3b -width 8
!     label $t.lgrp -text "¥°¥ë¡¼¥×:" -anchor w
      entry $t.egrp -bd 2 -relief sunken -width 16 -textvar dsk_find(group)
      bind $t.egrp <Return> "$t.bSearch.button invoke"
      bind $t.egrp <Escape> "$t.bClose invoke"
      bind $t.egrp <Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.egrp "¥°¥ë¡¼¥×ÊÌ¤ËÂ°¤¹¤ë¥Õ¥¡¥¤¥ë¤ò¸¡º÷¤¹¤ë¤¿¤á¤Ë¡¢Ì¾Á°¤Þ¤¿¤Ï¿ô»ú·Á¼°¤Î¥°¥ë¡¼¥×ID¤òÆþÎÏ"
      frame $t.fs3b2 -width 8
!     tk_optionMenu $t.mt dsk_find(type) "Á´¤Æ¤Î¼ïÎà" "ÄÌ¾ï¤Î¥Õ¥¡¥¤¥ë" \
! 	    "¥Õ¥©¥ë¥À" "¥·¥ó¥Ü¥ê¥Ã¥¯¥ê¥ó¥¯" "¥½¥±¥Ã¥È" "Ì¾Á°¤Ä¤­¥Ñ¥¤¥×"
! #    tk_optionMenu $t.mt dsk_find(type) "Á´¤Æ¤Î¼ïÎà" "Regular Files" \
! #	    "¥Õ¥©¥ë¥À" "Symbolic Links" "¥½¥±¥Ã¥È" "Ì¾Á°¤Ä¤­¥Ñ¥¤¥×"
!     $t.mt config -width 16 -anchor w
!     cb_balloonHelp $t.mt "¥Õ¥¡¥¤¥ë¤ÎÂ°À­¤ò¸«¤¿¤¤¾ì¹ç"
  
      pack $t.lown $t.eown $t.fs3b $t.lgrp $t.egrp $t.fs3b2 $t.mt \
  	    -in $t.f3b -side left -pady $tkdesk(pad)
***************
*** 209,243 ****
      frame $t.f3
      pack $t.f3 -in $t.f -fill x -expand yes -padx $tkdesk(pad)
  
!     label $t.ls -text "Size (kB):" -width 10 -anchor w
      entry $t.es -bd 2 -relief sunken -width 16 -textvar dsk_find(size)
      bind $t.es <Return> "$t.bSearch.button invoke"
      bind $t.es <Escape> "$t.bClose invoke"
      bind $t.es <Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.es "If the size of files is important, this either gives the exact number of kilobytes, or, if preceded with a + resp. -, files will be matched which are bigger resp. smaller than this number. E.g. +100 will match all files which are bigger than 100 kB."
      frame $t.fs3 -width 8
!     tk_optionMenu $t.mtm  dsk_find(time) "Last Accessed" "Last Modified"
      $t.mtm config -width 13 -anchor w
!     cb_balloonHelp $t.mtm "This setting relates to the entry field right to this menu button. The value entered there can either relate to when the file was last accessed or last modified."
      entry $t.etm -bd 2 -relief sunken -width 5 -textvar dsk_find(days)
!     cb_balloonHelp $t.etm "10 will match files which are 10 days old, +10 will match all files older than 10 days, and -10 all newer than 10 days. Leave this field blank if this is not important for your search."
      bind $t.etm <Return> "$t.bSearch.button invoke"
      bind $t.etm	<Escape> "$t.bClose invoke"
      bind $t.etm	<Control-c> "$t.bClose invoke; break"
      frame $t.fs32 -width 8
!     menubutton $t.mbOpts -text "Options..." -menu [set m $t.mbOpts.m] \
  	    -padx 4 -relief raised -bd 2
!     cb_balloonHelp $t.mbOpts "This is a menubutton giving access to several options related to the find operation."
      menu $m
!     $m add checkbutton -label "Case Sensitive" \
  	    -variable dsk_find(case)
!     $m add checkbutton -label "Whole words" \
  	    -variable dsk_find(wordRegexp)
!     $m add checkbutton -label "File-Mask Case Sensitive" \
  	    -variable dsk_find(caseFile)
      $m add separator
!     $m add checkbutton -label "Same Filesystem" -variable dsk_find(samefs)
!     $m add checkbutton -label "Follow Symbolic Links" \
  	    -variable dsk_find(follow)
  
      pack $t.ls $t.es $t.fs3 $t.mtm $t.etm $t.fs32 \
--- 211,245 ----
      frame $t.f3
      pack $t.f3 -in $t.f -fill x -expand yes -padx $tkdesk(pad)
  
!     label $t.ls -text "Âç¤­¤µ(kB):" -width 10 -anchor w
      entry $t.es -bd 2 -relief sunken -width 16 -textvar dsk_find(size)
      bind $t.es <Return> "$t.bSearch.button invoke"
      bind $t.es <Escape> "$t.bClose invoke"
      bind $t.es <Control-c> "$t.bClose invoke; break"
!     cb_balloonHelp $t.es "¥Õ¥¡¥¤¥ë¤ÎÂç¤­¤µ¤Ç¸¡º÷¤¹¤ë¾ì¹ç¡¢¥­¥í¥Ð¥¤¥ÈÃ±°Ì¤Ç¤ÎÀµ³Î¤ÊÂç¤­¤µ¤ò»ØÄê¤¹¤ëÊýË¡¤È¡¢+ ¤« - ¤òÈæ³Ó¤¹¤ëÂç¤­¤µ¤ÎÁ°¤Ë»ØÄê¤·¤Æ¤è¤êÂç¤­¤¤¤â¤Î¡¢¤Þ¤¿¤Ï¡¢¤è¤ê¾®¤µ¤¤¤â¤Î¤ò»ØÄê¤¹¤ëÊýË¡¤Î2¤Ä¤¬¤¢¤ê¤Þ¤¹¡£Îã¤¨¤Ð¡¢+100 ¤È»ØÄê¤·¤¿¾ì¹ç¡¢100¥­¥í¥Ð¥¤¥È¤è¤êÂç¤­¤¤¥Õ¥¡¥¤¥ë¤¬¸¡º÷¤µ¤ì¡¢-100 ¤È»ØÄê¤·¤¿¾ì¹ç¡¢100¥­¥í¥Ð¥¤¥È¤è¤ê¾®¤µ¤¤¥Õ¥¡¥¤¥ë¤¬¸¡º÷¤µ¤ì¤Þ¤¹¡£"
      frame $t.fs3 -width 8
!     tk_optionMenu $t.mtm  dsk_find(time) "ºÇ¸å¤Ë" "ºÇ¸å¤ËÊÑ¹¹"
      $t.mtm config -width 13 -anchor w
!     cb_balloonHelp $t.mtm "¤³¤ÎÀßÄê¤Ï¥á¥Ë¥å¡¼¥Ü¥¿¥ó±¦¤ÎÍó¤ÎÆâÍÆ¤Ë´Ø·¸¤·¤Þ¤¹¡£¤³¤ÎÆþÎÏ¤µ¤ì¤¿ÆâÍÆ¤Ï¡¢¥Õ¥¡¥¤¥ë¤òºÇ¸å¤ËÁàºî¤·¤¿»þ¡¢¤Þ¤¿¤Ï¡¢ºÇ¸å¤ËÊÑ¹¹¤·¤¿»þ¤Î¤¤¤º¤ì¤«¤Ë´Ø·¸¤·¤Þ¤¹¡£"
      entry $t.etm -bd 2 -relief sunken -width 5 -textvar dsk_find(days)
!     cb_balloonHelp $t.etm "10 ¤È»ØÄê¤¹¤ì¤Ð10ÆüÁ°¤Î¥Õ¥¡¥¤¥ë¡¢+10 ¤È»ØÄê¤¹¤ì¤Ð10Æü°ÊÁ°¤Î¥Õ¥¡¥¤¥ë¡¢-10 ¤È»ØÄê¤¹¤ì¤Ð10Æü°Ê¹ß¤Î¥Õ¥¡¥¤¥ë¤¬ºÇ¸å¤ËÁàºî¤Þ¤¿¤ÏÊÑ¹¹¤µ¤ì¤¿¤«¤ò¸¡º÷¤·¤Þ¤¹¡£¤â¤·¡¢¤³¤ÎÍó¤¬»ØÄê¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤ÐÆü¿ô¤ò¹ÍÎ¸¤·¤Æ¸¡º÷¤·¤Þ¤»¤ó¡£"
      bind $t.etm <Return> "$t.bSearch.button invoke"
      bind $t.etm	<Escape> "$t.bClose invoke"
      bind $t.etm	<Control-c> "$t.bClose invoke; break"
      frame $t.fs32 -width 8
!     menubutton $t.mbOpts -text "¥ª¥×¥·¥ç¥ó..." -menu [set m $t.mbOpts.m] \
  	    -padx 4 -relief raised -bd 2
!     cb_balloonHelp $t.mbOpts "¤³¤Î¥á¥Ë¥å¡¼¥Ü¥¿¥ó¤Ï¡¢¸¡º÷¤¹¤ë¤¿¤á¤Î¤µ¤Þ¤¶¤Þ¤Ê¥ª¥×¥·¥ç¥ó¤Ë´Ø·¸¤·¤Þ¤¹¡£"
      menu $m
!     $m add checkbutton -label "Âç¾®Ê¸»ú¤ò¶èÊÌ" \
  	    -variable dsk_find(case)
!     $m add checkbutton -label "¤Þ¤È¤Þ¤Ã¤¿¸ÀÍÕ" \
  	    -variable dsk_find(wordRegexp)
!     $m add checkbutton -label "Âç¾®Ê¸»ú¤ò¶èÊÌ¤·¤¿¥Õ¥¡¥¤¥ëÌ¾" \
  	    -variable dsk_find(caseFile)
      $m add separator
!     $m add checkbutton -label "Æ±¤¸¥Õ¥¡¥¤¥ë¥·¥¹¥Æ¥à" -variable dsk_find(samefs)
!     $m add checkbutton -label "¥ó¥Ü¥ê¥Ã¥¯¥ê¥ó¥¯¤â¸¡º÷" \
  	    -variable dsk_find(follow)
  
      pack $t.ls $t.es $t.fs3 $t.mtm $t.etm $t.fs32 \
***************
*** 253,265 ****
      frame $t.f4sep -height 6
      pack $t.f4sep -in $t.f4 -fill x
  
!     cb_button $t.bSearch -text " Search " -default 1 \
  	    -command dsk_do_find_files
!     cb_balloonHelp $t.bSearch.button "Starts the search. The search will be carried out in the background."
!     button $t.bClose -text "  Close  " -command \
  	    "set tkdesk(geometry,dsk_find_files) \[wm geometry $t\] ;\
  	    destroy $t; catch \{destroy $t-icon\}"
!     cb_balloonHelp $t.bClose "Closes this dialog."
      
      pack $t.bSearch $t.bClose -in $t.f4 -side left \
  	    -padx $tkdesk(pad) -pady $tkdesk(pad)
--- 255,267 ----
      frame $t.f4sep -height 6
      pack $t.f4sep -in $t.f4 -fill x
  
!     cb_button $t.bSearch -text " ¸¡º÷ " -default 1 \
  	    -command dsk_do_find_files
!     cb_balloonHelp $t.bSearch.button "¸¡º÷¤ò³«»Ï¤¹¤ë¡£¸¡º÷¤Ï¥Ð¥Ã¥¯¥°¥é¥¦¥ó¥É¤Ç¹Ô¤ï¤ì¤ë¡£"
!     button $t.bClose -text "ÊÄ¤¸¤ë" -command \
  	    "set tkdesk(geometry,dsk_find_files) \[wm geometry $t\] ;\
  	    destroy $t; catch \{destroy $t-icon\}"
!     cb_balloonHelp $t.bClose "¤³¤Î¥À¥¤¥¢¥í¥°¤òÊÄ¤¸¤ë"
      
      pack $t.bSearch $t.bClose -in $t.f4 -side left \
  	    -padx $tkdesk(pad) -pady $tkdesk(pad)
***************
*** 271,282 ****
      frame $t.f5
      pack $t.f5 -in $t.flb -fill both -expand yes -pady $tkdesk(pad)
      
!     label $t.llb -text "Matching files:" -anchor w
      pack $t.llb -in $t.f5 -anchor w -padx $tkdesk(pad) 
      
      pack [_dsk_find_lb $t.dlb] -in $t.f5 -fill both -expand yes
  
!     wm title $t "Find Files"
      wm minsize $t 10 2
      dsk_place_window $t dsk_find_files 10x5 1
      wm protocol $t WM_DELETE_WINDOW "$t.bClose invoke"
--- 273,284 ----
      frame $t.f5
      pack $t.f5 -in $t.flb -fill both -expand yes -pady $tkdesk(pad)
      
!     label $t.llb -text "¹çÃ×¤·¤¿¥Õ¥¡¥¤¥ë:" -anchor w
      pack $t.llb -in $t.f5 -anchor w -padx $tkdesk(pad) 
      
      pack [_dsk_find_lb $t.dlb] -in $t.f5 -fill both -expand yes
  
!     wm title $t "find file"
      wm minsize $t 10 2
      dsk_place_window $t dsk_find_files 10x5 1
      wm protocol $t WM_DELETE_WINDOW "$t.bClose invoke"
***************
*** 344,382 ****
  	    -string {
  		incr i
  		set dsk_find(string) [lindex $args $i]
! 		set dsk_find(strtype) "String"
  	    }
  	    -regexp {
  		incr i
  		set dsk_find(string) [lindex $args $i]
! 		set dsk_find(strtype) "RegExp"
  	    }
  	    -extreg {
  		incr i
  		set dsk_find(string) [lindex $args $i]
! 		set dsk_find(strtype) "ExtReg"
  	    }
  	    -type {
  		incr i
  		switch -glob [lindex $args $i] {
  		    all {
! 			set dsk_find(type) "All Types"
  		    }
  		    fil* {
! 			set dsk_find(type) "Regular Files"
  		    }
  		    dir* {
! 			set dsk_find(type) "Directories"
  		    }
  		    sym* {
! 			set dsk_find(type) "Symbolic Links"
  		    }
  		    sock* {
! 			set dsk_find(type) "Sockets"
  		    }
  		    name* -
  		    pipe* {
! 			set dsk_find(type) "Named Pipes"
  		    }
  		}
  	    }
--- 346,384 ----
  	    -string {
  		incr i
  		set dsk_find(string) [lindex $args $i]
! 		set dsk_find(strtype) "Ê¸»úÎó"
  	    }
  	    -regexp {
  		incr i
  		set dsk_find(string) [lindex $args $i]
! 		set dsk_find(strtype) "Àµµ¬É½¸½"
  	    }
  	    -extreg {
  		incr i
  		set dsk_find(string) [lindex $args $i]
! 		set dsk_find(strtype) "³ÈÄ¥Àµµ¬É½¸½"
  	    }
  	    -type {
  		incr i
  		switch -glob [lindex $args $i] {
  		    all {
! 			set dsk_find(type) "Á´¤Æ¤Î¼ïÎà"
  		    }
  		    fil* {
! 			set dsk_find(type) "ÄÌ¾ï¤Î¥Õ¥¡¥¤¥ë"
  		    }
  		    dir* {
! 			set dsk_find(type) "¥Õ¥©¥ë¥À"
  		    }
  		    sym* {
! 			set dsk_find(type) "¥·¥ó¥Ü¥ê¥Ã¥¯¥ê¥ó¥¯"
  		    }
  		    sock* {
! 			set dsk_find(type) "¥½¥±¥Ã¥È"
  		    }
  		    name* -
  		    pipe* {
! 			set dsk_find(type) "Ì¾Á°¤Ä¤­¥Ñ¥¤¥×"
  		    }
  		}
  	    }
***************
*** 393,404 ****
  	    -mod* {
  		incr i
  		set dsk_find(days) [lindex $args $i]
! 		set dsk_find(time) "Last Modified"
  	    }
  	    -acc* {
  		incr i
  		set dsk_find(days) [lindex $args $i]
! 		set dsk_find(time) "Last Accessed"
  	    }
  	    -size {
  		incr i
--- 395,406 ----
  	    -mod* {
  		incr i
  		set dsk_find(days) [lindex $args $i]
! 		set dsk_find(time) "ºÇ¸å¤ËÊÑ¹¹"
  	    }
  	    -acc* {
  		incr i
  		set dsk_find(days) [lindex $args $i]
! 		set dsk_find(time) "ºÇ¸å¤ËÁàºî"
  	    }
  	    -size {
  		incr i
***************
*** 448,466 ****
      }
  
      switch $dsk_find(type) {
! 	"Regular Files" {
  	    append cmd " -type f"
  	}
! 	"Directories" {
  	    append cmd " -type d"
  	}
! 	"Symbolic Links" {
  	    append cmd " -type l"
  	}
! 	"Sockets" {
  	    append cmd " -type s"
  	}
! 	"Named Pipes" {
  	    append cmd " -type p"
  	}
      }
--- 450,468 ----
      }
  
      switch $dsk_find(type) {
! 	"ÄÌ¾ï¤Î¥Õ¥¡¥¤¥ë" {
  	    append cmd " -type f"
  	}
! 	"¥Õ¥©¥ë¥À" {
  	    append cmd " -type d"
  	}
! 	"¥·¥ó¥Ü¥ê¥Ã¥¯¥ê¥ó¥¯" {
  	    append cmd " -type l"
  	}
! 	"¥½¥±¥Ã¥È" {
  	    append cmd " -type s"
  	}
! 	"Ì¾Á°¤Ä¤­¥Ñ¥¤¥×" {
  	    append cmd " -type p"
  	}
      }
***************
*** 521,527 ****
  	}
      }
      if {$dsk_find(days) != ""} {
! 	if {$dsk_find(time) == "Last Accessed"} {
  	    append cmd " -atime $dsk_find(days)"
  	} else {
  	    append cmd " -mtime $dsk_find(days)"
--- 523,529 ----
  	}
      }
      if {$dsk_find(days) != ""} {
! 	if {$dsk_find(time) == "ºÇ¸å¤ËÁàºî"} {
  	    append cmd " -atime $dsk_find(days)"
  	} else {
  	    append cmd " -mtime $dsk_find(days)"
***************
*** 547,560 ****
      if {$dsk_find(string) != ""} {
  	set str $dsk_find(string)
  	switch $dsk_find(strtype) {
! 	    "String" {
  		set grep "fgrep"
  		set str [string_replace $dsk_find(string) "||" "\n"]
  	    }
! 	    "RegExp" {
  		set grep "grep"
  	    }
! 	    "ExtReg" {
  		set grep "egrep -e"
  	    }
  	}
--- 549,562 ----
      if {$dsk_find(string) != ""} {
  	set str $dsk_find(string)
  	switch $dsk_find(strtype) {
! 	    "Ê¸»úÎó" {
  		set grep "fgrep"
  		set str [string_replace $dsk_find(string) "||" "\n"]
  	    }
! 	    "Àµµ¬É½¸½" {
  		set grep "grep"
  	    }
! 	    "³ÈÄ¥Àµµ¬É½¸½" {
  		set grep "egrep -e"
  	    }
  	}
diff -Pcr tkdesk-1.2/tcldesk/help.tcl tkdesk-1.2-jp/tcldesk/help.tcl
*** tkdesk-1.2/tcldesk/help.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/help.tcl	Fri Sep 15 17:46:39 2000
***************
*** 64,70 ****
      frame $t.f1 -bd 2 -relief groove
      pack $t.f1 -in $t.f -padx 8 -pady 8
  
!     label $t.lLabel -text "You're looking at..." -anchor center
      catch {$t.lLabel config -font -*-helvetica-medium-r-*-*-14-*}
      pack $t.lLabel -in $t.f1 -padx 8 -pady 8 -fill x -expand yes
  
--- 64,70 ----
      frame $t.f1 -bd 2 -relief groove
      pack $t.f1 -in $t.f -padx 8 -pady 8
  
!     label $t.lLabel -text "¤è¤¦¤³¤½ÆüËÜ¸ì¥Ç¥¹¥¯¥È¥Ã¥×¤Ø..." -anchor center
      catch {$t.lLabel config -font -*-helvetica-medium-r-*-*-14-*}
      pack $t.lLabel -in $t.f1 -padx 8 -pady 8 -fill x -expand yes
  
***************
*** 73,79 ****
      pack $t.lTkDesk -in $t.f1 -padx 6 -pady 2 -fill x -expand yes
      #message $t.lVersion -text "Version $tkdesk(version), dated $tkdesk(date)\nCopyright (C) 1996, 1997 Christian Bolik\n\nTkDesk comes with ABSOLUTELY NO WARRANTY.\nSee menu entry Help/License for details." -aspect 1000 -justify center
      #message $t.lVersion -text "A File Manager for\nUnix and the X Window System\n\nVersion $tkdesk(version), dated $tkdesk(date)\n\nWritten by Christian Bolik\n($tkdesk(authormail))\n\nPlease send me a short mail and tell me what you\nthink about this program, and what you feel could be\nimproved or added. Thanks!\n" -aspect 1000 -justify center
!     message $t.lVersion -text "A File Manager for\nUnix and the X Window System\nWritten by Christian Bolik\n\nVersion $tkdesk(version), dated $tkdesk(date)\n\nTkDesk is maintained by J. Chris Coppick\n($tkdesk(maintmail))\n\nPlease send a short email about what you\nthink about this program, and what you feel could be\nimproved or added. Thanks!\n" -aspect 1000 -justify center
      catch {$t.lVersion config -font -*-helvetica-medium-r-*-*-14-*}
      pack $t.lVersion -in $t.f1 -padx 8 -pady 8 -fill x -expand yes
  
--- 73,79 ----
      pack $t.lTkDesk -in $t.f1 -padx 6 -pady 2 -fill x -expand yes
      #message $t.lVersion -text "Version $tkdesk(version), dated $tkdesk(date)\nCopyright (C) 1996, 1997 Christian Bolik\n\nTkDesk comes with ABSOLUTELY NO WARRANTY.\nSee menu entry Help/License for details." -aspect 1000 -justify center
      #message $t.lVersion -text "A File Manager for\nUnix and the X Window System\n\nVersion $tkdesk(version), dated $tkdesk(date)\n\nWritten by Christian Bolik\n($tkdesk(authormail))\n\nPlease send me a short mail and tell me what you\nthink about this program, and what you feel could be\nimproved or added. Thanks!\n" -aspect 1000 -justify center
!      message $t.lVersion -text "UNIX¤ÈX¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Î¤¿¤á¤Î\n¥Õ¥¡¥¤¥ë¥Þ¥Í¡¼¥¸¥ã¡¼¤Ç¤¹¡£\n\n¥Ð¡¼¥¸¥ç¥ó $tkdesk(version) $tkdesk(patch), ÆüÉÕ $tkdesk(date)\n\nºîÀ®¼ÔChristian Bolik\n($tkdesk(authormail))\n\n¤³¤Î¥×¥í¥°¥é¥à¤Ë´Ø¤¹¤ë¤¢¤Ê¤¿¤Î¤´°Õ¸«¤Ê¤É¤ò¤¼¤Ò¡¢´Ê·é¤Ê¥á¡¼¥ë¤Ç\n¤ªÃÎ¤é¤»¤¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¤¢¤Ê¤¿¤¬¤É¤Î¤è¤¦¤Ê´¶¤¸¤Ç\nµ¡Ç½¶¯²½¡¢ÄÉ²Ã¤·¤¿¤«¤â¤ªÃÎ¤é¤»¤¯¤À¤µ¤¤¡£¤É¡¼¤â!\n" -aspect 1000 -justify center
      catch {$t.lVersion config -font -*-helvetica-medium-r-*-*-14-*}
      pack $t.lVersion -in $t.f1 -padx 8 -pady 8 -fill x -expand yes
  
***************
*** 83,100 ****
      frame $t.fBottom -height 4
      pack $t.fBottom -in $t.f
      
!     cb_button $t.bOK -text "OK" -width 6 -command "destroy $t" -default 1
      bind $t <Return> "if \[winfo exists $t\] \{destroy $t\}"
!     cb_button $t.bLic -text " License " -command "dsk_help license"
!     cb_button $t.bMail -text " Mail... " \
  	    -command "dsk_mailbug \"About TkDesk $tkdesk(version)...\" {}"
!     cb_button $t.bWeb -text " Web... " \
  	    -command {dsk_netscape url http://people.mainz.netsurf.de/~bolik/tkdesk/ window}
      
      pack $t.bOK $t.bLic $t.bMail $t.bWeb -in $t.fButtons -side left \
  	    -padx $tkdesk(pad) -pady $tkdesk(pad) -ipady 0
  
!     wm title $t "About TkDesk"
      wm iconname $t "About TkDesk"
      wm resizable $t 0 0
      cb_centerToplevel $t
--- 83,100 ----
      frame $t.fBottom -height 4
      pack $t.fBottom -in $t.f
      
!     cb_button $t.bOK -text "Î»²ò" -width 6 -command "destroy $t" -default 1
      bind $t <Return> "if \[winfo exists $t\] \{destroy $t\}"
!     cb_button $t.bLic -text "¥é¥¤¥»¥ó¥¹" -command "dsk_help license"
!     cb_button $t.bMail -text "¥á¡¼¥ë... " \
  	    -command "dsk_mailbug \"About TkDesk $tkdesk(version)...\" {}"
!     cb_button $t.bWeb -text "¥¦¥§¥Ö..." \
  	    -command {dsk_netscape url http://people.mainz.netsurf.de/~bolik/tkdesk/ window}
      
      pack $t.bOK $t.bLic $t.bMail $t.bWeb -in $t.fButtons -side left \
  	    -padx $tkdesk(pad) -pady $tkdesk(pad) -ipady 0
  
!     wm title $t "TkDesk¤Ë¤Ä¤¤¤Æ"
      wm iconname $t "About TkDesk"
      wm resizable $t 0 0
      cb_centerToplevel $t
***************
*** 136,142 ****
      frame $t.fButtons
      pack $t.fButtons -in $t.f
      
!     button $t.b -text "OK" -width 6 -command "destroy $t"
      pack $t.b -in $t.fButtons \
  	    -padx $tkdesk(pad) -pady $tkdesk(pad) -side left
  
--- 136,142 ----
      frame $t.fButtons
      pack $t.fButtons -in $t.f
      
!     button $t.b -text "Î»²ò" -width 6 -command "destroy $t"
      pack $t.b -in $t.fButtons \
  	    -padx $tkdesk(pad) -pady $tkdesk(pad) -side left
  
***************
*** 190,195 ****
--- 190,199 ----
  	    set nfile $tkdesk(library)/doc/guide-8.html
  	    set tfile $tkdesk(library)/doc/Guide\#Frequently
  	    set cbhm howto
+ 	}
+ 	"mail" {
+ 	    set nfile $tkdesk(library)/doc/MailUsage
+ 	    set tfile $tkdesk(library)/doc/MailUsage
  	}
      }
      
diff -Pcr tkdesk-1.2/tcldesk/images/mail16.xpm tkdesk-1.2-jp/tcldesk/images/mail16.xpm
*** tkdesk-1.2/tcldesk/images/mail16.xpm	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/tcldesk/images/mail16.xpm	Fri Sep 15 17:46:39 2000
***************
*** 0 ****
--- 1,23 ----
+ /* XPM */
+ static char * mail16_xpm[] = {
+ "16 16 4 1",
+ " 	s none c none",
+ ".	c black",
+ "X	c white",
+ "O	c blue",
+ "                ",
+ "                ",
+ " .............. ",
+ ".XXXXXXXXXXXXXX.",
+ "..XXXXXXXXXXXX..",
+ ".X.XXXXXXXXXX.X.",
+ ".XX.XXXXXXXX.XX.",
+ ".XXX.XXXXXX.XXX.",
+ ".XXXX.XXXX.XXXX.",
+ ".XXX.XOOOOX.XXX.",
+ ".XX.XXOOOOXX.XX.",
+ ".X.XXXXXXXXXX.X.",
+ "..XXXXXXXXXXXX..",
+ " .............. ",
+ "                ",
+ "                "};
diff -Pcr tkdesk-1.2/tcldesk/images/mailbox16.xpm tkdesk-1.2-jp/tcldesk/images/mailbox16.xpm
*** tkdesk-1.2/tcldesk/images/mailbox16.xpm	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/tcldesk/images/mailbox16.xpm	Fri Sep 15 17:46:39 2000
***************
*** 0 ****
--- 1,23 ----
+ /* XPM */
+ static char * mailbox16_xpm[] = {
+ "16 16 4 1",
+ " 	c none s none",
+ ".	c black",
+ "X	c red",
+ "o	c white",
+ "          ....  ",
+ "        ..XXXX. ",
+ "      ..XXXXXXX.",
+ "    ..XXXXXXXX..",
+ "  .....XXXXX..X.",
+ " .XXXXX.XX..XXX.",
+ ".XXXXXXX..XXXXX.",
+ ".XXXXXXX.XXXXXX.",
+ ".XoooooX.XXXXXX.",
+ ".XXXXXXX.XXXXXX.",
+ ".XoooooX.XXXXXX.",
+ ".XXXoXXX.XXXXXX.",
+ ".XXXoXXX.XXXXX. ",
+ ".XXXoXXX.XXX..  ",
+ ".XXXoXXX.X..    ",
+ "..........      "};
diff -Pcr tkdesk-1.2/tcldesk/menuconfig.tcl tkdesk-1.2-jp/tcldesk/menuconfig.tcl
*** tkdesk-1.2/tcldesk/menuconfig.tcl	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/tcldesk/menuconfig.tcl	Fri Sep 15 17:46:39 2000
***************
*** 0 ****
--- 1,565 ----
+ proc dsk_config_gen_menu {configfile sectname sectlabel secthead tailname} {
+   global dsk_config_popup tkdesk
+ 
+   set dsk_config_popup(secthead) $secthead
+   set dsk_config_popup(sectname) $sectname
+   set dsk_config_popup(index1) ""
+   foreach item $sectname {
+     set dsk_config_popup($item) ""
+   }
+   set dsk_config_popup(head) ""
+   set dsk_config_popup(tail) ""
+   for {set i 0} {$i <= 3} {incr i} {
+     set item1 [lindex $sectname $i]
+     set item2 [lindex $secthead $i]
+     set item3 [lindex $sectlabel $i]
+     set heads($item1) $item2
+     set labels($item1) $item3
+   }
+   set fd [open $configfile "r"]
+   set index "head"
+   while {[gets $fd line] >= 0} {
+     if {[string first $tailname $line] >~ 0} {
+       set index "tail"
+     }
+     foreach item $sectname {
+       if {[string first $heads($item) $line] >~ 0} {
+         set index $item
+         set line "\{"
+       }
+     }
+     if {$index != "head" && $index != "tail"} {
+       set rem [string range $line 0 0]
+       if {$rem == "#"} continue
+       append dsk_config_popup($index) $line
+     } else {
+       append dsk_config_popup($index) $line
+       append dsk_config_popup($index) "\n"
+     }
+   }
+   close $fd
+   foreach item $sectname {
+     set dsk_config_popup($item) [lindex $dsk_config_popup($item) 0]
+   }
+   catch {destroy .dsk_configure}
+   toplevel [set t .dsk_configure]
+   wm title $t "Popup menu configure"  
+   frame $t.title
+   pack $t.title -side top -fill x
+   label $t.title.label -text "¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼ÀßÄê for TkDeskÆüËÜ¸ìÈÇ"
+   pack $t.title.label -side top -ipady 8
+   frame $t.button
+   pack $t.button -side bottom -fill x
+   button $t.button.set -text "ÀßÄê" -command "dsk_config_save $t $configfile"
+   button $t.button.cancel -text "¼è¾Ã" -command "destroy $t"
+   pack $t.button.set -side left
+   pack $t.button.cancel -side right
+   frame $t.select
+   pack $t.select -side top
+   foreach item $sectname {
+     radiobutton $t.select.$item -variable sect -text $labels($item) -value $item -command {
+       dsk_config_set_group $sect .dsk_configure
+     }
+     pack $t.select.$item -side left
+   }
+   frame $t.main
+   pack $t.main -side top -fill x
+   frame $t.main.select
+   frame $t.main.edit
+   pack $t.main.select $t.main.edit -side left -fill y
+   listbox $t.main.select.group -width 20 -height 16 -yscroll "$t.main.select.groupy set" \
+           -font $tkdesk(font,labels)
+   pack $t.main.select.group -side left -fill y
+   bind $t.main.select.group <Button-1> "dsk_config_set_item $t %x %y"
+   scrollbar $t.main.select.groupy -orient vertical -width 10 -command "$t.main.select.group yview"
+   pack $t.main.select.groupy -side left -fill y
+   listbox $t.main.select.item -width 20 -height 16 -yscroll "$t.main.select.itemy set" \
+           -font $tkdesk(font,labels)
+   pack $t.main.select.item -side left -fill y
+   bind $t.main.select.item <Button-1> "dsk_config_load_data $t %x %y"
+   scrollbar $t.main.select.itemy -orient vertical -width 10 -command "$t.main.select.item yview"
+   pack $t.main.select.itemy -side left -fill y
+   frame $t.input
+   pack $t.input -side top -fill x -ipady 6
+   button $t.input.label -text "ÊÑ¹¹" -command "dsk_config_rename $t 1"
+   entry $t.input.line -bg white -font $tkdesk(font,labels)
+   pack $t.input.label -side right
+   pack $t.input.line -side left -expand 1 -fill x
+   frame $t.main.edit.command
+   pack $t.main.edit.command -side top
+   button $t.main.edit.command.insert -text "ÁÞÆþ" -command "dsk_config_insert $t"
+   button $t.main.edit.command.rename -text "ÊÑ¹¹" -command "dsk_config_rename $t 0"
+   button $t.main.edit.command.delete -text "ºï½ü" -command "dsk_config_delete $t"
+   pack $t.main.edit.command.rename $t.main.edit.command.insert -side left
+   pack $t.main.edit.command.delete -side left 
+   frame $t.main.edit.input
+   pack $t.main.edit.input -side top -fill x
+   entry $t.main.edit.input.line -bg white -font $tkdesk(font,labels)
+   pack $t.main.edit.input.line -side left -fill x
+ 
+   frame $t.main.edit.none -relief ridge
+   frame $t.main.edit.term -relief ridge
+   frame $t.main.edit.option -relief ridge
+   frame $t.main.edit.exec -relief ridge
+   frame $t.main.edit.edit -relief ridge
+   frame $t.main.edit.view -relief ridge
+   frame $t.main.edit.print -relief ridge
+   pack $t.main.edit.none $t.main.edit.term $t.main.edit.option -side top -fill x
+   pack $t.main.edit.exec -side top -fill x
+   pack $t.main.edit.edit $t.main.edit.view $t.main.edit.print -side top -fill x
+   radiobutton $t.main.edit.none.sel -variable dsk_config_popup(tag) -text "¤Ê¤·" -value none
+   pack $t.main.edit.none.sel -side left
+   button $t.main.edit.none.clear -text "¾Ãµî" -command "$t.main.edit.input.line delete 0 end"
+   pack $t.main.edit.none.clear -side right
+   radiobutton $t.main.edit.term.sel -variable dsk_config_popup(tag) -text "Ã¼Ëö" -value term
+   checkbutton $t.main.edit.term.mini -text "¾®" -variable dsk_config_popup(mini_check)
+   checkbutton $t.main.edit.term.pause -text "¥Ý¡¼¥º" -variable dsk_config_popup(pause_check)
+   pack $t.main.edit.term.sel $t.main.edit.term.mini $t.main.edit.term.pause -side left
+   radiobutton $t.main.edit.option.sel -variable dsk_config_popup(tag) -text "ÆþÎÏ" -value option
+   pack $t.main.edit.option.sel -side left  
+   checkbutton $t.main.edit.option.term -text "Ã¼Ëö" -variable dsk_config_popup(term_check)
+   pack $t.main.edit.option.term -side left
+   checkbutton $t.main.edit.option.exec -text "¼Â¹Ô" -variable dsk_config_popup(exec_check)
+   pack $t.main.edit.option.exec -side left
+   radiobutton $t.main.edit.exec.sel -variable dsk_config_popup(tag) -text "¼Â¹Ô" -value exec
+   pack $t.main.edit.exec.sel -side left  
+   radiobutton $t.main.edit.edit.sel -variable dsk_config_popup(tag) -text "ÊÔ½¸" -value edit
+   pack $t.main.edit.edit.sel -side left
+   radiobutton $t.main.edit.view.sel -variable dsk_config_popup(tag) -text "É½¼¨" -value view
+   pack $t.main.edit.view.sel -side left  
+   radiobutton $t.main.edit.print.sel -variable dsk_config_popup(tag) -text "°õºþ" -value print
+   pack $t.main.edit.print.sel -side left
+ 
+   frame $t.main.edit.sub -relief ridge
+   pack $t.main.edit.sub -side bottom -fill x
+   checkbutton $t.main.edit.sub.level -text "¥µ¥Ö¥á¥Ë¥å¡¼" -variable dsk_config_popup(level_check)
+   pack $t.main.edit.sub.level -side left
+ }
+ 
+ proc dsk_config_insert {t} {
+   global dsk_config_popup
+ 
+   set name [$t.main.edit.input.line get]
+   $t.main.edit.input.line delete 0 end
+   if {$name == ""} return
+   set index $dsk_config_popup(index1)
+   set groupsel [$t.main.select.group curselection]
+   set itemsel [$t.main.select.item curselection]
+   if {$itemsel != {}} {
+     set newline [list $name {}]
+     set current $dsk_config_popup(index1)
+     set index2 $dsk_config_popup(index2)
+     set lines [lindex $dsk_config_popup($index) $index2]
+     set line [lindex $lines 1]
+     set line [dsk_config_extend_inslist $t $line $itemsel $name] 
+     set lines [lreplace $lines 1 1 $line]
+     set newlist [lreplace $dsk_config_popup($index) $index2 $index2 $lines]
+     set dsk_config_popup($index) $newlist
+     dsk_config_set_item2 $t $index2
+   } elseif {$groupsel != {}} {
+     set newline [list $name {{¿·µ¬ºîÀ®}}]
+     set newlist [linsert $dsk_config_popup($index) $groupsel $newline]
+     set dsk_config_popup($index) $newlist
+     dsk_config_set_group $index $t
+     $t.main.select.item delete 0 end
+   }
+ }
+ 
+ proc dsk_config_rename {t id} {
+   global dsk_config_popup
+ 
+   if {$id == 1} {
+     set name [$t.input.line get]
+     if {$dsk_config_popup(tag) == "print"} {
+       set name "dsk_print $name"
+     }
+     if {$dsk_config_popup(tag) == "view"} {
+       set name "dsk_view $name"
+     }
+     if {$dsk_config_popup(tag) == "edit"} {
+       set name "dsk_edit $name "
+     }
+     if {$dsk_config_popup(tag) == "exec"} {
+       set name "dsk_exec $name "
+     }
+     if {$dsk_config_popup(tag) == "term" || $dsk_config_popup(term_check) != 0} {
+       set com "dsk_exec \$tkdesk(cmd,xterm) "
+       if {$dsk_config_popup(mini_check) != 0} {
+         append com "-geom 80x15 "
+       }
+       append com "-T %f -n %f -e "
+       if {$dsk_config_popup(pause_check) != 0} {
+         append com "pauseme "
+       }
+       set name "$com$name"
+     } elseif {$dsk_config_popup(exec_check) != 0} {
+       set name "dsk_exec $name"
+     }
+     if {$dsk_config_popup(tag) == "option"} {
+       set title [$t.main.edit.input.line get]
+       regsub -all {##} $name {$dsk_read_string} name
+       set name [list dsk_read_string $title $name]
+     }
+   } else {
+     set name [$t.main.edit.input.line get]
+     $t.main.edit.input.line delete 0 end
+   }
+   if {$name == ""} return
+   set index $dsk_config_popup(index1)
+   set groupsel [$t.main.select.group curselection]
+   set itemsel [$t.main.select.item curselection]
+   if {$itemsel != {}} {
+     set current $dsk_config_popup(index1)
+     set index2 $dsk_config_popup(index2)
+     set lines [lindex $dsk_config_popup($index) $index2]
+     set line [lindex $lines 1]
+     if {$id == 0} {
+       set line [dsk_config_extend_renlist $t $line $itemsel $name] 
+     } else {
+       set line [dsk_config_extend_setlist $t $line $itemsel $name] 
+     }
+     set lines [lreplace $lines 1 1 $line]
+     set newlist [lreplace $dsk_config_popup($index) $index2 $index2 $lines]
+     set dsk_config_popup($index) $newlist
+     dsk_config_set_item2 $t $index2
+   } elseif {$groupsel != {}} {
+     if {$id == 0} {
+       set lines [lindex $dsk_config_popup($index) $groupsel]
+       set lines [lreplace $lines 0 0 $name]
+       set newlist [lreplace $dsk_config_popup($index) $groupsel $groupsel $lines]
+       set dsk_config_popup($index) $newlist
+       dsk_config_set_group $index $t
+       $t.main.select.item delete 0 end
+     }
+   }
+ }
+ 
+ proc dsk_config_delete {t} {
+   global dsk_config_popup
+ 
+   set index $dsk_config_popup(index1)
+   set groupsel [$t.main.select.group curselection]
+   set itemsel [$t.main.select.item curselection]
+   if {$itemsel != {}} {
+     set current $dsk_config_popup(index1)
+     set index2 $dsk_config_popup(index2)
+     set lines [lindex $dsk_config_popup($index) $index2]
+     set line [lindex $lines 1]
+     set line [dsk_config_extend_dellist $t $line $itemsel] 
+     set lines [lreplace $lines 1 1 $line]
+     set newlist [lreplace $dsk_config_popup($index) $index2 $index2 $lines]
+     set dsk_config_popup($index) $newlist
+     dsk_config_set_item2 $t $index2
+   } elseif {$groupsel != {}} {
+     set size [expr [llength $dsk_config_popup($index)] - 1]
+     if {$groupsel <= $size} {
+       set newlist [lreplace $dsk_config_popup($index) $groupsel $groupsel]
+       set dsk_config_popup($index) $newlist
+       dsk_config_set_group $index $t
+       $t.main.select.item delete 0 end
+     }
+   }
+ }
+ 
+ proc dsk_config_set_group {index t} {
+   global dsk_config_popup
+ 
+   set dsk_config_popup(index1) $index
+   $t.main.select.group delete 0 end
+   foreach line $dsk_config_popup($index) {
+     set item [lindex $line 0]
+     $t.main.select.group insert end $item
+   }
+   $t.main.select.item delete 0 end
+   $t.input.line delete 0 end
+ }
+ 
+ proc dsk_config_set_item {t x y} {
+   set n [$t.main.select.group index @$x,$y]
+   dsk_config_set_item2 $t $n
+ }
+ 
+ proc dsk_config_set_item2 {t n} {
+   global dsk_config_popup
+ 
+   set current $dsk_config_popup(index1)
+   if {$current == ""} return
+   set lines [lindex $dsk_config_popup($current) $n]
+   set line [lindex $lines 1]
+   set dsk_config_popup(index2) $n
+   $t.main.select.item delete 0 end
+   foreach item $line {
+     set num [llength $item]
+     set title [lindex $item 0]
+     $t.main.select.item insert end $title
+     if {$num > 2} {
+       for {set i 1} {$i < $num} {incr i} {
+         set title [lindex [lindex $item $i] 0]
+         $t.main.select.item insert end $title
+       }
+     }
+   }
+   $t.input.line delete 0 end
+ }
+ 
+ proc dsk_config_extend_getlist {t line num} {
+   dsk_config_extend_list $t $line $num get {}
+ }
+ 
+ proc dsk_config_extend_dellist {t line num} {
+   dsk_config_extend_list $t $line $num delete {}
+ }
+ 
+ proc dsk_config_extend_inslist {t line num name} {
+   dsk_config_extend_list $t $line $num insert $name
+ }
+ 
+ proc dsk_config_extend_renlist {t line num name} {
+   dsk_config_extend_list $t $line $num rename $name
+ }
+ 
+ proc dsk_config_extend_setlist {t line num name} {
+   dsk_config_extend_list $t $line $num set $name
+ }
+ 
+ proc dsk_config_extend_list {t line num command name} {
+   global dsk_config_popup
+ 
+   set level_check $dsk_config_popup(level_check)
+   set newline {}
+   set index 0
+   set n 0
+   set id 0
+   if {$command == "set"} {
+     set command "rename"
+     set id 1
+   }
+   foreach items $line {
+     set size [llength $items]
+     if {$size < 3} {
+       if {$n == $num} {
+         set item $items
+         $t.main.edit.sub.level deselect
+         if {$command == "insert"} {
+           set s [llength $newline]
+           incr s -1
+           if {$level_check == 0 || $s < 0} {
+             lappend newline [list $name {}]
+           } else {
+             set newitems [lindex [lindex $newline $s] 0]
+             incr s -1
+             if {$s < 0} {
+               set newline {}
+             } else {
+               set newline [lrange $newline 0 $s]
+             }
+             lappend newitems [list $name {}]
+             lappend newitems [list $name {}]
+             lappend newline $newitems
+           }
+           lappend newline $items
+         }
+         if {$command == "rename"} {
+           lappend newline [lreplace $items $id $id $name]
+         }
+       } else {
+         lappend newline $items
+       }
+       incr index
+       incr n
+     } else {
+       set subindex 0
+       foreach subitems $items {
+         if {$subindex > 0} {
+           if {$n == $num} {
+             set rmflag -1
+             set item [lindex $items $subindex]
+             $t.main.edit.sub.level select
+             if {$command == "insert"} {
+               lappend newitems [list $name {}]
+               lappend newitems $subitems
+             }
+             if {$command == "rename"} {
+               lappend newitems [lreplace $subitems $id $id $name]
+             }
+           } else {
+             lappend newitems $subitems
+           }
+         } else {
+           set rmflag 1
+           set newitems {}
+           if {$n == $num} {
+             set item [list [lindex $items 0]]
+             $t.main.edit.sub.level deselect
+             if {$command == "insert"} {
+               lappend newline [list $name]
+               lappend newitems [list $subitems]
+             }
+             if {$command == "rename" && $id == 0} {
+               lappend newline [lreplace $items $id $id $name]
+             }
+           } else {
+             set rmflag 0
+             set newitems [list $subitems]
+           }
+         }
+         incr subindex
+         incr n
+       }
+       if {$rmflag <= 0 || $command == "insert" || $command == "rename"} {
+       	if {$rmflag == -1 && $command == "delete"} {
+       	  set itemnum [llength $newitems]
+       	  if {$itemnum == 2} {
+             set newitems [list [lindex $newitems 0]]
+       	  }
+       	}
+         lappend newline $newitems
+       }
+     }
+   }
+   if {$command == "delete" || $command == "insert" || $command == "rename"} {
+     return $newline
+   }
+   if {$command == "get"} {return $item}
+ }
+ 
+ proc dsk_config_load_data {t x y} {
+   global dsk_config_popup
+ 
+   set num [$t.main.select.item index @$x,$y]
+   set current $dsk_config_popup(index1)
+   if {$current == ""} return
+   set lines [lindex $dsk_config_popup($current) $dsk_config_popup(index2)]
+   set line [lindex $lines 1]
+   set item [dsk_config_extend_getlist $t $line $num]  
+   set command [string trim [lindex $item 1]]
+   set first [lindex $command 0]
+   set second [lindex $command 1]
+   set dsk_config_popup(tag) none
+   $t.main.edit.term.mini deselect
+   $t.main.edit.term.pause deselect
+   $t.main.edit.option.term deselect
+   $t.main.edit.option.exec deselect
+   if {$first == "dsk_print"} {
+     set dsk_config_popup(tag) print
+     set command [lrange $command 1 end]
+   } 
+   if {$first == "dsk_view"} {
+     set dsk_config_popup(tag) view
+     set command [lrange $command 1 end]
+   } 
+   if {$first == "dsk_edit"} {
+     set dsk_config_popup(tag) edit
+     set command [lrange $command 1 end]
+   }
+   if {$first == "dsk_read_string"} {
+     set dsk_config_popup(tag) option
+     $t.main.edit.input.line delete 0 end
+     $t.main.edit.input.line insert 0 $second
+     set command [lindex $command 2]
+     set first [lindex $command 0]
+     set second [lindex $command 1]
+     regsub -all {\$dsk_read_string} $command {##} command
+   }
+   if {$first == "dsk_exec"} {
+     if {$second == "\$tkdesk(cmd,xterm)"} {
+       set index 0
+       set e -1
+       set mini 0
+       foreach item $command {
+         if {$item == "\-e"} {set e $index}
+         if {$item == "\-geom" && $mini == 0} {incr mini}
+         if {$item == "80x15" && $mini == 1} {incr mini}
+         incr index
+       }
+       incr e
+       if {$e > 0} {
+         if {$dsk_config_popup(tag) == "option"} {
+           $t.main.edit.option.term select
+           $t.main.edit.option.exec select
+         } else {
+           set dsk_config_popup(tag) term
+         }
+         if {[lindex $command $e] == "pauseme"} {
+           $t.main.edit.term.pause select
+           incr e
+         }
+         if {$mini == 2} {
+           $t.main.edit.term.mini select
+         }
+         set command [lrange $command $e end]
+       }
+     } else {
+       if {$dsk_config_popup(tag) == "option"} {
+         $t.main.edit.option.exec select
+       } else {
+         set dsk_config_popup(tag) exec
+       }
+       set command [lrange $command 1 end]
+     }
+   }
+   $t.input.line delete 0 end
+   $t.input.line insert 0 $command	
+ }
+ 
+ proc dsk_config_save {t configfile} {
+   global dsk_config_popup
+ 
+   set fd [open $configfile "w"]
+   puts -nonewline $fd $dsk_config_popup(head)
+   set i 0
+   foreach index $dsk_config_popup(sectname) {
+     set head [lindex $dsk_config_popup(secthead) $i]
+     puts $fd "$head \{"
+     incr i
+     foreach lines $dsk_config_popup($index) {
+       set title [lindex $lines 0]
+       set items [lindex $lines 1]
+       puts $fd "\t\{\{$title\} \{"
+       foreach item $items {
+       	if {$item == "-" || [lindex $item 0] == "-"} {
+       	  puts $fd "\t\t-"
+       	} else {
+           puts $fd "\t\t\{$item\}"
+         }
+       }
+       puts $fd "\t\}\}"
+     }
+     puts $fd "\}\n"
+   }
+   puts -nonewline $fd $dsk_config_popup(tail)
+   close $fd
+   unset dsk_config_popup
+   destroy $t
+   dsk_reread_config [file tail $configfile]
+ }
+ 
+ proc dsk_config_main {} {
+   global env
+ 
+   set configfile $env(HOME)
+   set configfile "$configfile/.tkdesk/Popups"
+   set sectname {directories executables regulars}
+   set sectlabel {¥Õ¥©¥ë¥À ¼Â¹Ô¥Õ¥¡¥¤¥ë ÄÌ¾ï¥Õ¥¡¥¤¥ë}
+   set secthead {
+     "set tkdesk(popup,directories)"
+     "set tkdesk(popup,executables)"
+     "set tkdesk(popup,regulars)"
+   }
+   set tailname "set tkdesk(fileops,popup)"
+   dsk_config_gen_menu $configfile $sectname $sectlabel $secthead $tailname
+ }
+ 
+ proc dsk_appbar_main {} {
+   global env
+ 
+   set configfile $env(HOME)
+   set configfile "$configfile/.tkdesk/AppBar"
+   set sectname {appbar}
+   set sectlabel {¥·¥ç¡¼¥È¥«¥Ã¥È}
+   set secthead {
+     "set tkdesk(appbar)"
+   }
+   set tailname "proc view_manual_page"
+   dsk_config_gen_menu $configfile $sectname $sectlabel $secthead $tailname
+ }
diff -Pcr tkdesk-1.2/tcldesk/popup.tcl tkdesk-1.2-jp/tcldesk/popup.tcl
*** tkdesk-1.2/tcldesk/popup.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/popup.tcl	Fri Sep 15 17:46:39 2000
***************
*** 181,211 ****
  		.dsk_popup add cascade -label "$fname " -menu .dsk_popup.fm \
  			-font $ffnt -foreground $ffg -activeforeground $ffg
  		menu [set m .dsk_popup.fm]
! 		$m add command -label "Info " -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_fileinfo [list $sfile]"
! 		$m add command -label "Bookmark " -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_bookmark add [list $sfile]"
  		if {$poplist != "tkdesk(popup,directories)"} {
! 		    $m add command -label "Open with... " -command \
  			    "catch {destroy .dsk_popup} ;\
  			    set tkdesk(file_lb,control) 1 ;\
  			    dsk_open \"$tkdesk(active_viewer)\" \"$sfile\""
  		}
  		$m add separator
! 		$m add command -label "Copy, Move, ... " -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_copy [list $sfile]"
! 		$m add command -label "Rename... " -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_rename [list $sfile]"
! 		$m add command -label "Delete " -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_delete [list $sfile]"
  		if ![string match "deskitem*" $opt] {
  		    $m add separator
! 		    $m add command -label "Put on Desk " -command \
  			    "dsk_DeskItem .di\[dsk_DeskItem :: id\] \
  			    -file \"$sfile\""
  		}
--- 181,211 ----
  		.dsk_popup add cascade -label "$fname " -menu .dsk_popup.fm \
  			-font $ffnt -foreground $ffg -activeforeground $ffg
  		menu [set m .dsk_popup.fm]
! 		$m add command -label "¾ðÊó" -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_fileinfo [list $sfile]"
! 		$m add command -label "¥Ö¥Ã¥¯¥Þ¡¼¥¯" -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_bookmark add [list $sfile]"
  		if {$poplist != "tkdesk(popup,directories)"} {
! 		    $m add command -label "¥ª¥×¥·¥ç¥ó¤òÉÕ¤±¤Æ¼Â¹Ô... " -command \
  			    "catch {destroy .dsk_popup} ;\
  			    set tkdesk(file_lb,control) 1 ;\
  			    dsk_open \"$tkdesk(active_viewer)\" \"$sfile\""
  		}
  		$m add separator
! 		$m add command -label "¥³¥Ô¡¼¡¦°ÜÆ°... " -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_copy [list $sfile]"
! 		$m add command -label "Ì¾Á°ÊÑ¹¹... " -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_rename [list $sfile]"
! 		$m add command -label "ºï½ü" -command \
  			"catch {destroy .dsk_popup} ;\
  			dsk_delete [list $sfile]"
  		if ![string match "deskitem*" $opt] {
  		    $m add separator
! 		    $m add command -label "¥Ç¥¹¥¯¥È¥Ã¥×¤ËÅ½ÉÕ¤±" -command \
  			    "dsk_DeskItem .di\[dsk_DeskItem :: id\] \
  			    -file \"$sfile\""
  		}
***************
*** 227,233 ****
  		if {$opt != ""} {
  		    switch -glob $opt {
  			"dir *" {
! 			    .dsk_popup add command -label "Open Directory " \
  				    -command "catch {destroy .dsk_popup}
  			          dsk_open_dir [file dirname $file]"
  			    set cascmd_dirs "dsk_cd %d 1"
--- 227,233 ----
  		if {$opt != ""} {
  		    switch -glob $opt {
  			"dir *" {
! 			    .dsk_popup add command -label "¥Õ¥©¥ë¥À¤ò³«¤¯" \
  				    -command "catch {destroy .dsk_popup}
  			          dsk_open_dir [file dirname $file]"
  			    set cascmd_dirs "dsk_cd %d 1"
***************
*** 235,245 ****
  			"deskitem*" {
  			    if {[info exists tkdesk(deskdir)] && [string first $tkdesk(deskdir) $file] == 0} {
  				.dsk_popup add command \
! 					-label "Delete File & Item " \
  					-command "catch \{[lindex $opt 1] discard\}"
  			    } else {
  				.dsk_popup add command \
! 					-label "Remove Item " \
  					-command "catch \{[lindex $opt 1] discard\}"
  			    }
  			    set cascmd_dirs "dsk_cd %d 1"
--- 235,245 ----
  			"deskitem*" {
  			    if {[info exists tkdesk(deskdir)] && [string first $tkdesk(deskdir) $file] == 0} {
  				.dsk_popup add command \
! 					-label "¥Õ¥¡¥¤¥ë¤È¥¢¥¤¥³¥ó¤òºï½ü" \
  					-command "catch \{[lindex $opt 1] discard\}"
  			    } else {
  				.dsk_popup add command \
! 					-label "¥¢¥¤¥³¥ó¤òºï½ü" \
  					-command "catch \{[lindex $opt 1] discard\}"
  			    }
  			    set cascmd_dirs "dsk_cd %d 1"
***************
*** 250,261 ****
  
  		if {$poplist == "tkdesk(popup,directories)"} {
  		    .dsk_popup add separator
! 		    .dsk_popup add cascade -label "Subdirectories" \
  			    -menu [set m .dsk_popup.ms]
  		    menu $m -postcommand "dsk_casdirs [_make_fname_safe $file] $m 1 [list $cascmd_dirs]"
  		    $m add command -label "dummy"
  		    
! 		    .dsk_popup add cascade -label "... and Files" \
  			    -menu [set m .dsk_popup.mf]
  		    menu $m -postcommand "dsk_casdirs [_make_fname_safe $file] $m 1 [list $cascmd_mixed] 1"
  		    $m add command -label "dummy"
--- 250,261 ----
  
  		if {$poplist == "tkdesk(popup,directories)"} {
  		    .dsk_popup add separator
! 		    .dsk_popup add cascade -label "²¼¤Î¥Õ¥©¥ë¥À" \
  			    -menu [set m .dsk_popup.ms]
  		    menu $m -postcommand "dsk_casdirs [_make_fname_safe $file] $m 1 [list $cascmd_dirs]"
  		    $m add command -label "dummy"
  		    
! 		    .dsk_popup add cascade -label "²¼¤Î¥Õ¥¡¥¤¥ë" \
  			    -menu [set m .dsk_popup.mf]
  		    menu $m -postcommand "dsk_casdirs [_make_fname_safe $file] $m 1 [list $cascmd_mixed] 1"
  		    $m add command -label "dummy"
diff -Pcr tkdesk-1.2/tcldesk/util.tcl tkdesk-1.2-jp/tcldesk/util.tcl
*** tkdesk-1.2/tcldesk/util.tcl	Mon Nov 15 07:07:47 1999
--- tkdesk-1.2-jp/tcldesk/util.tcl	Fri Sep 15 17:46:39 2000
***************
*** 141,150 ****
  
      set cb_balloonHelp(bltbusy) 1
      foreach win $dsk_busy(busy) {
! 	#puts "blt_busy(2) hold $win"
! 	catch {blt_busy hold $win \
! 		-cursor "@$cb_tools(path)/bitmaps/timer1.xbm \
! 		$cb_tools(path)/bitmaps/timer.mask.xbm black white"}
      }
  
      # Let the <Leave> event be transferred first:
--- 141,151 ----
  
      set cb_balloonHelp(bltbusy) 1
      foreach win $dsk_busy(busy) {
!     	after 100
! #	puts "blt_busy(2) hold $win"
! #	catch {blt_busy hold $win \
! #		-cursor "@$cb_tools(path)/bitmaps/timer1.xbm \
! #		$cb_tools(path)/bitmaps/timer.mask.xbm black white"}
      }
  
      # Let the <Leave> event be transferred first:
diff -Pcr tkdesk-1.2/text2bin.c tkdesk-1.2-jp/text2bin.c
*** tkdesk-1.2/text2bin.c	Thu Jan  1 09:00:00 1970
--- tkdesk-1.2-jp/text2bin.c	Fri Sep 15 17:46:39 2000
***************
*** 0 ****
--- 1,41 ----
+ #include <stdio.h>
+ #include <string.h>
+ 
+ void	decode(int *src,int s) {
+ 	int	i,j,n;
+ 
+ 	i = n = 0;
+ 	j = 3;
+ 	n |= (src[i++] & 0x3f) << (j-- * 6);
+ 	while(i < s) {
+ 		n |= (src[i++] & 0x3f) << (j * 6);
+ 		putchar(n >> (j-- * 8));
+ 	}
+ }
+ 
+ void main() {
+ 	int	num[4];
+ 	int	c,i;
+ 
+ 	c = getchar();
+ 	i = 0;
+ 	while(!feof(stdin)) {
+ 		if(isupper(c)) {
+ 			num[i++] = c - 'A';
+ 		} else if(islower(c)) {
+ 			num[i++] = c - 'a' + 26;
+ 		} else if(isdigit(c)) {
+ 			num[i++] = c - '0' + 52;
+ 		} else if(c == '+') {
+ 			num[i++] = 62;
+ 		} else if(c == '/') {
+ 			num[i++] = 63;
+ 		}
+ 		if(i >= 4) {
+ 			decode(num,4);
+ 			i = 0;
+ 		}
+ 		c = getchar();
+ 	}
+ 	decode(num,i);
+ }
\ No newline at end of file
diff -Pcr tkdesk-1.2/tkdesk.main tkdesk-1.2-jp/tkdesk.main
*** tkdesk-1.2/tkdesk.main	Mon Nov 15 07:07:45 1999
--- tkdesk-1.2-jp/tkdesk.main	Fri Sep 15 17:50:00 2000
***************
*** 39,45 ****
  #
  
  set tkdesk(version) "1.2"
! set tkdesk(date) "08.11.99"
  
  if [info exists env(TKDESK_LIBRARY)] {
      set tkdesk(library) $env(TKDESK_LIBRARY)
--- 39,48 ----
  #
  
  set tkdesk(version) "1.2"
! set tkdesk(patch) "p16"
! set tkdesk(date) "2000Ç¯9·î15Æü"
! set tkdesk(TkMailer) "mail"
! set tkdesk(TkMailerFile) "none"
  
  if [info exists env(TKDESK_LIBRARY)] {
      set tkdesk(library) $env(TKDESK_LIBRARY)
***************
*** 83,231 ****
  
  set tkdesk(welcome_bm) {
  #define tkdesk_width 253
! #define tkdesk_height 66
  static char tkdesk_bits[] = {
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
-  0x00,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
-  0x00,0x00,0x00,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
-  0x00,0x00,0x00,0x00,0x00,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x0e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x1c,0x00,0x00,0xe0,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0xf8,0x0f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x1f,0x00,0x00,0xe0,0x00,0x00,0x00,
   0x00,0x00,0x00,0xc0,0xff,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xff,0x0f,0x00,0x00,0xe0,0x00,
   0x00,0x00,0x00,0x00,0x00,0xc0,0xff,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xff,0x0f,0x00,0x00,
!  0xe0,0x00,0xfe,0xff,0xff,0xff,0xff,0x0f,0xfc,0x07,0x00,0x00,0x00,0xff,0xff,
!  0xff,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf8,0x0f,
!  0x00,0x00,0xe0,0x00,0xfe,0xff,0xff,0xff,0xff,0x07,0xf0,0x07,0x00,0x00,0x00,
!  0xff,0xff,0xff,0xff,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0xe0,0x0f,0x00,0x00,0xe0,0x00,0xfe,0xff,0xff,0xff,0xff,0x07,0xf0,0x03,0x00,
!  0x00,0x00,0xff,0xff,0xff,0xff,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0xe0,0x07,0x00,0x00,0xe0,0x00,0xff,0x00,0xfc,0x01,0xf8,0x07,0xf0,
!  0x03,0x00,0x00,0x00,0xc0,0x3f,0x00,0xfc,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0xe0,0x07,0x00,0x00,0xe0,0x00,0x3f,0x00,0xfc,0x01,0xe0,
!  0x07,0xf8,0x03,0x00,0x00,0x00,0xc0,0x1f,0x00,0xc0,0x3f,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,0x00,0x0f,0x00,0xfc,
!  0x01,0xc0,0x07,0xf8,0x03,0x00,0x00,0x00,0xc0,0x1f,0x00,0x00,0xff,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,0x00,0x07,
!  0x00,0xfe,0x00,0x80,0x03,0xf8,0x01,0x00,0x00,0x00,0xc0,0x1f,0x00,0x00,0xfe,
!  0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x03,0x00,0x00,0xe0,
!  0x80,0x07,0x00,0xfe,0x00,0x80,0x03,0xf8,0x01,0x00,0x00,0x00,0xe0,0x1f,0x00,
!  0x00,0xfc,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x03,0x00,
!  0x00,0xe0,0x80,0x03,0x00,0xfe,0x00,0x80,0x03,0xfc,0x01,0x00,0x00,0x00,0xe0,
!  0x0f,0x00,0x00,0xf8,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf8,
!  0x03,0x00,0x00,0xe0,0x80,0x03,0x00,0xfe,0x00,0x80,0x03,0xfc,0x01,0x00,0x00,
!  0x00,0xe0,0x0f,0x00,0x00,0xf0,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0xf8,0x03,0x00,0x00,0xe0,0x80,0x01,0x00,0xfe,0x00,0x80,0x01,0xfc,0x01,
!  0x00,0x00,0x00,0xe0,0x0f,0x00,0x00,0xf0,0x07,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0xf8,0x03,0x00,0x00,0xe0,0x80,0x01,0x00,0x7f,0x00,0x80,0x01,
!  0xfc,0x00,0x00,0x00,0x00,0xe0,0x0f,0x00,0x00,0xe0,0x0f,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0xf8,0x01,0x00,0x00,0xe0,0xc0,0x01,0x00,0x7f,0x00,
!  0x80,0x01,0xfc,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,0x0f,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf8,0x01,0x00,0x00,0xe0,0x00,0x00,0x00,
!  0x7f,0x00,0x00,0x00,0xfe,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,0x1f,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xfc,0x01,0x00,0x00,0xe0,0x00,
!  0x00,0x00,0x7f,0x00,0x00,0x00,0xfe,0x00,0x80,0x0f,0x00,0xf0,0x07,0x00,0x00,
!  0xc0,0x1f,0x00,0x00,0xf0,0x07,0x00,0x00,0x7f,0x00,0x00,0xfc,0x01,0x00,0x1f,
!  0xe0,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0x7e,0x00,0xe0,0x1f,0x00,0xf0,0x07,
!  0x00,0x00,0xc0,0x1f,0x00,0x00,0xfe,0x3f,0x00,0xe0,0xff,0x03,0x00,0xfc,0x00,
!  0xc0,0x3f,0xe0,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0x7e,0x00,0xf0,0x3f,0x00,
!  0xf8,0x07,0x00,0x00,0xc0,0x3f,0x00,0xc0,0xff,0x7f,0x00,0xf0,0xff,0x07,0x00,
!  0xfc,0x00,0xe0,0x7f,0xe0,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0x7f,0x00,0xfc,
!  0x3f,0x00,0xf8,0x03,0x00,0x00,0xc0,0x3f,0x00,0xe0,0x07,0xff,0x00,0xf8,0xf0,
!  0x0f,0x00,0xfe,0x00,0xf8,0x7f,0xe0,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0x7f,
!  0x00,0xfe,0x3f,0x00,0xf8,0x03,0x00,0x00,0xc0,0x3f,0x00,0xf8,0x01,0xfe,0x00,
!  0x3c,0xe0,0x1f,0x00,0xfe,0x00,0xfc,0x7f,0xe0,0x00,0x00,0x80,0x3f,0x00,0x00,
!  0x00,0x3f,0x00,0xff,0x3f,0x00,0xf8,0x03,0x00,0x00,0xc0,0x3f,0x00,0xfc,0x00,
!  0xfc,0x01,0x3e,0xc0,0x1f,0x00,0x7e,0x00,0xfe,0x7f,0xe0,0x00,0x00,0xc0,0x1f,
!  0x00,0x00,0x00,0x3f,0x80,0xc7,0x1f,0x00,0xf8,0x03,0x00,0x00,0xc0,0x3f,0x00,
!  0x7e,0x00,0xfc,0x01,0x1e,0x80,0x1f,0x00,0x7e,0x00,0x8f,0x3f,0xe0,0x00,0x00,
!  0xc0,0x1f,0x00,0x00,0x80,0x3f,0xc0,0x01,0x0f,0x00,0xfc,0x01,0x00,0x00,0xc0,
!  0x3f,0x00,0x3f,0x00,0xfc,0x01,0x1e,0x80,0x1f,0x00,0x7f,0x80,0x03,0x1e,0xe0,
!  0x00,0x00,0xc0,0x1f,0x00,0x00,0x80,0x3f,0xe0,0x00,0x00,0x00,0xfc,0x01,0x00,
!  0x00,0xc0,0x3f,0x80,0x1f,0x00,0xfc,0x01,0x1f,0x00,0x1f,0x00,0x7f,0xc0,0x01,
!  0x00,0xe0,0x00,0x00,0xc0,0x1f,0x00,0x00,0x80,0x3f,0x70,0x00,0x00,0x00,0xfc,
!  0x01,0x00,0x00,0xc0,0x3f,0xc0,0x1f,0x00,0xfc,0x01,0x1f,0x00,0x06,0x00,0x7f,
!  0xe0,0x00,0x00,0xe0,0x00,0x00,0xe0,0x0f,0x00,0x00,0x80,0x1f,0x38,0x00,0x00,
!  0x00,0xfc,0x01,0x00,0x00,0xc0,0x3f,0xc0,0x0f,0x00,0xfe,0x01,0x3f,0x00,0x00,
!  0x00,0x3f,0x70,0x00,0x00,0xe0,0x00,0x00,0xe0,0x0f,0x00,0x00,0xc0,0x1f,0x1c,
!  0x00,0x00,0x00,0xfe,0x00,0x00,0x00,0xc0,0x3f,0xe0,0x0f,0x00,0xfe,0x00,0x3f,
!  0x00,0x00,0x80,0x3f,0x38,0x00,0x00,0xe0,0x00,0x00,0xe0,0x0f,0x00,0x00,0xc0,
!  0x1f,0x0e,0x00,0x00,0x00,0xfe,0x00,0x00,0x00,0xe0,0x3f,0xf0,0x07,0x00,0xff,
!  0x00,0x7f,0x00,0x00,0x80,0x3f,0x1c,0x00,0x00,0xe0,0x00,0x00,0xe0,0x0f,0x00,
!  0x00,0xc0,0x1f,0x07,0x00,0x00,0x00,0xfe,0x00,0x00,0x00,0xe0,0x1f,0xf0,0x07,
!  0x00,0x7f,0x00,0xff,0x00,0x00,0x80,0x3f,0x0e,0x00,0x00,0xe0,0x00,0x00,0xf0,
!  0x07,0x00,0x00,0xc0,0x8f,0x03,0x00,0x00,0x00,0xfe,0x00,0x00,0x00,0xe0,0x1f,
!  0xf8,0x03,0x80,0x3f,0x00,0xff,0x01,0x00,0x80,0x1f,0x07,0x00,0x00,0xe0,0x00,
!  0x00,0xf0,0x07,0x00,0x00,0xc0,0xcf,0x03,0x00,0x00,0x00,0xff,0x00,0x00,0x00,
!  0xe0,0x1f,0xf8,0x03,0xc0,0x1f,0x00,0xfe,0x03,0x00,0x80,0x9f,0x07,0x00,0x00,
!  0xe0,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,0xef,0x07,0x00,0x00,0x00,0x7f,0x00,
!  0x00,0x00,0xf0,0x1f,0xf8,0x03,0xf0,0x0f,0x00,0xfe,0x07,0x00,0xc0,0xdf,0x0f,
!  0x00,0x00,0xe0,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,0xef,0x07,0x00,0x00,0x00,
!  0x7f,0x00,0x00,0x00,0xf0,0x0f,0xfc,0x01,0xf8,0x03,0x00,0xfc,0x0f,0x00,0xc0,
!  0xdf,0x0f,0x00,0x00,0xe0,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,0xf7,0x07,0x00,
!  0x00,0x00,0x7f,0x00,0x00,0x00,0xf0,0x0f,0xfc,0x01,0xfe,0x01,0x00,0xf8,0x1f,
!  0x00,0xc0,0xef,0x0f,0x00,0x00,0xe0,0x00,0x00,0xf8,0x03,0x00,0x00,0xe0,0xe7,
!  0x0f,0x00,0x00,0x00,0x7f,0x00,0x00,0x00,0xf8,0x0f,0xfc,0xc1,0x3f,0x00,0x00,
!  0xf0,0x3f,0x00,0xc0,0xcf,0x1f,0x00,0x00,0xe0,0x00,0x00,0xf8,0x03,0x00,0x00,
!  0xf0,0xe7,0x0f,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0xf8,0x07,0xfc,0xf9,0x0f,
!  0x00,0x00,0xe0,0x7f,0x00,0xe0,0xcf,0x1f,0x00,0x00,0xe0,0x00,0x00,0xf8,0x03,
!  0x00,0x00,0xf0,0xe7,0x0f,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0xfc,0x07,0xfe,
!  0xff,0x01,0x00,0x00,0xc0,0x7f,0x00,0xe0,0xcf,0x1f,0x00,0x00,0xe0,0x00,0x00,
!  0xf8,0x03,0x00,0x00,0xf0,0xc7,0x1f,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0xfc,
!  0x03,0xfe,0x1f,0x00,0x00,0x00,0x80,0xff,0x00,0xe0,0x8f,0x3f,0x00,0x00,0xe0,
!  0x00,0x00,0xfc,0x01,0x00,0x00,0xf0,0xc3,0x1f,0x00,0x00,0x80,0x3f,0x00,0x00,
!  0x00,0xfe,0x03,0xfe,0x01,0x00,0x00,0x00,0x00,0xff,0x00,0xe0,0x87,0x3f,0x00,
!  0x00,0xe0,0x00,0x00,0xfc,0x01,0x00,0x00,0xf8,0xc3,0x1f,0x00,0x00,0xc0,0x3f,
!  0x00,0x00,0x00,0xfe,0x01,0xfe,0x00,0x00,0x00,0x00,0x00,0xfe,0x01,0xf0,0x87,
!  0x3f,0x00,0x00,0xe0,0x00,0x00,0xfc,0x01,0x00,0x00,0xf8,0x83,0x3f,0x00,0x00,
!  0xc0,0x1f,0x00,0x00,0x00,0xff,0x00,0xfe,0x00,0x00,0x00,0x00,0x00,0xfc,0x01,
!  0xf0,0x07,0x7f,0x00,0x00,0xe0,0x00,0x00,0xfc,0x01,0x00,0x00,0xf8,0x83,0x3f,
!  0x00,0x00,0xc0,0x1f,0x00,0x00,0x80,0xff,0x00,0xfe,0x00,0x00,0x00,0x00,0x00,
!  0xfc,0x01,0xf0,0x07,0x7f,0x00,0x00,0xe0,0x00,0x00,0xfc,0x01,0x00,0x00,0xf8,
!  0x01,0x7f,0x00,0x00,0xc0,0x1f,0x00,0x00,0xc0,0x7f,0x00,0xfe,0x00,0x00,0x18,
!  0x00,0x00,0xfc,0x01,0xf0,0x03,0xfe,0x00,0x00,0xe0,0x00,0x00,0xfe,0x00,0x00,
!  0x00,0xfc,0x01,0x7f,0x00,0x06,0xe0,0x1f,0x00,0x00,0xc0,0x3f,0x00,0xfe,0x00,
!  0x00,0x1c,0x78,0x00,0xf8,0x01,0xf8,0x03,0xfe,0x00,0x0c,0xe0,0x00,0x00,0xfe,
!  0x00,0x00,0x00,0xfc,0x01,0xff,0x00,0x06,0xe0,0x0f,0x00,0x00,0xf0,0x1f,0x00,
!  0xfe,0x01,0x00,0x1e,0x7c,0x00,0xf8,0x01,0xf8,0x03,0xfe,0x01,0x0c,0xe0,0x00,
!  0x00,0xfe,0x00,0x00,0x00,0xfc,0x01,0xfe,0x00,0x07,0xe0,0x0f,0x00,0x00,0xf8,
!  0x0f,0x00,0xfe,0x01,0x00,0x0e,0x7e,0x00,0xf8,0x01,0xf8,0x03,0xfc,0x01,0x0e,
!  0xe0,0x00,0x00,0xfe,0x00,0x00,0x00,0xfc,0x00,0xfe,0x01,0x03,0xe0,0x0f,0x00,
!  0x00,0xfc,0x07,0x00,0xfc,0x01,0x80,0x07,0xfe,0x00,0xf8,0x00,0xf8,0x01,0xfc,
!  0x03,0x06,0xe0,0x00,0x00,0x7f,0x00,0x00,0x00,0xfc,0x00,0xfc,0x81,0x03,0xe0,
!  0x0f,0x00,0x00,0xff,0x01,0x00,0xfc,0x03,0xc0,0x03,0xfe,0x00,0xf8,0x00,0xf8,
!  0x01,0xf8,0x03,0x07,0xe0,0x00,0x00,0x7f,0x00,0x00,0x00,0xfe,0x00,0xfc,0xc3,
!  0x01,0xf0,0x0f,0x00,0xe0,0xff,0x00,0x00,0xfc,0x07,0xe0,0x01,0xfe,0x01,0x7c,
!  0x00,0xfc,0x01,0xf8,0x87,0x03,0xe0,0x00,0x80,0xff,0x00,0x00,0x00,0xfe,0x00,
!  0xf8,0xe7,0x00,0xf0,0x1f,0x00,0xfe,0x3f,0x00,0x00,0xf8,0x0f,0xfc,0x00,0xfc,
!  0x03,0x7c,0x00,0xfc,0x01,0xf0,0xcf,0x01,0xe0,0x00,0xe0,0xff,0x03,0x00,0x00,
!  0xfe,0x00,0xf8,0xff,0xe0,0xff,0xff,0xff,0xff,0x07,0x00,0x00,0xf0,0xff,0x7f,
!  0x00,0xf8,0x0f,0x3e,0x00,0xfc,0x01,0xf0,0xff,0x01,0xe0,0x00,0xff,0xff,0x7f,
!  0x00,0x00,0x7e,0x00,0xf0,0x7f,0xe0,0xff,0xff,0xff,0xff,0x00,0x00,0x00,0xe0,
!  0xff,0x1f,0x00,0xf0,0xff,0x1f,0x00,0xfc,0x00,0xe0,0xff,0x00,0xe0,0x00,0xff,
!  0xff,0x7f,0x00,0x00,0x7f,0x00,0xe0,0x3f,0xe0,0xff,0xff,0xff,0x07,0x00,0x00,
!  0x00,0xc0,0xff,0x07,0x00,0xe0,0xff,0x07,0x00,0xfe,0x00,0xc0,0x7f,0x00,0xe0,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x0f,0x00,0x80,0x0f,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0xfe,0x00,0x00,0x00,0xff,0x00,0x00,0x1e,0x00,0x00,0x1f,
!  0x00,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0};
  }
  
  #
--- 86,281 ----
  
  set tkdesk(welcome_bm) {
  #define tkdesk_width 253
! #define tkdesk_height 88
  static char tkdesk_bits[] = {
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x0e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x1c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0xf8,0x0f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0xc0,0xff,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xff,0x0f,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0xc0,0xff,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xff,0x0f,0x00,0x00,
!  0x00,0x00,0xfe,0xff,0xff,0xff,0xff,0x07,0xf0,0x07,0x00,0x00,0x00,0xff,0xff,
!  0xff,0xff,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x0f,
!  0x00,0x00,0x00,0x00,0xfe,0xff,0xff,0xff,0xff,0x07,0xf0,0x03,0x00,0x00,0x00,
!  0xff,0xff,0xff,0xff,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0xe0,0x07,0x00,0x00,0x00,0x00,0xff,0x00,0xfc,0x01,0xf8,0x07,0xf0,0x03,0x00,
!  0x00,0x00,0xc0,0x3f,0x00,0xfc,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0xe0,0x07,0x00,0x00,0x00,0x00,0x3f,0x00,0xfc,0x01,0xe0,0x07,0xf8,
!  0x03,0x00,0x00,0x00,0xc0,0x1f,0x00,0xc0,0x3f,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0x00,0x00,0x0f,0x00,0xfc,0x01,0xc0,
!  0x07,0xf8,0x03,0x00,0x00,0x00,0xc0,0x1f,0x00,0x00,0xff,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0x00,0x00,0x07,0x00,0xfe,
!  0x00,0x80,0x03,0xf8,0x01,0x00,0x00,0x00,0xc0,0x1f,0x00,0x00,0xfe,0x01,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x03,0x00,0x00,0x00,0x80,0x07,
!  0x00,0xfe,0x00,0x80,0x03,0xf8,0x01,0x00,0x00,0x00,0xe0,0x1f,0x00,0x00,0xfc,
!  0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x03,0x00,0x00,0x00,
!  0x80,0x03,0x00,0xfe,0x00,0x80,0x03,0xfc,0x01,0x00,0x00,0x00,0xe0,0x0f,0x00,
!  0x00,0xf8,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf8,0x03,0x00,
!  0x00,0x00,0x80,0x01,0x00,0xfe,0x00,0x80,0x01,0xfc,0x01,0x00,0x00,0x00,0xe0,
!  0x0f,0x00,0x00,0xf0,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf8,
!  0x03,0x00,0x00,0x00,0x80,0x01,0x00,0x7f,0x00,0x80,0x01,0xfc,0x00,0x00,0x00,
!  0x00,0xe0,0x0f,0x00,0x00,0xe0,0x0f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0xf8,0x01,0x00,0x00,0x00,0xc0,0x01,0x00,0x7f,0x00,0x80,0x01,0xfc,0x00,
!  0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,0x0f,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0xf8,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x7f,0x00,0x00,0x00,
!  0xfe,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,0x1f,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0xfc,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x7f,0x00,
!  0x00,0x00,0xfe,0x00,0x80,0x0f,0x00,0xf0,0x07,0x00,0x00,0xc0,0x1f,0x00,0x00,
!  0xf0,0x07,0x00,0x00,0x7f,0x00,0x00,0xfc,0x01,0x00,0x1f,0x00,0x00,0x00,0x80,
!  0x3f,0x00,0x00,0x00,0x7e,0x00,0xe0,0x1f,0x00,0xf0,0x07,0x00,0x00,0xc0,0x1f,
!  0x00,0x00,0xfe,0x3f,0x00,0xe0,0xff,0x03,0x00,0xfc,0x00,0xc0,0x3f,0x00,0x00,
!  0x00,0x80,0x3f,0x00,0x00,0x00,0x7e,0x00,0xf0,0x3f,0x00,0xf8,0x07,0x00,0x00,
!  0xc0,0x3f,0x00,0xc0,0xff,0x7f,0x00,0xf0,0xff,0x07,0x00,0xfc,0x00,0xe0,0x7f,
!  0x00,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0x7f,0x00,0xfc,0x3f,0x00,0xf8,0x03,
!  0x00,0x00,0xc0,0x3f,0x00,0xe0,0x07,0xff,0x00,0xf8,0xf0,0x0f,0x00,0xfe,0x00,
!  0xf8,0x7f,0x00,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0x3f,0x00,0xff,0x3f,0x00,
!  0xf8,0x03,0x00,0x00,0xc0,0x3f,0x00,0xfc,0x00,0xfc,0x01,0x3e,0xc0,0x1f,0x00,
!  0x7e,0x00,0xfe,0x7f,0x00,0x00,0x00,0xc0,0x1f,0x00,0x00,0x00,0x3f,0x80,0xc7,
!  0x1f,0x00,0xf8,0x03,0x00,0x00,0xc0,0x3f,0x00,0x7e,0x00,0xfc,0x01,0x1e,0x80,
!  0x1f,0x00,0x7e,0x00,0x8f,0x3f,0x00,0x00,0x00,0xc0,0x1f,0x00,0x00,0x80,0x3f,
!  0xc0,0x01,0x0f,0x00,0xfc,0x01,0x00,0x00,0xc0,0x3f,0x00,0x3f,0x00,0xfc,0x01,
!  0x1e,0x80,0x1f,0x00,0x7f,0x80,0x03,0x1e,0x00,0x00,0x00,0xc0,0x1f,0x00,0x00,
!  0x80,0x3f,0xe0,0x00,0x00,0x00,0xfc,0x01,0x00,0x00,0xc0,0x3f,0x80,0x1f,0x00,
!  0xfc,0x01,0x1f,0x00,0x1f,0x00,0x7f,0xc0,0x01,0x00,0x00,0x00,0x00,0xc0,0x1f,
!  0x00,0x00,0x80,0x3f,0x70,0x00,0x00,0x00,0xfc,0x01,0x00,0x00,0xc0,0x3f,0xc0,
!  0x1f,0x00,0xfc,0x01,0x1f,0x00,0x06,0x00,0x7f,0xe0,0x00,0x00,0x00,0x00,0x00,
!  0xe0,0x0f,0x00,0x00,0x80,0x1f,0x38,0x00,0x00,0x00,0xfc,0x01,0x00,0x00,0xc0,
!  0x3f,0xc0,0x0f,0x00,0xfe,0x01,0x3f,0x00,0x00,0x00,0x3f,0x70,0x00,0x00,0x00,
!  0x00,0x00,0xe0,0x0f,0x00,0x00,0xc0,0x1f,0x1c,0x00,0x00,0x00,0xfe,0x00,0x00,
!  0x00,0xc0,0x3f,0xe0,0x0f,0x00,0xfe,0x00,0x3f,0x00,0x00,0x80,0x3f,0x38,0x00,
!  0x00,0x00,0x00,0x00,0xe0,0x0f,0x00,0x00,0xc0,0x1f,0x0e,0x00,0x00,0x00,0xfe,
!  0x00,0x00,0x00,0xe0,0x3f,0xf0,0x07,0x00,0xff,0x00,0x7f,0x00,0x00,0x80,0x3f,
!  0x1c,0x00,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0xc0,0x8f,0x03,0x00,0x00,
!  0x00,0xfe,0x00,0x00,0x00,0xe0,0x1f,0xf8,0x03,0x80,0x3f,0x00,0xff,0x01,0x00,
!  0x80,0x1f,0x07,0x00,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0xc0,0xcf,0x03,
!  0x00,0x00,0x00,0xff,0x00,0x00,0x00,0xe0,0x1f,0xf8,0x03,0xc0,0x1f,0x00,0xfe,
!  0x03,0x00,0x80,0x9f,0x07,0x00,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,0x00,0xe0,
!  0xef,0x07,0x00,0x00,0x00,0x7f,0x00,0x00,0x00,0xf0,0x1f,0xf8,0x03,0xf0,0x0f,
!  0x00,0xfe,0x07,0x00,0xc0,0xdf,0x0f,0x00,0x00,0x00,0x00,0x00,0xf0,0x07,0x00,
!  0x00,0xe0,0xef,0x07,0x00,0x00,0x00,0x7f,0x00,0x00,0x00,0xf0,0x0f,0xfc,0x01,
!  0xf8,0x03,0x00,0xfc,0x0f,0x00,0xc0,0xdf,0x0f,0x00,0x00,0x00,0x00,0x00,0xf0,
!  0x07,0x00,0x00,0xe0,0xf7,0x07,0x00,0x00,0x00,0x7f,0x00,0x00,0x00,0xf0,0x0f,
!  0xfc,0x01,0xfe,0x01,0x00,0xf8,0x1f,0x00,0xc0,0xef,0x0f,0x00,0x00,0x00,0x00,
!  0x00,0xf8,0x03,0x00,0x00,0xe0,0xe7,0x0f,0x00,0x00,0x00,0x7f,0x00,0x00,0x00,
!  0xf8,0x0f,0xfc,0xc1,0x3f,0x00,0x00,0xf0,0x3f,0x00,0xc0,0xcf,0x1f,0x00,0x00,
!  0x00,0x00,0x00,0xf8,0x03,0x00,0x00,0xf0,0xe7,0x0f,0x00,0x00,0x80,0x3f,0x00,
!  0x00,0x00,0xf8,0x07,0xfc,0xf9,0x0f,0x00,0x00,0xe0,0x7f,0x00,0xe0,0xcf,0x1f,
!  0x00,0x00,0x00,0x00,0x00,0xf8,0x03,0x00,0x00,0xf0,0xe7,0x0f,0x00,0x00,0x80,
!  0x3f,0x00,0x00,0x00,0xfc,0x07,0xfe,0xff,0x01,0x00,0x00,0xc0,0x7f,0x00,0xe0,
!  0xcf,0x1f,0x00,0x00,0x00,0x00,0x00,0xfc,0x01,0x00,0x00,0xf0,0xc3,0x1f,0x00,
!  0x00,0x80,0x3f,0x00,0x00,0x00,0xfe,0x03,0xfe,0x01,0x00,0x00,0x00,0x00,0xff,
!  0x00,0xe0,0x87,0x3f,0x00,0x00,0x00,0x00,0x00,0xfc,0x01,0x00,0x00,0xf8,0xc3,
!  0x1f,0x00,0x00,0xc0,0x3f,0x00,0x00,0x00,0xfe,0x01,0xfe,0x00,0x00,0x00,0x00,
!  0x00,0xfe,0x01,0xf0,0x87,0x3f,0x00,0x00,0x00,0x00,0x00,0xfc,0x01,0x00,0x00,
!  0xf8,0x83,0x3f,0x00,0x00,0xc0,0x1f,0x00,0x00,0x00,0xff,0x00,0xfe,0x00,0x00,
!  0x00,0x00,0x00,0xfc,0x01,0xf0,0x07,0x7f,0x00,0x00,0x00,0x00,0x00,0xfc,0x01,
!  0x00,0x00,0xf8,0x83,0x3f,0x00,0x00,0xc0,0x1f,0x00,0x00,0x80,0xff,0x00,0xfe,
!  0x00,0x00,0x00,0x00,0x00,0xfc,0x01,0xf0,0x07,0x7f,0x00,0x00,0x00,0x00,0x00,
!  0xfc,0x01,0x00,0x00,0xf8,0x01,0x7f,0x00,0x00,0xc0,0x1f,0x00,0x00,0xc0,0x7f,
!  0x00,0xfe,0x00,0x00,0x18,0x00,0x00,0xfc,0x01,0xf0,0x03,0xfe,0x00,0x00,0x00,
!  0x00,0x00,0xfe,0x00,0x00,0x00,0xfc,0x01,0x7f,0x00,0x06,0xe0,0x1f,0x00,0x00,
!  0xc0,0x3f,0x00,0xfe,0x00,0x00,0x1c,0x78,0x00,0xf8,0x01,0xf8,0x03,0xfe,0x00,
!  0x0c,0x00,0x00,0x00,0xfe,0x00,0x00,0x00,0xfc,0x01,0xff,0x00,0x06,0xe0,0x0f,
!  0x00,0x00,0xf0,0x1f,0x00,0xfe,0x01,0x00,0x1e,0x7c,0x00,0xf8,0x01,0xf8,0x03,
!  0xfe,0x01,0x0c,0x00,0x00,0x00,0xfe,0x00,0x00,0x00,0xfc,0x01,0xfe,0x00,0x07,
!  0xe0,0x0f,0x00,0x00,0xf8,0x0f,0x00,0xfe,0x01,0x00,0x0e,0x7e,0x00,0xf8,0x01,
!  0xf8,0x03,0xfc,0x01,0x0e,0x00,0x00,0x00,0x7f,0x00,0x00,0x00,0xfc,0x00,0xfc,
!  0x81,0x03,0xe0,0x0f,0x00,0x00,0xff,0x01,0x00,0xfc,0x03,0xc0,0x03,0xfe,0x00,
!  0xf8,0x00,0xf8,0x01,0xfe,0x03,0x07,0x00,0x00,0x00,0x7f,0x00,0x00,0x00,0xfe,
!  0x00,0xfc,0xc3,0x01,0xf0,0x0f,0x00,0xe0,0xff,0x80,0x0f,0xfc,0x07,0xe0,0x01,
!  0xfe,0x01,0x7c,0x00,0xfc,0x01,0xfe,0x87,0x03,0x00,0x00,0x80,0xff,0x00,0x00,
!  0x00,0xfe,0x00,0xf8,0xe7,0x00,0xf0,0x1f,0x00,0xfe,0x3f,0x80,0x0f,0xf8,0x0f,
!  0xfc,0x00,0xff,0x03,0x7c,0x0c,0xfc,0x1f,0xff,0xcf,0x01,0x10,0x00,0xe0,0xff,
!  0x03,0x00,0x00,0xfe,0x00,0xf8,0xff,0xe0,0xff,0xff,0xff,0xff,0x07,0x80,0x07,
!  0xf0,0xff,0x7f,0x80,0xff,0x0f,0x3e,0x1e,0xfc,0x0f,0xff,0xff,0x01,0x18,0x00,
!  0xff,0xff,0x7f,0x00,0x00,0x7e,0x00,0xf0,0x7f,0xe0,0xff,0xff,0xff,0xff,0x00,
!  0xc0,0x03,0xe0,0xff,0xdf,0xff,0xff,0xff,0x1f,0x3f,0xfc,0x07,0xef,0xff,0xff,
!  0x1f,0x00,0xff,0xff,0x7f,0x00,0x00,0x7f,0x00,0xe0,0x7f,0xe0,0xff,0xff,0xff,
!  0x07,0x00,0xc0,0x03,0xc0,0xff,0x07,0x00,0xe0,0xff,0xff,0x3f,0xfe,0x87,0xc7,
!  0x7f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0f,0x00,0x80,0xff,0xff,0xff,
!  0x0f,0x00,0x00,0x00,0xc0,0x03,0x00,0xfe,0x00,0x00,0x00,0xff,0x01,0x00,0x9e,
!  0x87,0x07,0x3f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x78,
!  0x00,0x80,0x0f,0x00,0x00,0x00,0xe0,0x01,0x00,0x00,0x00,0x00,0x0e,0xe0,0x00,
!  0x00,0xc0,0x83,0x07,0x1e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x3c,0x00,0xc0,0x03,0x00,0x00,0x00,0xe0,0x01,0x80,0x07,0xfc,0xff,0x1f,
!  0x70,0x00,0x00,0xc0,0xc3,0x03,0x1e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x3c,0x00,0xc0,0x03,0x00,0x00,0x00,0xf0,0x00,0xe0,0x0f,0x00,
!  0x00,0x00,0x78,0x00,0x00,0xe0,0xc1,0x03,0x0f,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x1e,0x00,0xc0,0x03,0x00,0xfc,0xff,0xff,0xff,0xff,
!  0x1f,0x00,0x00,0x00,0x38,0x00,0x00,0xe0,0xe1,0x31,0x0f,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x1e,0x00,0xe0,0x01,0x00,0x00,0x00,0xfc,
!  0x01,0x00,0x00,0x00,0x00,0x00,0x3c,0x70,0x00,0xe0,0xe1,0x79,0x0f,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x1e,0x00,0xe0,0x01,0x00,0x00,
!  0x00,0xfe,0x01,0x00,0x00,0x00,0x60,0xf0,0xff,0xff,0x00,0xf0,0xff,0xff,0x07,
!  0x80,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0f,0x00,0xe0,0x01,
!  0x00,0x00,0x00,0xff,0x01,0x00,0x00,0x00,0xf0,0x00,0x1c,0x78,0x00,0xf0,0x00,
!  0x80,0xff,0xff,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0f,0x00,
!  0xf0,0x00,0x00,0x00,0x80,0xff,0x03,0x00,0x00,0xfc,0xff,0x01,0x1e,0x3c,0x00,
!  0xf0,0x00,0x80,0x1f,0xc0,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x0f,0x00,0xf0,0x00,0x00,0x00,0xc0,0xbf,0x03,0x00,0x00,0x00,0x00,0x00,0x0e,
!  0x3c,0x00,0x78,0x00,0xc0,0x1b,0xe0,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x80,0x07,0x00,0x78,0x00,0x00,0x00,0xe0,0xbd,0x07,0x00,0x00,0x00,0x00,
!  0x00,0x07,0x1e,0x00,0x78,0x00,0xc0,0x1b,0xf0,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x80,0xff,0xff,0x7f,0x00,0x00,0x00,0xf0,0x1e,0x07,0x00,0x00,
!  0x00,0x18,0x80,0x07,0x1e,0x00,0x3c,0x00,0xe0,0x1d,0x70,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0xc0,0x03,0x00,0x78,0x00,0x00,0x00,0x78,0x1e,0x07,
!  0x00,0x00,0x00,0x3c,0x80,0x03,0x9e,0x03,0x3c,0x00,0xe0,0x1d,0x78,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0x03,0x00,0x3c,0x00,0x00,0x00,0x3c,
!  0x1e,0x0f,0x00,0x00,0xff,0x7f,0xc0,0x03,0xef,0x07,0x3c,0x30,0xe0,0x1d,0x38,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0x03,0x00,0x3c,0x00,0x00,
!  0x00,0x1e,0x0f,0x0e,0x00,0x00,0x00,0x80,0xff,0xff,0xff,0x0f,0xfe,0x7f,0xf0,
!  0x1c,0x1c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x01,0x00,0x3c,
!  0x00,0x00,0x00,0x07,0x0f,0x1e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x1e,
!  0x7c,0xf0,0x1c,0x1e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x01,
!  0x00,0x1e,0x00,0x00,0x80,0x03,0x0f,0x3e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x1e,0x3c,0x70,0x1c,0x0e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0xe0,0x01,0x00,0x1e,0x00,0x00,0xe0,0x81,0x07,0x7c,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x0f,0x3c,0x78,0x1c,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0xf0,0x00,0x00,0x0f,0x00,0x00,0x78,0x80,0x07,0xf8,0x00,0xc0,0xff,
!  0x0f,0xfe,0xff,0x1f,0x00,0x0f,0x1e,0x3c,0x9c,0x03,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0xf0,0x00,0x00,0x0f,0x00,0x00,0x1c,0xc0,0x83,0xf3,0x01,
!  0xc0,0x83,0x1f,0x0f,0x00,0x1f,0x80,0x07,0x1e,0x1c,0xdc,0x01,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x78,0x00,0x00,0x0f,0x00,0x00,0x0e,0xc0,0xc3,
!  0xe7,0x07,0xc0,0x83,0x07,0x0f,0x80,0x07,0x80,0x07,0x0f,0x1e,0xfc,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x78,0x00,0x80,0x07,0x00,0x80,0xe7,
!  0xff,0xff,0xef,0x0f,0xe0,0x81,0x07,0x0f,0x80,0x07,0x80,0x03,0x0f,0x0e,0xfc,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x78,0x00,0x80,0x07,0x00,
!  0xc0,0x01,0xe0,0x01,0xc0,0x3f,0xe0,0xc1,0x83,0x07,0x80,0x07,0xc0,0x03,0x0f,
!  0x0f,0x7c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x3c,0x00,0x80,
!  0x07,0x00,0xf0,0x00,0xe0,0x01,0x80,0x3f,0xe0,0xc1,0x83,0x07,0xc0,0x03,0xc0,
!  0x81,0x87,0x07,0x3c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x3c,
!  0x00,0xc0,0x03,0x00,0x38,0x00,0xe0,0x01,0x00,0x0f,0xf0,0xc0,0x83,0x07,0xc0,
!  0x03,0xe0,0x81,0x87,0x03,0x7e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0xfc,0xff,0xff,0x03,0x00,0x0e,0x00,0xf0,0x00,0x00,0x00,0xf0,0xe0,0xc1,
!  0x03,0xc0,0x03,0xe0,0x80,0xc7,0x03,0xff,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x1e,0x00,0xe0,0x01,0x00,0x00,0x00,0xf0,0x00,0x00,0x00,0x78,
!  0xe0,0xc1,0x03,0xe0,0x01,0x78,0xc0,0xe3,0xc0,0xf1,0x03,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x1e,0x00,0xe0,0x01,0x00,0x00,0x00,0x78,0x00,0x00,
!  0x00,0xf8,0xff,0xe0,0x01,0xe0,0x01,0x38,0xc0,0x73,0xf0,0xe0,0x07,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0f,0x00,0xe0,0x00,0x00,0x00,0x00,0x78,
!  0x00,0x00,0x00,0x78,0xf0,0xe0,0xff,0xff,0x00,0x1c,0xe0,0x39,0x38,0xc0,0x0f,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0f,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x78,0x00,0x00,0x00,0x3c,0xf0,0xe0,0x01,0xf0,0x00,0x0e,0xe0,0x1d,0x1e,
!  0xc0,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x07,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x3c,0x00,0x00,0x00,0x3c,0x38,0xf0,0x00,0xf0,0x00,0x06,0xe0,
!  0x8f,0x07,0x80,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x3c,0x00,0x00,0x00,0x3c,0x00,0xf0,0x00,0x38,0x00,
!  0x03,0xf0,0xe6,0x01,0x00,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x1c,0x00,0x00,0x00,0x0c,0x00,0x30,0x00,
!  0x00,0x80,0x01,0x00,0x3b,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
   0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
!  0x00,0x00,0x00,0x00,0x00,0x80,0x0f,0x00,0x00,0x00,0x00};
  }
  
  #
***************
*** 261,275 ****
      frame $t.f1 -bd 2 -relief groove -bg $bgcol
      pack $t.f1 -in $t.f -padx 8 -pady 8
  
!     label $t.lLabel -text "Welcome to..." -anchor center -fg black -bg $bgcol
      catch {$t.lLabel config -font -*-helvetica-medium-r-*-*-14-*}
      pack $t.lLabel -in $t.f1 -padx 8 -pady 8 -fill x -expand yes
  
!     image create bitmap welcome_bm -data $tkdesk(welcome_bm) -foreground blue3
      label $t.lTkDesk -image welcome_bm -bg $bgcol
      pack $t.lTkDesk -in $t.f1 -padx 6 -pady 2 -fill x -expand yes
  
!     message $t.lVersion -text "Version $tkdesk(version), dated $tkdesk(date)\nCopyright (C) 1996-1999 Christian Bolik\n\nTkDesk comes with ABSOLUTELY NO WARRANTY.\nSee menu entry Help/License for details." \
  	    -bg $bgcol -fg black \
  	    -aspect 1000 -justify center
      catch {$t.lVersion config -font -*-helvetica-medium-r-*-*-14-*}
--- 311,325 ----
      frame $t.f1 -bd 2 -relief groove -bg $bgcol
      pack $t.f1 -in $t.f -padx 8 -pady 8
  
!     label $t.lLabel -text "¤è¤¦¤³¤½ÆüËÜ¸ì¥Ç¥¹¥¯¥È¥Ã¥×¤Ø..." -anchor center -fg black -bg $bgcol
      catch {$t.lLabel config -font -*-helvetica-medium-r-*-*-14-*}
      pack $t.lLabel -in $t.f1 -padx 8 -pady 8 -fill x -expand yes
  
!     image create bitmap welcome_bm -data $tkdesk(welcome_bm) -foreground navy
      label $t.lTkDesk -image welcome_bm -bg $bgcol
      pack $t.lTkDesk -in $t.f1 -padx 6 -pady 2 -fill x -expand yes
  
!     message $t.lVersion -text "¥Ð¡¼¥¸¥ç¥ó $tkdesk(version) $tkdesk(patch), ÆüÉÕ $tkdesk(date)\nCopyright (C) 1996-1999 Christian Bolik\nÆüËÜ¸ìÈÇºîÀ®---»°´ä¹¬É×\n\nTkDesk¤Ï¡¢¥È¥é¥Ö¥ë¤Ë´Ø¤·¤Æ²¿¤é¤ÎÊÝ¾Ú¤â¤·¤Þ¤»¤ó¡£\n¥á¥Ë¥å¡¼¥¨¥ó¥È¥ê¤Î¥Ø¥ë¥×/¥é¥¤¥»¥ó¥¹¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤" \
  	    -bg $bgcol -fg black \
  	    -aspect 1000 -justify center
      catch {$t.lVersion config -font -*-helvetica-medium-r-*-*-14-*}
***************
*** 285,291 ****
      frame $t.f2 -bd 2 -relief groove -bg $bgcol
      pack $t.f2 -in $t.f -fill x -padx 8 -pady 8
      
!     label $t.lProgress -text "Loading..." -anchor w \
  	    -bg $bgcol -fg black -width 25
      pack $t.lProgress -in $t.f2 -fill x -anchor w -padx 8
  
--- 335,341 ----
      frame $t.f2 -bd 2 -relief groove -bg $bgcol
      pack $t.f2 -in $t.f -fill x -padx 8 -pady 8
      
!     label $t.lProgress -text "ÆÉ¤ß¹þ¤ßÃæ¤Ç¤¹¡£¤·¤Ð¤é¤¯¤ªÂÔ¤Á¤¯¤À¤µ¤¤..." -anchor w \
  	    -bg $bgcol -fg black -width 25
      pack $t.lProgress -in $t.f2 -fill x -anchor w -padx 8
  
***************
*** 295,301 ****
      set y [expr [winfo screenheight $t]/2 - [winfo reqheight $t]/2 \
  	    - [winfo vrooty [winfo parent $t]]]
      wm geom $t +$x+$y
!     wm title $t "Starting..."
      wm deiconify $t
      update
  
--- 345,351 ----
      set y [expr [winfo screenheight $t]/2 - [winfo reqheight $t]/2 \
  	    - [winfo vrooty [winfo parent $t]]]
      wm geom $t +$x+$y
!     wm title $t "µ¯Æ°¤·¤Æ¤¤¤Þ¤¹..."
      wm deiconify $t
      update
  
***************
*** 629,635 ****
  	FileInfo.tcl       
  	FileListbox.tcl    
  	HistEntry.tcl
! 	List.tcl           
  	Periodic.tcl       
  	Viewer.tcl         
  	action.tcl         
--- 679,686 ----
  	FileInfo.tcl       
  	FileListbox.tcl    
  	HistEntry.tcl
! 	List.tcl
! 	Mail.tcl           
  	Periodic.tcl       
  	Viewer.tcl         
  	action.tcl         
***************
*** 656,662 ****
  	history.tcl   
  	itcl_reload.tcl
  	jdb_rcs.tcl   
! 	jobs.tcl      
  	popup.tcl     
  	server.tcl    
  	sound.tcl     
--- 707,714 ----
  	history.tcl   
  	itcl_reload.tcl
  	jdb_rcs.tcl   
! 	jobs.tcl  
! 	menuconfig.tcl    
  	popup.tcl     
  	server.tcl    
  	sound.tcl     
***************
*** 994,1002 ****
  
      if {($tkdesk(ask_on_exit) && !$tkdesk(in_development)) || $ask} {
  	if !$tkdesk(xmaster) {
! 	    set msg "Are you sure you want to exit TkDesk?"
  	} else {
! 	    set msg "This will end your X Session! Is this o.k.?"
  	}
      	if {[cb_yesno $msg] != 0} {
  	    return
--- 1046,1054 ----
  
      if {($tkdesk(ask_on_exit) && !$tkdesk(in_development)) || $ask} {
  	if !$tkdesk(xmaster) {
! 	    set msg "TkDeskÆüËÜ¸ìÈÇ¤ò½ªÎ»¤·¤Þ¤¹¤¬¡¢¤Û¤ó¤È¤Ë¤¤¤¤¤Ç¤¹¤«¡©"
  	} else {
! 	    set msg "X¥¦¥£¥ó¥É¥¦¤ò½ªÎ»¤·¤Þ¤¹¤¬¡¢¤Û¤ó¤È¤Ë¤¤¤¤¤Ç¤¹¤«¡©"
  	}
      	if {[cb_yesno $msg] != 0} {
  	    return
***************
*** 1004,1010 ****
      }
  
      foreach obj [itcl_info objects -class dsk_Editor] {
! 	if [winfo exists $obj] {
  	    if {[$obj close_win] == "cancel"} {
  		return
  	    }
--- 1056,1062 ----
      }
  
      foreach obj [itcl_info objects -class dsk_Editor] {
! 	if [winfo exists [$obj getToplevel]] {
  	    if {[$obj close_win] == "cancel"} {
  		return
  	    }
