[bug#27928] [PATCH] gnu: Add tklib.

[Danny Milosavljevic]

* gnu/packages/tcl.scm (tklib): New variable.
---
 gnu/packages/tcl.scm | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index de888891c..67e04f7dd 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -247,6 +247,51 @@ interfaces (GUIs) in the Tcl language.")
 utility functions and modules all written in high-level Tcl.")
     (license (package-license tcl))))
 
+(define-public tklib
+  (package
+    (name "tklib")
+    (version "0.6")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://core.tcl.tk/tklib/tarball/tklib-";
+                                  version ".tar.gz?uuid=tklib-0-6"))
+              (sha256
+               (base32
+                "03y0bzgwbh7nnyqkh8n00bbkq2fyblq39s3bdb6mawna0bbn0wwg"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("tcl" ,tcl)))
+    (propagated-inputs
+     `(("tcllib" ,tcllib)
+       ("tk" ,tk))) ; for "wish"
+    (native-search-paths
+     (list (search-path-specification
+            (variable "TCLLIBPATH")
+            (separator " ")
+            (files (list (string-append "lib/tklib" version))))))
+    (home-page "https://www.tcl.tk/software/tklib/";)
+    (synopsis "Tk utility modules for Tcl")
+    (description "Tklib is a collection of common utility functions and
+modules for Tk, all written in high-level Tcl.  Examples of provided widgets:
address@hidden
address@hidden @code{chatwidget}
address@hidden @code{datefield}
address@hidden @code{tooltip
address@hidden @code{cursor}
address@hidden @code{ipentry}
address@hidden @code{tablelist}
address@hidden @code{history}
address@hidden @code{tkpiechart}
address@hidden @code{ico}
address@hidden @code{crosshair}
address@hidden @code{ntext}
address@hidden @code{plotchart}
address@hidden @code{ctext}
address@hidden @code{autosscroll}
address@hidden @code{canvas}
+#end enumerate")
+    (license (package-license tcl))))
+
 (define-public tclxml
   (package
     (name "tclxml")