patch-2.1.43 linux/scripts/header.tk

• Lines: 44
• Date: Thu Jun 12 16:22:11 1997
• Orig file: v2.1.42/linux/scripts/header.tk
• Orig date: Sat Apr 13 04:20:03 1996

diff -u --recursive --new-file v2.1.42/linux/scripts/header.tk linux/scripts/header.tk
@@ -209,6 +209,10 @@
 			set cmd "global $var; set $var $value"
 			eval $cmd
 		}
+		if [regexp {([0-9A-Za-z_]+)="([0-9A-Za-z]+)"} $line foo var value] {
+			set cmd "global $var; set $var $value"
+			eval $cmd
+		}
 	}
 	close $file1
 	update_choices
@@ -260,6 +264,16 @@
 	}
 }
 
+proc write_string { file1 file2 varname variable dep } {
+	if { $dep == 0 } \
+		then { puts $file1 "# $varname is not set"; \
+		       puts $file2 "#undef $varname"} \
+	else {
+		puts $file1 "$varname=\"$variable\""; \
+		puts $file2 "#define $varname \"$variable\""; \
+	}
+}
+
 proc option_name {w mnum line text helpidx} {
 	button $w.x$line.l -text "$text" -relief groove -anchor w
 	$w.x$line.l configure -activefore [cget $w.x$line.l -fg] \
@@ -310,6 +324,15 @@
 
 proc hex { w mnum line text variable } {
 	int $w $mnum $line $text $variable
+}
+
+proc istring { w mnum line text variable } {
+	frame $w.x$line
+	entry $w.x$line.x -width 18 -relief sunken -borderwidth 2 \
+		-textvariable $variable
+	option_name $w $mnum $line $text $variable
+	pack $w.x$line.x -anchor w -side right -fill y
+	pack $w.x$line -anchor w -fill both -expand on
 }
 
 proc minimenu { w mnum line text variable helpidx } {