[sawfish] nicer buttons in list and alist widgets
- From: Christopher Bratusek <chrisb src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [sawfish] nicer buttons in list and alist widgets
- Date: Sun, 19 Sep 2010 16:06:26 +0000 (UTC)
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]