← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/ui/widgets/icon.jl

  • 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/ui/widgets/icon.jl
1
1
#| nokogiri-widgets/icon.jl -- GNOME icon entry widget
2
2
 
3
 
   $Id: icon.jl,v 1.5 2000/09/08 15:13:59 john Exp $
 
3
   $Id: icon.jl,v 1.6 2003/01/12 20:30:49 jsh Exp $
4
4
 
5
5
   Originally written by Bruce Miller <docmad@md.prestige.net>
6
6
 
26
26
(define-structure sawfish.ui.widgets.icon ()
27
27
 
28
28
    (open rep
29
 
          gui.gtk
30
 
          gui.gnome.ui
 
29
          gui.gtk-2.gtk
 
30
          gui.gtk-2.gnome-ui
31
31
          rep.io.files
32
32
          sawfish.gtk.widget)
33
33
 
34
34
  (define (make-icon-item changed-callback)
35
35
    (let* ((widget (gnome-icon-entry-new "IconEntry" (_ "Select Icon"))))
36
36
      (when changed-callback
37
 
        (gtk-signal-connect (gnome-icon-entry-gtk-entry widget) "changed"
 
37
        (g-signal-connect (gnome-icon-entry-gtk-entry widget) "changed"
38
38
                            (make-signal-callback changed-callback)))
39
39
      (gtk-widget-show widget)
40
40
      (lambda (op)