From c1c0746bb5a3ec12322a466d88cc299bf5fe7697 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Mon, 25 Apr 2005 18:20:00 +0000 Subject: [PATCH] New function CLG-VERSION Organization: Straylight/Edgeware From: espen --- gtk/gtk.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp index e8e8b4b..2ee84f0 100644 --- a/gtk/gtk.lisp +++ b/gtk/gtk.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtk.lisp,v 1.43 2005-04-24 13:30:40 espen Exp $ +;; $Id: gtk.lisp,v 1.44 2005-04-25 18:20:00 espen Exp $ (in-package "GTK") @@ -44,7 +44,8 @@ (defun gtk-version () (format nil "Gtk+ v~A.~A" major minor) (format nil "Gtk+ v~A.~A.~A" major minor micro)))) -(defbinding get-default-language () (copy-of pango:language)) +(defun clg-version () + "clg CVS version") ;;;; Initalization @@ -78,6 +79,8 @@ (defbinding grab-get-current () widget) (defbinding grab-remove () nil (widget widget)) +(defbinding get-default-language () (copy-of pango:language)) + ;;; About dialog @@ -2236,7 +2239,7 @@ (defbinding tooltips-get-info-from-tip-window () boolean (current-widget widget :out)) -;;; Rc +;;; Resource Files (defbinding rc-add-default-file (filename) nil ((namestring (truename filename)) string)) -- [mdw]