[cells-gtk-devel] Re: Cells-gtk now UFFI-ized, running under AllegroCL and Lispworks on win32, next stop OS/X.

[Kenny Tilton]

>>
>>
>> diff -b -u -r /tmp/root/gtk-ffi/gtk-core.lisp ../gtk-ffi/gtk-core.lisp
>> --- /tmp/root/gtk-ffi/gtk-core.lisp     2004-12-16 05:51:17.000000000 
>> +0100
>> +++ ../gtk-ffi/gtk-core.lisp    2004-12-24 01:02:20.444497200 +0100
>> @@ -67,8 +67,15 @@
>>  (defmacro with-g-value ((var) &body body)
>>    `(call-with-g-value (lambda (,var) , at body)))
>>
>> +#+cmu
>> +(ffx:def-type g-value-type
>> +             (* (alien:struct gtk-ffi::g-value
>> +                              (gtk-ffi::g-type (array (alien:signed 
>> 32) 16)))))
>> +
>>  (defun call-with-g-value (fn)
>> +  (declare (optimize (speed 3) (safety 0) (space 0)))
>>    (let ((gva (ffx:fgn-alloc 'g-value 1 :with-g-value)))
>> +    #+cmu (declare (type g-value-type gva))
>>      (unwind-protect
>>          (progn
>>            (dotimes (n 16)
>
>
> Cool, thx. I will work that in. 

Done. And I knocked out tree-view for CMU. I also noticed why the tabs 
were coming up "Page 1,2,3". Duh. Fixed.

>
>
>>
>> Can someone translate the above deftype into a more uffi-friendly 
>> form, so it doesn't have to be conditionalized? 
>
By the way, looks like your FFI is coming up to speed. :)

Agreed that all-UFFI is better, but at this core level a little 
conditionalization should not hurt. Hopefully those hoping to use this 
code for GUI development will never need to touch this code. I did the 
same getting Lispworks up to speed. I just want to get a nice, portable, 
friendly, Cells-y GUI framework out there for Common Lisp. Niceties will 
fall into place if the thing catches on with users. But thanks for your 
attention to detail.

kt

-- 
Cells? Cello? Celtik?: http://www.common-lisp.net/project/cells/
Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film