Catching up with the current mcclim.
Wed Apr 23 04:46:52 PDT 2008 Thomas Persson <tompa.persson@gmail.com>
* Catching up with the current mcclim.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-climplayer/directory-browser.lisp new-climplayer/directory-browser.lisp
--- old-climplayer/directory-browser.lisp 2014-07-11 19:19:31.000000000 -0700
+++ new-climplayer/directory-browser.lisp 2014-07-11 19:19:31.000000000 -0700
@@ -57,11 +57,11 @@
(with-output-as-presentation (stream path 'pathname)
(multiple-value-bind (x y)
(stream-cursor-position stream)
- (mcclim-images::draw-pattern* stream (mcclim-images::image-design pattern)
- x
- (- y 2))
+ (draw-pattern* stream pattern
+ x
+ (- y 2))
(stream-increment-cursor-position stream
- (+ (mcclim-images:image-width pattern)
+ (+ (pattern-width pattern)
2)
0))
(write-line name stream))))
diff -rN -u old-climplayer/gui.lisp new-climplayer/gui.lisp
--- old-climplayer/gui.lisp 2014-07-11 19:19:31.000000000 -0700
+++ new-climplayer/gui.lisp 2014-07-11 19:19:31.000000000 -0700
@@ -448,14 +448,13 @@
(clim-listener::icon-of (typecase node
(net-node (node-string-name node))
(file (node-path-name node)))))))
-;; (mcclim-images:draw-image stream pattern)
(multiple-value-bind (x y)
(stream-cursor-position stream)
- (mcclim-images::draw-pattern* stream (mcclim-images::image-design pattern)
- x
- (- y 2))
+ (draw-pattern* stream pattern
+ x
+ (- y 2))
(stream-increment-cursor-position stream
- (+ (mcclim-images:image-width pattern)
+ (+ (pattern-width pattern)
2)
0))))