← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/ui/layout.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/layout.jl
1
1
#| nokogiri-layout.jl -- arranging groups of slots
2
2
 
3
 
   $Id: layout.jl,v 1.8 2000/11/27 18:13:50 jsh Exp $
 
3
   $Id: layout.jl,v 1.9 2003/01/12 20:30:47 jsh Exp $
4
4
 
5
5
   Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
6
6
 
30
30
            make-label)
31
31
 
32
32
    ((open rep
33
 
           gui.gtk
 
33
           gui.gtk-2.gtk
34
34
           rep.regexp
35
35
           sawfish.ui.slot
36
36
           sawfish.gtk.widget)
55
55
;;; basic layout styles
56
56
 
57
57
  (define (layout-single style slots)
 
58
    (declare (unused style))
58
59
    (cond ((null slots)
59
60
           (let ((placeholder (gtk-vbox-new nil 0)))
60
61
             (gtk-widget-show placeholder)
86
87
  (define (layout-frame style slots)
87
88
    (let ((frame (gtk-frame-new (cadr style)))
88
89
          (vbox (layout-slots 'vbox slots)))
89
 
      (gtk-container-border-width frame box-border)
 
90
      (gtk-container-set-border-width frame box-border)
90
91
      (gtk-container-add frame vbox)
91
92
      (gtk-widget-show frame)
92
93
      frame))