Return to patch-scripts_license_tcl CVS log

Up to [local] / ports / cad / tkgate / patches

Annotation of ports/cad/tkgate/patches/patch-scripts_license_tcl, Revision 1.1.1.1

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:    }