← Back to branch summary

~ubuntu-branches/ubuntu/lucid/sawfish/lucid-updates

« back to all changes in this revision

Viewing changes to lisp/sawfish/gtk/stock.jl.gnome

  • Committer: Bazaar Package Importer
  • Author(s): Christian Marillat
  • Date: 2005-02-23 16:16:46 UTC
  • mfrom: (1.2.1 upstream) (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050223161646-4id6qyw4h9lkvb0v
Tags: 1:1.3+cvs20050222-1
http://bugs.debian.org/295290
* New cvs release.
* Add an emacs initialisation script to load sawfish.el (Closes: #295290)
* Updated sawfish.el to 1.32

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/sawfish/gtk/stock.jl.gnome
1
1
#| nokogiri-gnome.jl -- some code to use GNOME widgets -*- lisp -*-
2
2
 
3
 
   $Id: stock.jl.gnome,v 1.7 2000/09/02 10:24:43 john Exp $
 
3
   $Id: stock.jl.gnome,v 1.8 2003/01/12 20:30:43 jsh Exp $
4
4
 
5
5
   Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
6
6
 
29
29
            make-url-widget)
30
30
 
31
31
    (open rep
32
 
          gui.gtk
33
 
          gui.gnome.ui)
 
32
          gui.gtk-2.gtk
 
33
          gui.gtk-2.gnome-ui)
34
34
 
 
35
  ;; same as in gtk now
35
36
  (define (stock-button type)
36
 
    (case type
37
 
      ((ok cancel yes no close apply help)
38
 
       (gnome-stock-button type))
39
 
      ((revert)
40
 
       (gtk-button-new-with-label (_ "Revert")))))
 
37
    (gtk-button-new-from-stock
 
38
     (case type
 
39
       ((ok) "gtk-ok")
 
40
       ((cancel) "gtk-cancel")
 
41
       ((revert) "gtk-revert-to-saved")
 
42
       ((apply) "gtk-apply")
 
43
       ((yes) "gtk-yes")
 
44
       ((no) "gtk-no")
 
45
       ((close) "gtk-close")
 
46
       ((help) "gtk-help"))))
41
47
 
42
48
  (define (simple-dialog title widget #!optional ok-callback main-window)
43
49
 
50
56
        (gnome-dialog-set-parent window main-window))
51
57
      (gtk-container-add (gnome-dialog-vbox window) widget)
52
58
 
53
 
      (gtk-signal-connect window "clicked"
54
 
                          (lambda (w button)
55
 
                            (if (and (= button 0) ok-callback)
56
 
                                (ok-callback))
57
 
                            (gtk-widget-destroy w)))
58
 
      (gtk-signal-connect window "delete_event" gtk-widget-destroy)
 
59
      (g-signal-connect window "clicked"
 
60
                        (lambda (w button)
 
61
                          (if (and (= button 0) ok-callback)
 
62
                              (ok-callback))
 
63
                          (gtk-widget-destroy w)))
 
64
      (g-signal-connect window "delete_event" gtk-widget-destroy)
59
65
 
60
66
      (gtk-widget-show window)
61
67
      (gtk-window-set-modal window t)