diff options
| -rw-r--r-- | gnu/packages/tcl.scm | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm index abd4ba5817..d025bff72d 100644 --- a/gnu/packages/tcl.scm +++ b/gnu/packages/tcl.scm @@ -20,6 +20,7 @@ #:use-module (guix packages) #:use-module (guix download) #:use-module (guix build-system gnu) + #:use-module (gnu packages xorg) #:use-module (guix licenses)) (define-public tcl @@ -115,3 +116,41 @@ stuff trivial. Expect is also useful for testing these same applications. And by adding Tk, you can wrap interactive applications in X11 GUIs.") (license public-domain))) ; as written in `license.terms' + +(define-public tk + (package + (name "tk") + (version "8.6.0") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/tcl/Tcl/" + version "/tk" version "-src.tar.gz")) + (sha256 + (base32 + "1rld0l7p1h31z488w44j170jpsm11xsjf2qrb7gid2b5dwmqnw2w")))) + (build-system gnu-build-system) + (arguments + '(#:phases (alist-cons-before + 'configure 'pre-configure + (lambda _ + (chdir "unix")) + %standard-phases) + + #:configure-flags (list (string-append "--with-tcl=" + (assoc-ref %build-inputs "tcl") + "/lib")) + + ;; The tests require a running X server, so we just skip them. + #:tests? #f)) + (inputs `(("tcl" ,tcl))) + + ;; tk.h refers to X11 headers, hence the propagation. + (propagated-inputs `(("libx11" ,libx11) + ("libxext" ,libxext))) + + (home-page "http://www.tcl.tk/") + (synopsis "Graphical user interface toolkit for Tcl") + (description + "Tk is a graphical toolkit for building graphical user interfaces +(GUIs) in the Tcl language.") + (license (package-license tcl)))) |