From 12d80f341f685a4fbe278e125922ff70a298580d Mon Sep 17 00:00:00 2001 From: gahr Date: Wed, 15 May 2013 09:44:44 +0000 Subject: - Fix build with Tcl/Tk 8.6 Reported by: miwi (Tcl/Tk 86 exp-run) Approved by: portmgr --- x11-toolkits/tkshape/Makefile | 4 +- x11-toolkits/tkshape/files/patch-test-syntax.text | 139 ++++++++++++++++++++++ x11-toolkits/tkshape/files/patch-unix-Makefile.in | 11 ++ 3 files changed, 152 insertions(+), 2 deletions(-) create mode 100644 x11-toolkits/tkshape/files/patch-test-syntax.text create mode 100644 x11-toolkits/tkshape/files/patch-unix-Makefile.in diff --git a/x11-toolkits/tkshape/Makefile b/x11-toolkits/tkshape/Makefile index 3a0a3b39ccb9..520514bee107 100644 --- a/x11-toolkits/tkshape/Makefile +++ b/x11-toolkits/tkshape/Makefile @@ -35,8 +35,8 @@ WRKSRC= ${WRKDIR}/${PORTNAME:C/^tk//1}${PORTVERSION} USE_GMAKE= yes GNU_CONFIGURE= yes -CONFIGURE_ARGS= --with-tclconf=${LOCALBASE}/lib/tcl${TCL_VER} \ - --with-tkconf=${LOCALBASE}/lib/tk${TK_VER} +CONFIGURE_ARGS= --with-tclconf=${TCL_LIBDIR} \ + --with-tkconf=${TK_LIBDIR} CONFIGURE_WRKSRC= ${WRKSRC}/unix BUILD_WRKSRC= ${CONFIGURE_WRKSRC} diff --git a/x11-toolkits/tkshape/files/patch-test-syntax.text b/x11-toolkits/tkshape/files/patch-test-syntax.text new file mode 100644 index 000000000000..d16fdf28e4bf --- /dev/null +++ b/x11-toolkits/tkshape/files/patch-test-syntax.text @@ -0,0 +1,139 @@ +--- tests/syntax.test.orig 2013-05-13 17:26:43.000000000 +0200 ++++ tests/syntax.test 2013-05-13 17:26:27.000000000 +0200 +@@ -15,20 +15,20 @@ + namespace import ::tcltest::* + } + +-package require shape ++package require Shape + + # top-level error messages + test syntax-1.1 {Shape needs subcommand} { + list [catch { + shape + } msg] $msg +-} {1 "wrong # args: should be \"shape subcommand ?window arg ...?\""} ++} {1 {wrong # args: should be "shape subcommand ?window arg ...?"}} + test syntax-1.2 {Shape subcommand list} { + list [catch { + shape Dummy + } msg] $msg +-} {1 "bad subcommand \"Dummy\": must be\ +- bounds, get, offset, set, update, or version"} ++} {1 {bad subcommand "Dummy": must be\ ++ bounds, get, offset, set, update, or version}} + test syntax-1.3 {Variables were created} { + list [info exist shape_version] [info exist shape_patchLevel] + } {1 1} +@@ -38,7 +38,7 @@ + list [catch { + shape version Dummy + } msg] $msg +-} {1 " wrong # args: should be \"shape version\""} ++} {1 {wrong # args: should be "shape version"}} + test syntax-2.2 {Shape version: result format} { + string is double -strict [shape version] + } {1} +@@ -48,84 +48,84 @@ + list [catch { + shape set + } msg] $msg +-} {1 "wrong # args: should be \"shape set pathName ?options?\""} ++} {1 {wrong # args: should be "shape set pathName ?options?"}} + test syntax-3.2 {Shape set: needs window pathname} { + list [catch { + shape set not-a-window + } msg] $msg +-} {1 "bad window path name \"not-a-window\""} ++} {1 {bad window path name "not-a-window"}} + + # get subcommand + test syntax-4.1 {Shape get: command format} { + list [catch { + shape get + } msg] $msg +-} {1 "wrong # args: should be \"shape get pathName ?-bounding/-clip?\""} ++} {1 {wrong # args: should be "shape get pathName ?-bounding/-clip?"}} + test syntax-4.2 {Shape get: command format} { + list [catch { + shape get ? ? ? + } msg] $msg +-} {1 "wrong # args: should be \"shape get pathName ?-bounding/-clip?\""} ++} {1 {wrong # args: should be "shape get pathName ?-bounding/-clip?"}} + test syntax-4.3 {Shape get: needs window pathname} { + list [catch { + shape get not-a-window + } msg] $msg +-} {1 "bad window path name \"not-a-window\""} ++} {1 {bad window path name "not-a-window"}} + + # update subcommand + test syntax-5.1 {Shape update: command format} { + list [catch { + shape update + } msg] $msg +-} {1 "wrong # args: should be \"shape update pathName operation ?options?\""} ++} {1 {wrong # args: should be "shape update pathName operation ?options?"}} + + # offset subcommand + test syntax-6.1 {Shape offset: command format} { + list [catch { + shape offset + } msg] $msg +-} {1 "wrong # args: should be\ +- \"shape offset pathName ?-bounding/-clip/-both? x y\""} ++} {1 {wrong # args: should be\ ++ "shape offset pathName ?-bounding/-clip/-both? x y"}} + test syntax-6.2 {Shape offset: command format} { + list [catch { + shape offset ? + } msg] $msg +-} {1 "wrong # args: should be\ +- \"shape offset pathName ?-bounding/-clip/-both? x y\""} ++} {1 {wrong # args: should be\ ++ "shape offset pathName ?-bounding/-clip/-both? x y"}} + test syntax-6.3 {Shape offset: command format} { + list [catch { + shape offset ? ? + } msg] $msg +-} {1 "wrong # args: should be\ +- \"shape offset pathName ?-bounding/-clip/-both? x y\""} ++} {1 {wrong # args: should be\ ++ "shape offset pathName ?-bounding/-clip/-both? x y"}} + test syntax-6.4 {Shape offset: command format} { + list [catch { + shape offset ? ? ? ? ? + } msg] $msg +-} {1 "wrong # args: should be\ +- \"shape offset pathName ?-bounding/-clip/-both? x y\""} ++} {1 {wrong # args: should be\ ++ "shape offset pathName ?-bounding/-clip/-both? x y"}} + test syntax-6.5 {Shape offset: needs window pathname} { + list [catch { + shape offset not-a-window 0 0 + } msg] $msg +-} {1 "bad window path name \"not-a-window\""} ++} {1 {bad window path name "not-a-window"}} + + # bounds subcommand + test syntax-7.1 {Shape bounds: command format} { + list [catch { + shape bounds + } msg] $msg +-} {1 "wrong # args: should be \"shape bounds pathName ?-bounding/-clip?\""} ++} {1 {wrong # args: should be "shape bounds pathName ?-bounding/-clip?"}} + test syntax-7.2 {Shape bounds: command format} { + list [catch { + shape bounds ? ? ? + } msg] $msg +-} {1 "wrong # args: should be \"shape bounds pathName ?-bounding/-clip?\""} ++} {1 {wrong # args: should be "shape bounds pathName ?-bounding/-clip?"}} + test syntax-7.3 {Shape bounds: needs window pathname} { + list [catch { + shape bounds not-a-window + } msg] $msg +-} {1 "bad window path name \"not-a-window\""} ++} {1 {bad window path name "not-a-window"}} + + # cleanup + ::tcltest::cleanupTests diff --git a/x11-toolkits/tkshape/files/patch-unix-Makefile.in b/x11-toolkits/tkshape/files/patch-unix-Makefile.in new file mode 100644 index 000000000000..1e78851bde6e --- /dev/null +++ b/x11-toolkits/tkshape/files/patch-unix-Makefile.in @@ -0,0 +1,11 @@ +--- unix/Makefile.in.orig 2000-09-11 17:10:01.000000000 +0200 ++++ unix/Makefile.in 2013-05-13 17:20:31.000000000 +0200 +@@ -71,7 +71,7 @@ + $(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/shapeUnixText.c + # ---------------------------------------------------------------------- + $(SOFILE): $(OBJS) +- ${SHLIB_LD} -o $@ $^ @SHLIB_LD_LIBS@ ++ ${SHLIB_LD} -o $@ $^ @SHLIB_LD_LIBS@ ${TK_LIB_SPEC} ${TCL_LIB_SPEC} ${TK_LIBS} + $(EXEFILE): $(OBJS) tkAppInit.o + $(CC) -o $@ $^ @SHLIB_LD_LIBS@ ${TK_LIB_SPEC} ${TCL_LIB_SPEC} ${TK_LIBS} + # ---------------------------------------------------------------------- -- cgit