← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lisp/sawfish/ui/slot.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/slot.jl
1
1
#| nokogiri-slot.jl -- managing individual config items
2
2
 
3
 
   $Id: slot.jl,v 1.7 2000/11/17 03:35:40 jsh Exp $
 
3
   $Id: slot.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
 
26
26
    (export slot-name
27
27
            slot-widget
28
28
            slot-old-value
29
 
            slot-user-level
30
29
            slot-gtk-widget
31
30
            slot-doc slot-flags
32
31
            slot-layout set-slot-layout
38
37
            custom-symbol-value)
39
38
 
40
39
    (open rep
41
 
          gui.gtk
 
40
          gui.gtk-2.gtk
42
41
          rep.system
43
42
          rep.data.tables
44
43
          rep.data.records
46
45
          sawfish.ui.wm)
47
46
 
48
47
  (define-record-type :slot
49
 
    (create-slot name user-level old-value flags)
 
48
    (create-slot name old-value flags)
50
49
    ;; [no predicate]
51
50
    (name slot-name)                    ;name of config item
52
 
    (user-level slot-user-level)        ;user-level of slot, a symbol
53
51
    (widget slot-widget slot-widget-set) ;associated lisp widget
54
52
    (layout slot-layout set-slot-layout) ;gtk widget if the slot is displayed
55
53
    (old-value slot-old-value)          ;original value of slot's config
67
65
 
68
66
  (defvar *nokogiri-slot-changed-hook* '())
69
67
 
70
 
  (define default-user-level 'intermediate)     ;XXX should be a constant
71
 
 
72
68
 
73
69
;;; slot creation, data structure mgmt
74
70
 
85
81
 
86
82
  (define (update-all-dependences)
87
83
    (table-walk (lambda (dep slots)
 
84
                  (declare (unused slots))
88
85
                  (update-dependences (get-slot dep))) dependence-table))
89
86
 
90
87
  ;; called when the value of SLOT changes
94
91
 
95
92
  (define (slot-gtk-widget slot) (widget-gtk-widget (slot-widget slot)))
96
93
 
97
 
  (define (make-slot #!key name value type doc depends widget-flags
98
 
                     (user-level default-user-level))
99
 
    (let ((slot (create-slot name user-level value widget-flags)))
 
94
  (define (make-slot #!key name value type doc depends widget-flags)
 
95
    (let ((slot (create-slot name value widget-flags)))
100
96
      (table-set slot-table (slot-name slot) slot)
101
97
 
102
98
      ;; install dependendences