← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/gtk/color-preview.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/color-preview.jl
1
1
#| nokogiri-color-preview.jl -- color previews
2
2
 
3
 
   $Id: color-preview.jl,v 1.3 2000/09/01 20:00:04 john Exp $
 
3
   $Id: color-preview.jl,v 1.4 2003/01/12 20:30:43 jsh Exp $
4
4
 
5
5
   Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
6
6
 
27
27
            set-button-color)
28
28
 
29
29
    (open rep
30
 
          gui.gtk)
 
30
          gui.gtk-2.gtk)
31
31
 
32
32
  (defconst color-preview-width 28)
33
33
  (defconst color-preview-height 16)
63
63
                (when (gtk-preview-p w)
64
64
                  (set-preview-color w color)
65
65
                  (gtk-widget-draw-interp w)))
66
 
              (gtk-container-children button))))))
 
66
              (gtk-container-get-children button))))))