![]() ![]() | ![]() |
1.1 ! yason 1: $OpenBSD$ ! 2: --- scripts/license.tcl.orig Fri Jan 4 23:17:27 2008 ! 3: +++ scripts/license.tcl Fri Jan 4 23:17:43 2008 ! 4: @@ -44,7 +44,7 @@ proc showDocFile {label file L} { ! 5: } ! 6: ! 7: if { $file != "" } { ! 8: - set f [open $tkg_gateHome/doc/$file] ! 9: + set f [open $tkg_gateHome/$file] ! 10: $w.text insert end [read $f] ! 11: close $f ! 12: }