chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6582d0b
)
Bug fix in DRAW-LAYOUT
author
espen
<espen>
Thu, 18 Oct 2007 10:55:34 +0000
(10:55 +0000)
committer
espen
<espen>
Thu, 18 Oct 2007 10:55:34 +0000
(10:55 +0000)
gdk/gdk.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gdk/gdk.lisp
b/gdk/gdk.lisp
index b9af37375e0baac24de4a11f90da6e45ffd7c5f5..4012b618f0ac62c7f0f4a65cbed9280c05c6dcd0 100644
(file)
--- a/
gdk/gdk.lisp
+++ b/
gdk/gdk.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gdk.lisp,v 1.4
5 2007/10/17 18:04:47
espen Exp $
+;; $Id: gdk.lisp,v 1.4
6 2007/10/18 10:55:34
espen Exp $
(in-package "GDK")
(in-package "GDK")
@@
-999,22
+999,20
@@
(defbinding draw-arc () nil
(defbinding %draw-layout () nil
(drawable drawable) (gc gc)
(defbinding %draw-layout () nil
(drawable drawable) (gc gc)
- (font pango:font)
(x int) (y int)
(layout pango:layout))
(defbinding %draw-layout-with-colors () nil
(drawable drawable) (gc gc)
(x int) (y int)
(layout pango:layout))
(defbinding %draw-layout-with-colors () nil
(drawable drawable) (gc gc)
- (font pango:font)
(x int) (y int)
(layout pango:layout)
(foreground (or null color))
(background (or null color)))
(x int) (y int)
(layout pango:layout)
(foreground (or null color))
(background (or null color)))
-(defun draw-layout (drawable gc
font
x y layout &optional foreground background)
+(defun draw-layout (drawable gc x y layout &optional foreground background)
(if (or foreground background)
(if (or foreground background)
- (%draw-layout-with-colors drawable gc
font
x y layout foreground background)
- (%draw-layout drawable gc
font
x y layout)))
+ (%draw-layout-with-colors drawable gc x y layout foreground background)
+ (%draw-layout drawable gc x y layout)))
(defbinding draw-drawable
(drawable gc src src-x src-y dest-x dest-y &optional width height) nil
(defbinding draw-drawable
(drawable gc src src-x src-y dest-x dest-y &optional width height) nil