Package: cl-mcclim / 0.9.6.dfsg.cvs20100315-2

omit-nonfree.patch Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
--- cl-mcclim-0.9.6.dfsg.cvs20100315.orig/clim-examples.asd
+++ cl-mcclim-0.9.6.dfsg.cvs20100315/clim-examples.asd
@@ -6,6 +6,8 @@
 (in-package :clim-examples.system)
 
 ;;; CLIM-Examples depends on having at least one backend loaded.
+;;; 2007-09-10 Milan Zamazal <pdm@debian.org>: Non-free example files not
+;;;   present in the Debian package commented out.
 (defsystem :clim-examples
     :depends-on (:mcclim)
     :components
@@ -14,18 +16,19 @@
               ((:file "calculator")
                (:file "colorslider")
 	       (:file "menutest") ; extra
-               (:file "address-book")
+               ;(:file "address-book")
                (:file "traffic-lights")
                (:file "clim-fig")
                (:file "postscript-test")
-               (:file "puzzle")
+               ;(:file "puzzle")
                (:file "transformations-test")
-	       (:file "demodemo" :depends-on ("tabdemo"))
+	       ;(:file "demodemo" :depends-on ("tabdemo"))
+               (:file "demodemo")
                (:file "stream-test")
                (:file "presentation-test")
                (:file "dragndrop")
 	       (:file "gadget-test")
-               (:file "accepting-values")
+               ;(:file "accepting-values")
                (:file "method-browser")
 	       (:file "stopwatch")
 	       (:file "dragndrop-translator")
@@ -35,7 +38,7 @@
                (:file "logic-cube")
                (:file "views")
                (:file "font-selector")
-               (:file "tabdemo")
+               ;(:file "tabdemo")
                (:file "bordered-output-examples")
                (:file "misc-tests")
                (:file "image-viewer")))
--- cl-mcclim-0.9.6.dfsg.cvs20100315.orig/Examples/demodemo.lisp
+++ cl-mcclim-0.9.6.dfsg.cvs20100315/Examples/demodemo.lisp
@@ -41,6 +41,8 @@
                         #+nil
                         (destroy-frame frame)))))))
 
+;;; 2007-09-10 Milan Zamazal <pdm@debian.org>: Exclude demos not present in the
+;;;   Debian package.
 (define-application-frame demodemo 
     () ()
     (:menu-bar nil)
@@ -59,8 +61,8 @@
                    (make-demo-button "CLIM-Fig"  'clim-fig)
                    (make-demo-button "Calculator"  'calculator)
                    (make-demo-button "Method Browser" 'method-browser)
-                   (make-demo-button "Address Book"  'address-book)
-                   (make-demo-button "Puzzle"  'puzzle)
+                   #+nil(make-demo-button "Address Book"  'address-book)
+                   #+nil(make-demo-button "Puzzle"  'puzzle)
                    (make-demo-button "Logic Cube" 'logic-cube)
                    (make-demo-button "Gadget Test"  'gadget-test)
                    (make-demo-button "Drag and Drop" 'dragndrop)
@@ -75,7 +77,7 @@
 				(declare (ignore ignore))
 				(format *trace-output* "~&You chose: ~A~%"
 					(select-font))))
-                   (make-demo-button "Tab Layout" 'tabdemo:tabdemo)))
+                   #+nil(make-demo-button "Tab Layout" 'tabdemo:tabdemo)))
                (labelling (:label "Tests")
                  (vertically (:equalize-width t)
                    (make-demo-button "Label Test" 'label-test)