Index: regproc/regproc.tcl
==================================================================
--- regproc/regproc.tcl
+++ regproc/regproc.tcl
@@ -100,10 +100,12 @@
 
 	toplevel .purchase
 	wm title .purchase "Purchase $appname"
 	wm resizable .purchase 0 0
 
+	regproc::makeModal .purchase
+
 	wm withdraw .purchase
 	wm transient .purchase .
 
 	wm protocol .purchase WM_DELETE_WINDOW {}
 
@@ -148,10 +150,12 @@
 	variable expired
 
 	toplevel .expired
 	wm title .expired "Purchase $appname"
 	wm resizable .expired 0 0
+
+	regproc::makeModal .expired
 
 	wm withdraw .expired
 	wm transient .expired .
 
 	wm protocol .expired WM_DELETE_WINDOW {}
@@ -356,11 +360,23 @@
 
 	variable expired
 	if {$expired == 1} {
 	    exit
 	} 
+
+    }
+
+    proc makeModal {w} {
+
+	if {[tk windowingsystem] eq "aqua" } {
+	    tk::unsupported::MacWindowStyle style $w  modal
+	}
+	if {[tk windowingsystem] eq "win32"} {
+	    raise $w
+	    grab -global $w
+	}
 
     }
 
     namespace export *
 }
 

Index: softwareupdate/softwareupdate.tcl
==================================================================
--- softwareupdate/softwareupdate.tcl
+++ softwareupdate/softwareupdate.tcl
@@ -14,11 +14,11 @@
 	variable library [file dirname [info script]]
     }
 
 
     variable icon
-	variable appname
+    variable appname
     variable tmpdir
     variable currentinstall
     
     switch [tk windowingsystem] {
 	"aqua" {
@@ -33,11 +33,11 @@
 	"x11" {
 	    set tmpdir $::env(TMP)
 	}
     }
     
-   proc setIcon {appicon} {
+    proc setIcon {appicon} {
 	
 	variable icon
 	set icon $appicon
 	return $icon
     }
@@ -85,316 +85,318 @@
 
 	set minOS [$sparkledata selectNodes -namespaces [list x "http://www.andymatuschak.org/xml-namespaces/sparkle"] {string(//x:minimumSystemVersion)}]
 
 
 	if {[tk windowingsystem] eq "aqua"] {
-	set hostOS [exec sw_vers -productVersion]
+	    set hostOS [exec sw_vers -productVersion]
 
-	if {![package vsatisfies $hostOS $minOS]} {
-	    tk_messageBox -icon warning -message "Error!" -detail "$appname is not supported on Mac OS X $hostOS. The minimum supported OS version is $minOS." 
-	    return
-	}
+	    if {![package vsatisfies $hostOS $minOS]} {
+		tk_messageBox -icon warning -message "Error!" -detail "$appname is not supported on Mac OS X $hostOS. The minimum supported OS version is $minOS." 
+		return
+	    }
 	}
 	
 	if {[expr $currentversion < $versionnumber]} {
 	    softwareupdate::updatePitch
 	} else {
 	    softwareupdate::upToDate
 	}
     }
+}
+
+#define the current version of the software
+proc setVersion {app number} {
+    variable currentversion
+    variable appname
+    set currentversion $number
+    set appname $app
     
-    #define the current version of the software
-    proc setVersion {app number} {
-	variable currentversion
-	variable appname
-	set currentversion $number
-	set appname $app
+}
+
+
+#get the current installation path
+proc findCurrentInstallation {} {
+    variable currentinstall
+    variable appname 
+    switch [tk windowingsystem] {
+
+	"aqua" {
+	    set approot [info nameofexecutable]
+	    set apppath [split $approot /]
+	    set currentinstall [join [lrange $apppath 0 [lsearch $apppath "*.app"]] / ]
+	}
+	
+	"win32" {
+	    set currentinstall [file join $::env(APPDATA)  CodebyKevin $appname]
+	    
+	}
 	
+	"x11" {
+	    return
+	}
     }
     
-
-   #get the current installation path
-    proc findCurrentInstallation {} {
-	variable currentinstall
-	variable appname 
-	switch [tk windowingsystem] {
-
-	    "aqua" {
-		set approot [info nameofexecutable]
-		set apppath [split $approot /]
-		set currentinstall [join [lrange $apppath 0 [lsearch $apppath "*.app"]] / ]
-	    }
+    return $currentinstall
+
+}
+
+#prompt user to update
+proc updatePitch {} {
+    variable appname
+    variable icon
+    variable changedata
+    variable currentversion
+    variable versionnumber
+
+    catch {destroy .updateprogress}
+
+    catch {destroy .update}
+    
+
+    toplevel .update
+    wm title .update "Software Update"
+
+    wm withdraw .update
+
+    frame .update.f -bg gray95
+    pack .update.f -fill both -expand yes
+
+    frame .update.f.top -bg gray95
+    pack .update.f.top -fill both -expand yes
+
+    label .update.f.top.i -image $icon -bg gray95 -relief flat -highlightthickness 0
+    pack .update.f.top.i -side left -fill both -expand yes
+
+    frame .update.f.top.r -bg gray95
+    pack .update.f.top.r -side right -fill both -expand yes
+
+    label .update.f.top.r.title -text "A new version of $appname is available!" -font {-weight bold} -bg gray95 -relief flat -highlightthickness 0
+    pack .update.f.top.r.title -fill both -expand yes -side top
+
+    label .update.f.top.r.msg -text "$appname $versionnumber is available--you have $currentversion. Would you like to download it now?" -font {-size 10} -bg gray95 -relief flat -highlightthickness 0
+    pack .update.f.top.r.msg -fill both -expand yes -side top
+
+    label .update.f.top.r.release -text "Release Notes:" -font {-size 10 -weight bold} -relief flat -highlightthickness 0 -bg gray95 
+    pack .update.f.top.r.release -side top -fill both -expand yes
+
+    text .update.f.top.r.text -font TkDefaultFont
+    pack .update.f.top.r.text -side top -fill both -expand yes
+
+    ttk::frame .update.f.top.r.bottom -padding 5
+    pack .update.f.top.r.bottom -side bottom -fill both -expand yes
+
+    ttk::button .update.f.top.r.bottom.skip -text "Skip This Version" -command {destroy .update}
+
+    ttk::button .update.f.top.r.bottom.install -text "Install Update" -default active -command softwareupdate::installUpdate
+    
+    pack .update.f.top.r.bottom.install .update.f.top.r.bottom.skip  -side right  -fill both -expand yes
+
+    .update.f.top.r.text insert end $changedata
+
+    .update.f.top.r.text configure -state disabled
+
+    wm resizable .update 0 0
+    wm deiconify .update
+    raise .update
+    wm transient .update .
+
+}
+
+
+#"busy" dialog
+proc checkingForUpdates {} {
+
+    variable appname
+    variable icon
+
+    catch {destroy .updateprogress}
+
+    toplevel .updateprogress 
+    wm title .updateprogress "Updating $appname"
+
+    wm withdraw .updateprogress
+    update idletasks
+
+    ttk::frame .updateprogress.f -padding 5
+    pack .updateprogress.f -fill both -expand yes
+
+    label .updateprogress.f.l -bg gray95 -image $icon -bd 0 -relief flat -highlightthickness 0 -width [image width $icon] -height [image height $icon]
+    pack .updateprogress.f.l -side left -fill both -expand yes
+
+    frame .updateprogress.f.r -bg gray95 -bd 0 -highlightcolor gray95
+    pack .updateprogress.f.r -side right -fill both -expand yes
+    
+    
+    ttk::label .updateprogress.f.r.t -text "Checking for updates..." -padding 5
+    pack .updateprogress.f.r.t -side top -fill both -expand yes
+
+    ttk::frame .updateprogress.f.r.f -padding 5
+    pack .updateprogress.f.r.f -side top -fill both -expand yes
+    
+    ttk::progressbar .updateprogress.f.r.f.progress -mode indeterminate -orient horizontal
+    pack .updateprogress.f.r.f.progress -fill both -expand yes -side top
+
+    .updateprogress.f.r.f.progress start
+
+    ttk::button .updateprogress.f.r.f.b -text "Cancel" -command {destroy .updateprogress}
+
+    pack .updateprogress.f.r.f.b -side bottom -fill both -expand no
+
+    wm geometry .updateprogress 400x100
+    wm resizable .updateprogress 0 0
+
+    wm deiconify .updateprogress
+    raise .updateprogress
+
+    wm transient .updateprogress .
+
+}
+
+#dialog if current version is installed
+proc upToDate {} {
+    variable appname
+    variable versionnumber
+
+    catch {destroy .updateprogress}
+
+    tk_messageBox  -icon info -message "You're up to date!" -detail "$appname $versionnumber is the currently the newest version available."
+
+}
+
+#show progress of installation
+proc progressDialog {} {
+
+    variable appname
+    variable status
+    variable icon
+
+    catch {destroy .downloadprogress}
+
+    toplevel .downloadprogress
+    wm title .downloadprogress "Updating $appname"
+
+    wm transient .downloadprogress .
+
+    label .downloadprogress.label -image $icon  -anchor w -bg gray95 -highlightthickness 0
+
+    pack .downloadprogress.label -side left -fill both -expand yes
+
+
+    ttk::frame .downloadprogress.frame -padding 5
+    pack .downloadprogress.frame -side right -fill both -expand yes
+
+    ttk::label .downloadprogress.frame.l -textvariable softwareupdate::status -width 40 -text ""
+    pack .downloadprogress.frame.l -side top -fill both -expand yes
+
+    ttk::progressbar .downloadprogress.frame.bar -mode indeterminate -orient horizontal  -maximum 100
+    pack .downloadprogress.frame.bar -side top -fill both -expand yes
+
+    .downloadprogress.frame.bar start
+    update
+
+    ttk::button .downloadprogress.frame.b -text "Cancel" -command {destroy .updateprogress}
+    pack .downloadprogress.frame.b -side right -fill both -expand no
+
+    wm geometry .downloadprogress 400x100
+    wm resizable .downloadprogress 0 0
+    
+}
+
+#download and install the update
+proc installUpdate {} {
+    variable currentinstall
+    variable status
+    variable appname
+    variable tmpdir
+
+    catch {destroy .update}
+
+    softwareupdate::findCurrentInstallation
+
+    softwareupdate::progressDialog
+    set status "Downloading update for $appname"
+    
+    switch [tk windowingsystem] {
+
+	"aqua" {
+	    http::geturl http://www.codebykevin.com/updates/[list $appname].tgz -channel [open $tmpdir/[list $appname].tgz w] 
+	    update
+	    after 1000
+	    cd $tmpdir
+	    set status "Unpacking update for $appname"
+	    update
+	    after 1000
+	    catch {exec tar xvfz [list $appname].tgz}
+	}
+	
+	"win32" {
 	    
-	    "win32" {
-		set currentinstall [file join $::env(APPDATA)  CodebyKevin $appname]
-		
-	    }
-	    
-	    "x11" {
-		return
-	    }
+	    http::geturl http://www.codebykevin.com/updates/[list $appname].exe -channel [open $tmpdir/[list $appname].exe w] 
+
 	}
 	
-	return $currentinstall
-
-    }
-
-    #prompt user to update
-    proc updatePitch {} {
-	variable appname
-	variable icon
-	variable changedata
-	variable currentversion
-	variable versionnumber
-
-	catch {destroy .updateprogress}
-
-	catch {destroy .update}
-	
-
-	toplevel .update
-	wm title .update "Software Update"
-
-	wm withdraw .update
-
-	frame .update.f -bg gray95
-	pack .update.f -fill both -expand yes
-
-	frame .update.f.top -bg gray95
-	pack .update.f.top -fill both -expand yes
-
-	label .update.f.top.i -image $icon -bg gray95 -relief flat -highlightthickness 0
-	pack .update.f.top.i -side left -fill both -expand yes
-
-	frame .update.f.top.r -bg gray95
-	pack .update.f.top.r -side right -fill both -expand yes
-
-	label .update.f.top.r.title -text "A new version of $appname is available!" -font {-weight bold} -bg gray95 -relief flat -highlightthickness 0
-	pack .update.f.top.r.title -fill both -expand yes -side top
-
-	label .update.f.top.r.msg -text "$appname $versionnumber is available--you have $currentversion. Would you like to download it now?" -font {-size 10} -bg gray95 -relief flat -highlightthickness 0
-	pack .update.f.top.r.msg -fill both -expand yes -side top
-
-	label .update.f.top.r.release -text "Release Notes:" -font {-size 10 -weight bold} -relief flat -highlightthickness 0 -bg gray95 
-	pack .update.f.top.r.release -side top -fill both -expand yes
-
-	text .update.f.top.r.text -font TkDefaultFont
-	pack .update.f.top.r.text -side top -fill both -expand yes
-
-	ttk::frame .update.f.top.r.bottom -padding 5
-	pack .update.f.top.r.bottom -side bottom -fill both -expand yes
-
-	ttk::button .update.f.top.r.bottom.skip -text "Skip This Version" -command {destroy .update}
-
-	ttk::button .update.f.top.r.bottom.install -text "Install Update" -default active -command softwareupdate::installUpdate
-	
-	pack .update.f.top.r.bottom.install .update.f.top.r.bottom.skip  -side right  -fill both -expand yes
-
-        .update.f.top.r.text insert end $changedata
-
-	.update.f.top.r.text configure -state disabled
-
-	wm resizable .update 0 0
-	wm deiconify .update
-	raise .update
-	wm transient .update .
-
-    }
-
-
-    #"busy" dialog
-    proc checkingForUpdates {} {
-
-	variable appname
-	variable icon
-
-	catch {destroy .updateprogress}
-
-	toplevel .updateprogress 
-	wm title .updateprogress "Updating $appname"
-
-	wm withdraw .updateprogress
-	update idletasks
-
-	ttk::frame .updateprogress.f -padding 5
-	pack .updateprogress.f -fill both -expand yes
-
-	label .updateprogress.f.l -bg gray95 -image $icon -bd 0 -relief flat -highlightthickness 0
-	pack .updateprogress.f.l -side left -fill both -expand yes
-
-	frame .updateprogress.f.r -bg gray95 -bd 0 -highlightcolor gray95
-	pack .updateprogress.f.r -side right -fill both -expand yes
-	
-	
-	ttk::label .updateprogress.f.r.t -text "Checking for updates..." -padding 5
-	pack .updateprogress.f.r.t -side top -fill both -expand yes
-
-	ttk::frame .updateprogress.f.r.f -padding 5
-	pack .updateprogress.f.r.f -side top -fill both -expand yes
-	
-	ttk::progressbar .updateprogress.f.r.f.progress -mode indeterminate -orient horizontal
-	pack .updateprogress.f.r.f.progress -fill both -expand yes -side top
-
-	.updateprogress.f.r.f.progress start
-
-	ttk::button .updateprogress.f.r.f.b -text "Cancel" -command {destroy .updateprogress}
-
-	pack .updateprogress.f.r.f.b -side bottom -fill both -expand no
-
-	wm geometry .updateprogress 400x100
-	wm resizable .updateprogress 0 0
-
-	wm deiconify .updateprogress
-	raise .updateprogress
-
-	wm transient .updateprogress .
-
+	"x11" {
+	    tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."
+	    return
+	}
     }
     
-    #dialog if current version is installed
-    proc upToDate {} {
-	variable appname
-	variable versionnumber
+    
+    set status "Ready to install"
+    .downloadprogress.frame.bar configure -mode determinate
+    .downloadprogress.frame.bar configure -value 100
+    .downloadprogress.frame.bar stop
+    destroy .downloadprogress.frame.b 
+    pack [ttk::button .downloadprogress.frame.b -text "Install and Relaunch" -command softwareupdate::launchUpdate] -side right -fill both -expand no
+    return
+}
+
+
+#launch the update
+proc launchUpdate {}  {
+
+    variable currentinstall
+    variable appname
+    variable tmpdir
+    
+    switch [tk windowingsystem] {
 
-	catch {destroy .updateprogress}
+	"aqua" {
+	    if {[catch {exec codesign -v $tmpdir/$appname.app} msg]} {
+		bgerror $msg
+		tk_messageBox -icon warning -message "Error!" -detail "An error occurred in the installation of $appname. Please try again later."
+		return
+	    } else {
 
-	tk_messageBox  -icon info -message "You're up to date!" -detail "$appname $versionnumber is the currently the newest version available."
-
-    }
+		file rename -force $currentinstall [file join /Users [exec whoami] .Trash [file tail $currentinstall]]
 
-    #show progress of installation
-    proc progressDialog {} {
-
-	variable appname
-	variable status
-
-	catch {destroy .downloadprogress}
+		file rename -force /tmp/$appname.app $currentinstall
 
-	toplevel .downloadprogress
-	wm title .downloadprogress "Updating $appname"
-
-	wm transient .downloadprogress .
-
-	label .downloadprogress.label -bitmap myicon   -anchor w -bg gray95 -highlightthickness 0
-
-	pack .downloadprogress.label -side left -fill both -expand yes
-
-
-	ttk::frame .downloadprogress.frame -padding 5
-	pack .downloadprogress.frame -side right -fill both -expand yes
-
-	ttk::label .downloadprogress.frame.l -textvariable softwareupdate::status -width 40 -text ""
-	pack .downloadprogress.frame.l -side top -fill both -expand yes
+		exec $currentinstall/Contents/MacOS/$appname &
 
-	ttk::progressbar .downloadprogress.frame.bar -mode indeterminate -orient horizontal  -maximum 100
-	pack .downloadprogress.frame.bar -side top -fill both -expand yes
-
-	.downloadprogress.frame.bar start
-	update
-
-	ttk::button .downloadprogress.frame.b -text "Cancel" -command {destroy .updateprogress}
-	pack .downloadprogress.frame.b -side right -fill both -expand no
-
-	wm geometry .downloadprogress 400x100
-        wm resizable .downloadprogress 0 0
-	
-    }
-
-    #download and install the update
-    proc installUpdate {} {
-	variable currentinstall
-	variable status
-	variable appname
-	variable tmpdir
-
-	catch {destroy .update}
-
-	softwareupdate::findCurrentInstallation
-
-	softwareupdate::progressDialog
-	set status "Downloading update for $appname"
-	
-	switch [tk windowingsystem] {
-
-	    "aqua" {
-		http::geturl http://www.codebykevin.com/updates/[list $appname].tgz -channel [open $tmpdir/[list $appname].tgz w] 
-		update
-		after 1000
-		cd $tmpdir
-		set status "Unpacking update for $appname"
-		update
-		after 1000
-		catch {exec tar xvfz [list $appname].tgz}
-	    }
-	    
-	    "win32" {
-		
-		http::geturl http://www.codebykevin.com/updates/[list $appname].exe -channel [open $tmpdir/[list $appname].exe w] 
-
-	    }
-	    
-	    "x11" {
-		tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."
-		return
+		exit
 	    }
 	}
 	
+	"win32" {
+	    
+	    file rename -force $currentinstall/[list $appname].exe $tmpdir/[list $appname].exe~
+	    file copy $tmpdir/[list $appname].exe $currentinstall/[list $appname.exe]
+	    exec $currentinstall/[list $appname].exe &
+	    exit
+	}
 	
-	set status "Ready to install"
-	.downloadprogress.frame.bar configure -mode determinate
-	.downloadprogress.frame.bar configure -value 100
-	.downloadprogress.frame.bar stop
-	destroy .downloadprogress.frame.b 
-	pack [ttk::button .downloadprogress.frame.b -text "Install and Relaunch" -command softwareupdate::launchUpdate] -side right -fill both -expand no
-	return
+	"x11" {
+	    tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."
+	    return
+	}
     }
 
+    catch {destroy .downloadprogress}
 
-    #launch the update
-    proc launchUpdate {}  {
+    
 
-	variable currentinstall
-	variable appname
-	variable tmpdir
-	
-	switch [tk windowingsystem] {
+}
 
-	    "aqua" {
-		if {[catch {exec codesign -v $tmpdir/$appname.app} msg]} {
-		    bgerror $msg
-		    tk_messageBox -icon warning -message "Error!" -detail "An error occurred in the installation of $appname. Please try again later."
-		    return
-		} else {
-
-		    file rename -force $currentinstall [file join /Users [exec whoami] .Trash [file tail $currentinstall]]
-
-		    file rename -force /tmp/$appname.app $currentinstall
-
-		    exec $currentinstall/Contents/MacOS/$appname &
-
-		    exit
-		}
-	    }
-	    
-	    "win32" {
-		
-		file rename -force $currentinstall/[list $appname].exe $tmpdir/[list $appname].exe~
-		file copy $tmpdir/[list $appname].exe $currentinstall/[list $appname.exe]
-		exec $currentinstall/[list $appname].exe &
-		exit
-	    }
-	    
-	    "x11" {
-		tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."
-		return
-	    }
-	}
-
-	catch {destroy .downloadprogress}
-
-	
-
-    }
-
-    namespace export *
+namespace export *
 
 }

Index: xplat/xplat.tcl
==================================================================
--- xplat/xplat.tcl
+++ xplat/xplat.tcl
@@ -13,11 +13,11 @@
 
 	    "x11" {
 		exec lpr [list $filename]
 	    }
 	    "win32" {
-		auto_execok start  /min notepad /p [list $filename]
+		eval exec [auto_execok start]  /min notepad /p [list $filename]
 	    }
 	    
 	    "aqua" {
 		package require cocoaprint
 		cocoaprint::cocoaprint [list $filename] .
@@ -32,11 +32,11 @@
 
 	    "x11" {
 		exec xdg-open [list $filename]
 	    }
 	    "win32" {
-		auto_execok start {} [list $filename]
+		eval exec [auto_execok start] [list $filename]
 	    }
 	    
 	    "aqua" {
 		exec open $filename
 	    }
@@ -67,12 +67,12 @@
 
 	    "x11" {
 		return [file join $::env(HOME) "." [string tolower  "$appname"]]
 	    }
 	    "win32" {
-		return [file join $::env(APPDATA) "CodebyKevin" "$appname"_config]
-	    } 
+		return [file join $::env(APPDATA) "$appname"]
+	    }
 	    
 	    "aqua" {
 		return [file join $::env(HOME) "Library" "Application Support" "$appname" "Preferences"]
 	    }   
 	}