From 5c44bb24818045be5fff67f55a00d4f368b7adbd Mon Sep 17 00:00:00 2001
From: Cyan Ogilvie <cyan@tirion.(none)>
Date: Wed, 27 Feb 2008 09:26:41 +0200
Subject: [PATCH] Tcl8.5isms

---
 scripts/wizard.itk | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/scripts/wizard.itk b/scripts/wizard.itk
index 7c86151..8a8be7b 100644
--- a/scripts/wizard.itk
+++ b/scripts/wizard.itk
@@ -76,7 +76,7 @@ body tlc::Wizard::constructor {args} { #<<<
 			$w.ops		2,1 -fill x -pady {5 0}
 	blt::table configure $w r2 -resize none
 
-	eval itk_initialize $args
+	itk_initialize {*}$args
 
 	foreach {page details} [tlc::decomment $pages] {
 		set page_details($page) [tlc::decomment $details]
@@ -159,8 +159,7 @@ body tlc::Wizard::load_page_form {details} { #<<<
 	}
 	array set d	$details
 
-	eval [list Form $w.page.child] [lrange $d(options) 0 end] \
-			[list -schema $d(schema)]
+	Form $w.page.child {*}$d(options) -schema $d(schema)
 	
 	$w.page.child set_data [array get dat]
 
@@ -199,7 +198,7 @@ body tlc::Wizard::apply_action {op} { #<<<
 
 	set default_target_page	""
 	foreach {expression target_page} $expressions {
-		if {$expression == "default"} {
+		if {$expression eq "default"} {
 			set default_target_page	$target_page
 			continue
 		}
@@ -208,7 +207,7 @@ body tlc::Wizard::apply_action {op} { #<<<
 			return
 		}
 	}
-	if {$default_target_page != ""} {
+	if {$default_target_page ne ""} {
 		load_page $default_target_page
 		return
 	}
-- 
2.11.4.GIT