[sawfish] nicer buttons in list and alist widgets



commit 492fbcbb6d60782d890daa889b759b95d1ce4d23
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sun Sep 19 18:05:49 2010 +0200

    nicer buttons in list and alist widgets

 ChangeLog                        |    3 +++
 lisp/sawfish/gtk/widgets/list.jl |    6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 2dbbbf5..cdc6968 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -21,6 +21,9 @@
 	of `remove-newlines' and `beautify-symbol-name' functions. Modules now
 	use sawfish.cfg.utils instead.
 
+	* lisp/sawfish/gtk/widgets/list.jl: use the nicer gtk-stock-buttons rather
+	than plain ones
+
 2010-09-18  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/gtk/widgets/simple-dialog.jl: renamed sawfish.gtk.stock
 	to sawfish.gtk.widgets.simple-dialog as the functions `about-dialog'
diff --git a/lisp/sawfish/gtk/widgets/list.jl b/lisp/sawfish/gtk/widgets/list.jl
index aec007e..1a781e0 100644
--- a/lisp/sawfish/gtk/widgets/list.jl
+++ b/lisp/sawfish/gtk/widgets/list.jl
@@ -49,9 +49,9 @@
 						  title))
 		   (gtk-clist-new 1)))
 	  (scroller (gtk-scrolled-window-new))
-	  (add (gtk-button-new-with-label (_ "Add...")))
-	  (delete (gtk-button-new-with-label (_ "Delete")))
-	  (edit (gtk-button-new-with-label (_ "Edit...")))
+	  (add (gtk-button-new-from-stock "gtk-add"))
+	  (delete (gtk-button-new-from-stock "gtk-delete"))
+	  (edit (gtk-button-new-from-stock "gtk-edit"))
 	  (outer-box (gtk-hbox-new nil box-spacing))
 	  (button-box (gtk-vbox-new nil box-spacing))
 	  (other-box (gtk-vbox-new nil box-spacing))



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]