diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-07-08 08:29:59 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-07-08 08:29:59 (GMT) |
| commit | 08934471fa9d6cba8b1bfca3d79b2e15addc9e68 (patch) | |
| tree | 258b909a8da7f8630be4b6a924d07658ff35f320 | |
| parent | 0ce5b652815d630544df0c8fcde3051bd49ee608 (diff) | |
| download | tk-08934471fa9d6cba8b1bfca3d79b2e15addc9e68.zip tk-08934471fa9d6cba8b1bfca3d79b2e15addc9e68.tar.gz tk-08934471fa9d6cba8b1bfca3d79b2e15addc9e68.tar.bz2 | |
use "in" operator in stead
| -rw-r--r-- | unix/Makefile.in | 2 | ||||
| -rw-r--r-- | win/Makefile.in | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/unix/Makefile.in b/unix/Makefile.in index 08192b9..7dc543d 100644 --- a/unix/Makefile.in +++ b/unix/Makefile.in @@ -727,7 +727,7 @@ install-binaries: $(TK_LIB_FILE) $(TK_STUB_LIB_FILE) ${WISH_EXE} echo "package ifneeded Tk $(MAJOR_VERSION).$(MINOR_VERSION)$(PATCH_LEVEL) [list load [file join \$$dir $${relative}$(TK_LIB_FILE)] Tk]";\ else \ echo "if {(\$$::tcl_platform(platform) eq \"unix\") && ([info exists ::env(DISPLAY)]";\ - echo " || ([info exists ::argv] && [lsearch -exact \$$::argv -display] > -1))} {";\ + echo " || ([info exists ::argv] && ("-display" in \$$::argv)))} {";\ echo " package ifneeded Tk $(MAJOR_VERSION).$(MINOR_VERSION)$(PATCH_LEVEL) [list load [file join \$$dir $${relative}.. bin $(TK_LIB_FILE)] Tk]";\ echo "} else {";\ echo " package ifneeded Tk $(MAJOR_VERSION).$(MINOR_VERSION)$(PATCH_LEVEL) [list load [file join \$$dir $${relative}.. bin tk${MAJOR_VERSION}${MINOR_VERSION}.dll] Tk]";\ diff --git a/win/Makefile.in b/win/Makefile.in index 1f92ebb..46fb4dd 100644 --- a/win/Makefile.in +++ b/win/Makefile.in @@ -479,7 +479,7 @@ install-binaries: binaries @(\ echo "if {[catch {package present Tcl 8.5.0}]} { return }";\ echo "if {(\$$::tcl_platform(platform) eq \"unix\") && ([info exists ::env(DISPLAY)]";\ - echo " || ([info exists ::argv] && [lsearch -exact \$$::argv -display] > -1))} {";\ + echo " || ([info exists ::argv] && ("-display" in \$$::argv)))} {";\ echo " package ifneeded Tk $(VERSION)$(PATCH_LEVEL) [list load [file join \$$dir .. .. bin libtk$(VERSION).dll] Tk]";\ echo "} else {";\ echo " package ifneeded Tk $(VERSION)$(PATCH_LEVEL) [list load [file join \$$dir .. .. bin $(TK_DLL_FILE)] Tk]";\ |