--- modules/debugger/src/startup.tcl.orig 2006-11-01 15:41:10.000000000 -0800
+++ modules/debugger/src/startup.tcl 2006-11-01 21:38:34.000000000 -0800
@@ -1,3 +1,7 @@
+#!/bin/sh
+# \
+exec wish "$0" ${1+"$@"}
+
# startup.tcl --
#
# This file is the primary entry point for the
@@ -11,11 +15,13 @@
# Initialize the debugger library
package require projectInfo
+
+set imageDir @imagedir@
# Specify the additional debugger parameters.
set parameters [list \
- aboutCmd {::TclProAboutBox images/about.gif images/logo.gif} \
+ aboutCmd "::TclProAboutBox $imageDir/images/about.gif $imageDir/images/logo.gif" \
aboutCopyright "$::projectInfo::copyright\nVersion $::projectInfo::patchLevel" \
appType local \
]
@@ -24,7 +30,7 @@
package require Winico
lappend parameters iconImage [winico load dbg scicons.dll]
} else {
- lappend parameters iconImage images/debugUnixIcon.gif
+ lappend parameters iconImage $imageDir/images/debugUnixIcon.gif
}
# ::TclProAboutBox --
@@ -73,23 +79,17 @@
set f2 [frame $f1.f2 -bg white -bd 0]
pack $f2 -padx 6 -pady 6 -side bottom -fill both -expand 1
- label $f2.logo -bd 0 -bg white -padx 0 -pady 0 -highlightthickness 0 \
- -image logo
- pack $f2.logo -side left -anchor nw -padx 0 -pady 0
-
-if {0} {
- # No room for this
set okBut [button $f2.ok -text "OK" -width 6 -default active \
-command {destroy .about}]
- pack $okBut -side right -anchor se -padx 0 -pady 0
-}
+ pack $okBut -side left -anchor nw -padx 0 -pady 0
label $f2.version -bd 0 -bg white -padx 10 -pady 0 -highlightthickness 0 \
- -text $::debugger::parameters(aboutCopyright) -justify left
+ -text $::debugger::parameters(aboutCopyright) -justify left \
+ -wraplength 400
pack $f2.version -side top -anchor nw
label $f2.url -bd 0 -bg white -padx 10 -pady 0 -highlightthickness 0 \
- -text "http://www.ajubasolutions.com" -fg blue \
+ -text "http://tclpro.sourceforge.net" -fg blue \
-cursor hand2
pack $f2.url -side top -anchor nw
