← 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/pair.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/pair.jl
1
1
#| nokogiri-widgets/pair.jl -- cons-cell widget
2
2
 
3
 
   $Id: pair.jl,v 1.5 2000/09/01 20:00:04 john Exp $
 
3
   $Id: pair.jl,v 1.6 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.pair ()
25
25
 
26
26
    (open rep
27
 
          gui.gtk
 
27
          gui.gtk-2.gtk
28
28
          sawfish.gtk.widget)
29
29
 
30
30
  ;; (pair CAR-SPEC CDR-SPEC)
31
31
 
 
32
  (define (box-packer arg)
 
33
    (case arg
 
34
      ((start) gtk-box-pack-start)
 
35
      ((end) gtk-box-pack-end)
 
36
      (t gtk-container-add)))
 
37
 
32
38
  (define (make-pair-item changed-callback left right
33
 
                          #!optional use-vbox reversed)
 
39
                          #!optional use-vbox reversed packing)
34
40
    (let ((hbox ((if use-vbox gtk-vbox-new gtk-hbox-new) nil box-spacing))
35
41
          (left-widget (make-widget left changed-callback))
36
42
          (right-widget (make-widget right changed-callback)))
37
43
 
38
 
      (unless reversed
39
 
        (gtk-container-add hbox (widget-gtk-widget left-widget)))
40
 
      (gtk-container-add hbox (widget-gtk-widget right-widget))
41
 
      (when reversed
42
 
        (gtk-container-add hbox (widget-gtk-widget left-widget)))
 
44
      (let ((w1 (if (not reversed) left-widget right-widget))
 
45
            (w2 (if (not reversed) right-widget left-widget)))
 
46
 
 
47
        ((box-packer (car packing)) hbox (widget-gtk-widget w1))
 
48
        ((box-packer (cdr packing)) hbox (widget-gtk-widget w2)))
 
49
 
43
50
      (gtk-widget-show hbox)
44
51
 
45
52
      (lambda (op)