← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/gtk/widgets/file.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/gtk/widgets/file.jl
1
1
#| nokogiri-widgets/file.jl -- file name widget
2
2
 
3
 
   $Id: file.jl,v 1.2 2000/09/01 20:00:04 john Exp $
 
3
   $Id: file.jl,v 1.3 2003/01/12 20:30:45 jsh Exp $
4
4
 
5
5
   Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
6
6
 
24
24
(define-structure sawfish.gtk.widgets.file ()
25
25
 
26
26
    (open rep
27
 
          gui.gtk
 
27
          gui.gtk-2.gtk
28
28
          sawfish.gtk.widget)
29
29
 
30
30
  (define (make-file-item changed-callback)
31
31
    (let* ((box (gtk-hbox-new nil box-spacing))
32
32
           (entry (gtk-entry-new))
33
33
           (button (gtk-button-new-with-label (_ "Browse..."))))
34
 
      (gtk-container-border-width box box-border)
 
34
      (gtk-container-set-border-width box box-border)
35
35
      (gtk-box-pack-start box entry)
36
36
      (gtk-box-pack-start box button)
37
37
      (when changed-callback
38
 
        (gtk-signal-connect
 
38
        (g-signal-connect
39
39
         entry "changed" (make-signal-callback changed-callback)))
40
 
      (gtk-signal-connect
 
40
      (g-signal-connect
41
41
       button "clicked"
42
42
       (lambda ()
43
43
         (let ((filesel (gtk-file-selection-new (_ "Select file"))))
44
44
           (gtk-file-selection-set-filename filesel (gtk-entry-get-text entry))
45
 
           (gtk-signal-connect
 
45
           (g-signal-connect
46
46
            (gtk-file-selection-ok-button filesel) "clicked"
47
47
            (lambda ()
48
48
              (gtk-entry-set-text
49
49
               entry (gtk-file-selection-get-filename filesel))
50
50
              (gtk-widget-destroy filesel)))
51
 
           (gtk-signal-connect
 
51
           (g-signal-connect
52
52
            (gtk-file-selection-cancel-button filesel) "clicked"
53
53
            (lambda () (gtk-widget-destroy filesel)))
54
 
           (gtk-signal-connect filesel "delete_event"
 
54
           (g-signal-connect filesel "delete_event"
55
55
                               (lambda () (gtk-widget-destroy filesel)))
56
56
           (gtk-widget-show filesel)
57
57
           (gtk-grab-add filesel))))