gmane.lisp.cells-gtk.devel

64bit listbox problem

jimmy brisson — 2011-08-11T19:40:58

I have been prodding the memory fault problem on my 64bit machine ans have
narrowed it down to one function:
gtk-list-store-newv

when called like (gtk-ffi:gtk-list-store-new '(:string :string)) this
function consistently produces unhandled memory fault errors (at
#x4000000056 for '(:string :string)) when passed anything that is length 2
or more or contains strings (the '(:string :string) example is what
(test-gtk:gtk-demo) calls).
the type signature looks like a match to the header files on my system.
for reference I am using sbcl 1.0.50 on Archlinux x86_64 with gtk and sbcl
compiled 64bit and a fresh (as of an hour ago) pull of cells-gtk3 from
https://github.com/Ramarren/cells-gtk3.git
I am happy to help in any way I can and can provide more information if
needed.
Thanks for the great library,
Jimmy

installing

Haris Bogdanovich — 2011-07-10T11:18:27

Hi.

I tried to install cells-gtk by quicklisp.
I firstly added folders with gtk dll files to cffi:*foreign-library-directories*.
Now it doesn't complain something about cairo-win32.
Now it complains about glut:

Unable to load foreign library (GLUT).
  Could not register handle for external module GLUT:
 The specified module could not be found..

I dowloaded glut binaries and added the folder with dll to cffi:*foreign-library-directories*
But again I get the same error about glut ?

Thanks

compiling gtk on windows

Haris Bogdanovich — 2011-07-09T12:46:36

Hi.

Do I have to compile gtk+ on Windows (msys, mingw)
to use cells gtk ?

Thanks

first steps

Haris Bogdanovich — 2011-07-02T16:55:10

Hi.

I loaded Cells into Lispworks with

(asdf:oos 'asdf:load-op 'cells)

I hope that's ok ?

I tried to run hello-world exsmple but I always get:

badly formed lambda ?

Is there some simple example where just a window opens
(or maybe someone could write it here) ?

Thanks

installation and Glade

Haris Bogdanovich — 2011-06-24T13:05:25

Hi.

I tried to load "load.lisp" from Lispworks but I get error:

Expected a logical pathname word character at "cells.asd"
:start 5.


Can I use interfaces made with Glade with Cells-gtk ?

Thanks

memory fault in sbcl with cells-gtk

Kevin Raison — 2011-06-17T18:27:46

I installed cells-gtk (sbcl 1.0.49 on Linux x86_64) via quicklisp today
and when trying to run (gtk-test:gtk-demo), I get memory faults:

0> : c-link> query link :listbox cells-store896 nil
CORRUPTION WARNING in SBCL pid 21968(tid 140737353950976):
Memory fault at 56 (pc=0x7ffff1463953, sp=0x7ffff6d5e500)
The integrity of this image is possibly compromised.
Continuing with fingers crossed.
0> : overwriting item #:listbox1465 listbox1465
debugger invoked on a SB-SYS:MEMORY-FAULT-ERROR in thread
#<THREAD "initial thread" RUNNING {1002960EE1}>: Unhandled memory fault
at #x4000000056.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-SYS:MEMORY-FAULT-ERROR) 0]

Is this a known issue or possibly something with sbcl 1.0.49?  Should I
perhaps be using the newest code on github?

Thanks for any pointers.

-Kevin

quicklisp stack overflow, CCL, Windows

Brandon J. Van Every — 2011-04-08T14:08:11

When I try to load the quicklisp cells-gtk package using Clozure CL on 
Windows Vista, I get the following error:

1 > (ql:quickload "cells-gtk")
To load "cells-gtk":
   Load 1 ASDF system:
     cells-gtk
; Loading "cells-gtk"
.................................................
 > Error: Stack overflow on temp stack.
 > While executing: CCL::VALUES-SPECIFIER-TYPE, in process listener(1).
 > Type :POP to abort, :R for a list of available restarts.
 > Type :? for other options.
2 >


Cheers,
Brandon Van Every

cells-gtk, CCL, Windows

Frank — 2010-11-29T11:05:54

Hi there,

I was going to try out cells-gtk but unfortunately it doesn't seem to be 
that straightforward.  My platform is CCL, Windows XP & MinGW.

What I found is that there seem to be several source code repositories 
around.  Well to be honest I'm not sure where to start.  Can somebody 
point me into the right direction?

Thanks
Frank

test-gtk:gtk-demo does not run on sbcl 1.0.35 64bit

Jozef M H Dassen — 2010-02-20T20:54:32

Editable Table

Martin Kielhorn — 2009-10-06T18:37:34

cells-gtk & cl-2d

2009-10-02T16:33:01

Good ${current_time_of_day}

I'm trying to use cl-2d plotting library (http://github.com/tpapp/cl-2d)
with cl-cairo2 support in cells-gtk. First I tried to make an
cl-2d:frame from cells-gtk:cairo-context of cells-gtk:cairo-drawing-area:


CL-USER> (in-package :cgtk)
#<PACKAGE "CELLS-GTK">
CGTK> (defmodel test-app (gtk-app)
  ()
  (:default-initargs :title "Test"
    :position :center
    :width 800 :height 600
    :kids (c?
    (the-kids
     (mk-hbox 
      :kids
      (list 
       (make-instance 'cairo-drawing-area :width 640 :height 480 :fm-parent *parent* :md-name :draw
      :expand t :fill t)
       (mk-button :label "test"
  :on-clicked (callback (w e d)
;; cl-cairo2::with-gtk-context dose not setup
;; width, height & pixel-based-p properties of the context
;; needed by cl-2d:as-frame
(with-accessors ((widget-width width)
 (widget-height height)
 (context cairo-context)) (find-widget :draw)
  (with-slots ((context-width cl-cairo2:width)
       (context-height cl-cairo2:height)
       (context-pixel-based-p cl-cairo2:pixel-based-p)) context 
    (setf context-width widget-width  context-height widget-height
  context-pixel-based-p t))
  (print (cl-2d::vertical-interval (cl-2d:as-frame context))))))))))))
  
#<STANDARD-CLASS TEST-APP>
CGTK> (cells-gtk-init)

"----------UTILSRESET----------------------------------" 
#()
CGTK> (start-win 'test-app)

"----------UTILSRESET----------------------------------" 
0> registering handlers for #.(sb-sys:int-sap #x080d2898)
0> c-link> query link :draw cells-store2 nil
#<CL-2D:INTERVAL left=480  right=0> ;; <--- vertical-interval of the cl-2d:frame, created by calling cl-2d:frame
0> c-link> kick link :draw cells-store2 #<cells::c-link {ba79009}>
0> not-to-be cairo-drawing area erasing everything drawTEST-APP6

And then I tried to call cl-2d:plot-simple on with cl-2d:frame and
got strange error about unknown CAIRO_STATUS_T value:


CGTK> (defmodel test-app (gtk-app)
  ()
  (:default-initargs :title "Test"
    :position :center
    :width 800 :height 600
    :kids (c?
    (the-kids
     (mk-hbox 
      :kids
      (list 
       (make-instance 'cairo-drawing-area :width 640 :height 480 :fm-parent *parent* :md-name :draw
      :expand t :fill t)
       (mk-button :label "test"
  :on-clicked (callback (w e d)
;; cl-cairo2::with-gtk-context dose not setup
;; width, height & pixel-based-p properties of the context
;; needed by cl-2d:as-frame
(with-accessors ((widget-width width)
 (widget-height height)
 (context cairo-context)) (find-widget :draw)
  (with-slots ((context-width cl-cairo2:width)
       (context-height cl-cairo2:height)
       (context-pixel-based-p cl-cairo2:pixel-based-p)) context 
    (setf context-width widget-width  context-height widget-height
  context-pixel-based-p t))
  (cl-2d:plot-simple (cl-2d:as-frame context)
     (cl-2d:make-interval  1 2)
     (cl-2d:make-interval  3 4)
     :x-title "x"
     :y-title "y"))))))))))
  

STYLE-WARNING:
   redefining SHARED-INITIALIZE :AFTER (#<STANDARD-CLASS TEST-APP>
                                        #<BUILT-IN-CLASS T>) in DEFMETHOD
#<STANDARD-CLASS TEST-APP>
CGTK> (start-win 'test-app)
1> c-link> kick link :draw cells-store2 #<cells::c-link {d0a3801}>
0> registering handlers for #.(sb-sys:int-sap #x0810f8c0)
0> c-link> query link :draw cells-store2 #<cells::c-link {d0a3801}>
0> show error message
0> md-awaken :after
1> processing dlg
.2> running dialog
1> showed dialog -9 :no
1> destroying self (not-to-be)
0> >>>> ERROR REPORTING --> #<simple-error {bbfcc79}>

And here is debugger output:


-1208503376 is not defined as a value for enum type #<CFFI::FOREIGN-ENUM CL-CAIRO2::CAIRO_STATUS_T>.
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [TERMINATE-THREAD] Terminate this thread (#<THREAD "gtk-main-thread" RUNNING {B0D1409}>)

Backtrace:
  0: ((LAMBDA (CELLS-GTK::C2)) #<SIMPLE-ERROR {BBFCC79}>)
      Locals:
        CELLS-GTK::C2 = #<SIMPLE-ERROR {BBFCC79}>
  1: (CELLS-GTK::MAIN-LOOP)
      Locals:
        SB-KERNEL:*HANDLER-CLUSTERS* = :<NOT-AVAILABLE>
        SB-KERNEL:*RESTART-CLUSTERS* = :<NOT-AVAILABLE>
        #:COUNT[MAIN-LOOP]594 = :<NOT-AVAILABLE>
        #:G600 = (#<SIMPLE-ERROR {BBFCC79}>)
        #:NEXT[MAIN-LOOP]592 = :<NOT-AVAILABLE>
        #:START[MAIN-LOOP]593 = :<NOT-AVAILABLE>
  2: ((FLET CELLS-GTK::GTK-THREAD))
      Locals:
        CELLS-GTK::GTK-MAIN-THREAD = #<SB-THREAD:THREAD "gtk-main-thread" RUNNING {B0D1409}>
  3: ((LAMBDA ()))
      Locals:
        CELLS-GTK::GTK-MAIN-THREAD = #<SB-THREAD:THREAD "gtk-main-thread" RUNNING {B0D1409}>
        CELLS-GTK::SO = #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {B71B6A9}>
  4: ((LAMBDA ()))
      [No Locals]
  5: ((FLET #:WITHOUT-INTERRUPTS-BODY-[BLOCK375]380))
      [No Locals]
  6: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
      [No Locals]
      Catch-tags:
        SB-IMPL::%END-OF-THE-WORLD
        SB-INT:TOPLEVEL-CATCHER
  7: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-MUTEX]267))
      [No Locals]
  8: (SB-THREAD::CALL-WITH-MUTEX ..)
      Locals:
        SB-DEBUG::ARG-0 = #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {AF142205}>
        SB-DEBUG::ARG-1 = #S(SB-THREAD:MUTEX ..)
        SB-DEBUG::ARG-2 = #<SB-THREAD:THREAD "gtk-main-thread" RUNNING {B0D1409}>
        SB-DEBUG::ARG-3 = T
  9: ((LAMBDA ()))
      [No Locals]
 10: ("foreign function: #x8063A3B")
 11: ("foreign function: #x80523BD")
 12: ("foreign function: #x805BC20")
 13: ("foreign function: #xB7FA965C")


Can anyone please help to solve this problem?

Best, Nikolay V. Razbegaev.

cells-gtk & cl-2d

2009-10-02T16:33:01

Good ${current_time_of_day}

I'm trying to use cl-2d plotting library (http://github.com/tpapp/cl-2d)
with cl-cairo2 support in cells-gtk. First I tried to make an
cl-2d:frame from cells-gtk:cairo-context of cells-gtk:cairo-drawing-area:


CL-USER> (in-package :cgtk)
#<PACKAGE "CELLS-GTK">
CGTK> (defmodel test-app (gtk-app)
  ()
  (:default-initargs :title "Test"
    :position :center
    :width 800 :height 600
    :kids (c?
    (the-kids
     (mk-hbox 
      :kids
      (list 
       (make-instance 'cairo-drawing-area :width 640 :height 480 :fm-parent *parent* :md-name :draw
      :expand t :fill t)
       (mk-button :label "test"
  :on-clicked (callback (w e d)
;; cl-cairo2::with-gtk-context dose not setup
;; width, height & pixel-based-p properties of the context
;; needed by cl-2d:as-frame
(with-accessors ((widget-width width)
 (widget-height height)
 (context cairo-context)) (find-widget :draw)
  (with-slots ((context-width cl-cairo2:width)
       (context-height cl-cairo2:height)
       (context-pixel-based-p cl-cairo2:pixel-based-p)) context 
    (setf context-width widget-width  context-height widget-height
  context-pixel-based-p t))
  (print (cl-2d::vertical-interval (cl-2d:as-frame context))))))))))))
  
#<STANDARD-CLASS TEST-APP>
CGTK> (cells-gtk-init)

"----------UTILSRESET----------------------------------" 
#()
CGTK> (start-win 'test-app)

"----------UTILSRESET----------------------------------" 
0> registering handlers for #.(sb-sys:int-sap #x080d2898)
0> c-link> query link :draw cells-store2 nil
#<CL-2D:INTERVAL left=480  right=0> ;; <--- vertical-interval of the cl-2d:frame, created by calling cl-2d:frame
0> c-link> kick link :draw cells-store2 #<cells::c-link {ba79009}>
0> not-to-be cairo-drawing area erasing everything drawTEST-APP6

And then I tried to call cl-2d:plot-simple on with cl-2d:frame and
got strange error about unknown CAIRO_STATUS_T value:


CGTK> (defmodel test-app (gtk-app)
  ()
  (:default-initargs :title "Test"
    :position :center
    :width 800 :height 600
    :kids (c?
    (the-kids
     (mk-hbox 
      :kids
      (list 
       (make-instance 'cairo-drawing-area :width 640 :height 480 :fm-parent *parent* :md-name :draw
      :expand t :fill t)
       (mk-button :label "test"
  :on-clicked (callback (w e d)
;; cl-cairo2::with-gtk-context dose not setup
;; width, height & pixel-based-p properties of the context
;; needed by cl-2d:as-frame
(with-accessors ((widget-width width)
 (widget-height height)
 (context cairo-context)) (find-widget :draw)
  (with-slots ((context-width cl-cairo2:width)
       (context-height cl-cairo2:height)
       (context-pixel-based-p cl-cairo2:pixel-based-p)) context 
    (setf context-width widget-width  context-height widget-height
  context-pixel-based-p t))
  (cl-2d:plot-simple (cl-2d:as-frame context)
     (cl-2d:make-interval  1 2)
     (cl-2d:make-interval  3 4)
     :x-title "x"
     :y-title "y"))))))))))
  

STYLE-WARNING:
   redefining SHARED-INITIALIZE :AFTER (#<STANDARD-CLASS TEST-APP>
                                        #<BUILT-IN-CLASS T>) in DEFMETHOD
#<STANDARD-CLASS TEST-APP>
CGTK> (start-win 'test-app)
1> c-link> kick link :draw cells-store2 #<cells::c-link {d0a3801}>
0> registering handlers for #.(sb-sys:int-sap #x0810f8c0)
0> c-link> query link :draw cells-store2 #<cells::c-link {d0a3801}>
0> show error message
0> md-awaken :after
1> processing dlg
.2> running dialog
1> showed dialog -9 :no
1> destroying self (not-to-be)
0> >>>> ERROR REPORTING --> #<simple-error {bbfcc79}>

And here is debugger output:


-1208503376 is not defined as a value for enum type #<CFFI::FOREIGN-ENUM CL-CAIRO2::CAIRO_STATUS_T>.
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [TERMINATE-THREAD] Terminate this thread (#<THREAD "gtk-main-thread" RUNNING {B0D1409}>)

Backtrace:
  0: ((LAMBDA (CELLS-GTK::C2)) #<SIMPLE-ERROR {BBFCC79}>)
      Locals:
        CELLS-GTK::C2 = #<SIMPLE-ERROR {BBFCC79}>
  1: (CELLS-GTK::MAIN-LOOP)
      Locals:
        SB-KERNEL:*HANDLER-CLUSTERS* = :<NOT-AVAILABLE>
        SB-KERNEL:*RESTART-CLUSTERS* = :<NOT-AVAILABLE>
        #:COUNT[MAIN-LOOP]594 = :<NOT-AVAILABLE>
        #:G600 = (#<SIMPLE-ERROR {BBFCC79}>)
        #:NEXT[MAIN-LOOP]592 = :<NOT-AVAILABLE>
        #:START[MAIN-LOOP]593 = :<NOT-AVAILABLE>
  2: ((FLET CELLS-GTK::GTK-THREAD))
      Locals:
        CELLS-GTK::GTK-MAIN-THREAD = #<SB-THREAD:THREAD "gtk-main-thread" RUNNING {B0D1409}>
  3: ((LAMBDA ()))
      Locals:
        CELLS-GTK::GTK-MAIN-THREAD = #<SB-THREAD:THREAD "gtk-main-thread" RUNNING {B0D1409}>
        CELLS-GTK::SO = #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {B71B6A9}>
  4: ((LAMBDA ()))
      [No Locals]
  5: ((FLET #:WITHOUT-INTERRUPTS-BODY-[BLOCK375]380))
      [No Locals]
  6: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
      [No Locals]
      Catch-tags:
        SB-IMPL::%END-OF-THE-WORLD
        SB-INT:TOPLEVEL-CATCHER
  7: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-MUTEX]267))
      [No Locals]
  8: (SB-THREAD::CALL-WITH-MUTEX ..)
      Locals:
        SB-DEBUG::ARG-0 = #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {AF142205}>
        SB-DEBUG::ARG-1 = #S(SB-THREAD:MUTEX ..)
        SB-DEBUG::ARG-2 = #<SB-THREAD:THREAD "gtk-main-thread" RUNNING {B0D1409}>
        SB-DEBUG::ARG-3 = T
  9: ((LAMBDA ()))
      [No Locals]
 10: ("foreign function: #x8063A3B")
 11: ("foreign function: #x80523BD")
 12: ("foreign function: #x805BC20")
 13: ("foreign function: #xB7FA965C")


Can anyone please help to solve this problem?

Best, Nikolay V. Razbegaev.

test-gtk.asd

Johan Ur Riise — 2009-08-22T00:42:59

There are two different test-gtk.asd in cells-gtk3 from 

http://github.com/Ramarren/cells-gtk3/tree/master

Should one be deleted?

johan< at >perle:~/prg/cllibs$ find cells-gtk3 -name test-gtk.asd
cells-gtk3/test-gtk.asd
cells-gtk3/test-gtk/test-gtk.asd
johan< at >perle:~/prg/cllibs$

test-gtk.asd

Johan Ur Riise — 2009-08-22T00:42:59

There are two different test-gtk.asd in cells-gtk3 from 

http://github.com/Ramarren/cells-gtk3/tree/master

Should one be deleted?

johan< at >perle:~/prg/cllibs$ find cells-gtk3 -name test-gtk.asd
cells-gtk3/test-gtk.asd
cells-gtk3/test-gtk/test-gtk.asd
johan< at >perle:~/prg/cllibs$