trouble with menu-popup
Steve Rolls <[email protected]> Mon, 17 Mar 2008 22:41:12 -0700 (PDT)
| Newsgroups | gmane.lisp.clg.devel |
|---|---|
| Message-ID | <[email protected]> |
--===============0145928065==
Content-Type: multipart/alternative; boundary="0-379410261-1205818872=:30555"
Content-Transfer-Encoding: 7bit
--0-379410261-1205818872=:30555
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
I get the following error when calling menu-popup (cmucl 19d, gtk+ 2.10.1=
3). Am I just doing something wrong here?=20
Function that generates the error follows.
Error in function PCL::FIND-CLASS-FROM-CELL: No class named NIL.
[Condition of type SIMPLE-ERROR]
Restarts:
0: [ABORT] Return to Top-Level.
Backtrace:
0: (PCL::FIND-CLASS-FROM-CELL NIL NIL T)
1: ((METHOD GFFI:MAKE-PROXY-INSTANCE NIL (SYMBOL T)) #<#1=3Dunused-arg>=
#<#1#> NIL #.(SYSTEM:INT-SAP #x08108990) ...)
2: (GFFI:ENSURE-PROXY-INSTANCE GDK:EVENT #.(SYSTEM:INT-SAP #x08108990) =
:REFERENCE NIL ...)
3: (GLIB::CALLBACK-TRAMPOLINE #<Function GLIB::INVOKE-SIGNAL-HANDLER {5=
8B82671}> 6 2 #.(SYSTEM:INT-SAP #x3FFFC70C) ...)
4: (GLIB::SIGNAL-HANDLER-MARSHAL 268431660 268431656)
5: ("call_into_lisp+#x8C [#x8054D3C] /home/srolls/cl/cmucl/bin/lisp")
6: ("funcall3+#x29 [#x8054B4F] /home/srolls/cl/cmucl/bin/lisp")
7: ("Foreign function call land")
8: ("g_closure_invoke+#x11E [#xB7B4EE3F] /home/srolls/local/gtk/lib/lib=
gobject-2.0.so")
9: ("NIL+#xB7B5DB6A [#xB7B5DB6A] /home/srolls/local/gtk/lib/libgobject-=
2.0.so")
10: ("g_signal_emit_valist+#x41D [#xB7B5F106] /home/srolls/local/gtk/lib=
/libgobject-2.0.so")
11: ("g_signal_emit+#x29 [#xB7B5F709] /home/srolls/local/gtk/lib/libgobj=
ect-2.0.so")
12: ("NIL+#xB76B520B [#xB76B520B] /home/srolls/local/gtk/lib/libgtk-x11-=
2.0.so")
13: ("gtk_main_do_event+#x315 [#xB75AA7EB] /home/srolls/local/gtk/lib/li=
bgtk-x11-2.0.so")
14: ("NIL+#xB782159C [#xB782159C] /home/srolls/local/gtk/lib/libgdk-x11-=
2.0.so")
15: ("g_main_context_dispatch+#x1EC [#xB7BA6FAD] /home/srolls/local/gtk/=
lib/libglib-2.0.so")
16: ("NIL+#xB7BAA086 [#xB7BAA086] /home/srolls/local/gtk/lib/libglib-2.0=
.so")
17: ("g_main_context_iteration+#x62 [#xB7BAA50E] /home/srolls/local/gtk/=
lib/libglib-2.0.so")
18: ("gtk_main_iteration_do+#x33 [#xB75A9381] /home/srolls/local/gtk/lib=
/libgtk-x11-2.0.so")
19: (GTK:MAIN-ITERATION-DO NIL)
20: ("DEFUN MAIN-ITERATE-ALL" #<#1=3Dunused-arg> #<#1#>)[:OPTIONAL]
21: (LISP::SUB-SERVE-EVENT 0 10000)
22: (SYSTEM:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
23: (LISP::DO-INPUT #<Stream for Standard Input>)
24: (LISP::INPUT-CHARACTER #<Stream for Standard Input> NIL (LISP::*EOF*=
))
25: (LISP::SYNONYM-IN #<Synonym Stream to SYSTEM:*STDIN*> NIL (LISP::*EO=
F*))
26: (LISP::TWO-WAY-IN #<Two-Way Stream, Input =3D #<Synonym Stream to SY=
STEM:*STDIN*>, Output =3D #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (LISP=
::*EOF*))
27: (LISP::SYNONYM-IN #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT=
*> NIL (LISP::*EOF*))
28: (READ-CHAR #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL =
(LISP::*EOF*) NIL)
29: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<Synonym Stream to SWANK=
::*CURRENT-STANDARD-INPUT*> NIL (:EOF) T)
30: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<Synonym Stream to SWANK=
::*CURRENT-STANDARD-INPUT*> NIL (:EOF) NIL)
31: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL 4 #<Synonym Stream to SWA=
NK::*CURRENT-STANDARD-INPUT*> NIL (:EOF) ...)[:EXTERNAL]
32: (LISP::READ-INTERNAL #<Synonym Stream to SWANK::*CURRENT-STANDARD-IN=
PUT*> NIL (:EOF) NIL)
33: (READ #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (:EOF=
) NIL)
34: (LISP::%TOP-LEVEL)
35: ((LABELS LISP::RESTART-LISP SAVE-LISP))
(defun popup-test()
(let ((window (make-instance
'gtk:window
:title "popup-test"
:visible t
:show-children t))
(ui (make-instance
'gtk:ui-manager
:ui '((:popup "Popup"
(:menuitem "PopupTest")))
:action-group
(make-instance
'gtk:action-group
:name "TestActions"
:action (make-instance
'gtk:action
:name "PopupTest"
:label "Popup test"
:callback #'(lambda()
(make-instance=20
'gtk:message-dialog=20
:message-type :info
:visible t
:text "Popup Test"=20
:signal (list :ok #'gtk:widget=
-destroy
:object t)))))))=
)
(gtk:widget-add-events window '(:button-press :button-release))
(gtk:signal-connect=20
window "event"
#'(lambda(widget event)
(declare (ignore widget))
(typecase event
(gdk:button-press-event
(gtk:menu-popup
(gtk:ui-manager-get-widget ui "/Popup")
(gdk:event-button event)
(gdk:event-time event)))))
:object t)))
=20
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try i=
t now.
--0-379410261-1205818872=:30555
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
I get the following error when calling menu-popup (cmucl 19d, gtk+ 2.10.1=
3). Am I just doing something wrong here? <br>Function that generates the=
error follows.<br><br>Error in function PCL::FIND-CLASS-FROM-CELL: =
No class named NIL.<br> [Condition of type SIMPLE-ERROR]<br>=
<br>Restarts:<br> 0: [ABORT] Return to Top-Level.<br><br>Backtrace:=
<br> 0: (PCL::FIND-CLASS-FROM-CELL NIL NIL T)<br> 1: ((METHOD=
GFFI:MAKE-PROXY-INSTANCE NIL (SYMBOL T)) #<#1=3Dunused-arg> #<#=
1#> NIL #.(SYSTEM:INT-SAP #x08108990) ...)<br> 2: (GFFI:ENSURE-P=
ROXY-INSTANCE GDK:EVENT #.(SYSTEM:INT-SAP #x08108990) :REFERENCE NIL ...)=
<br> 3: (GLIB::CALLBACK-TRAMPOLINE #<Function GLIB::INVOKE-SIGNA=
L-HANDLER {58B82671}> 6 2 #.(SYSTEM:INT-SAP #x3FFFC70C) ...)<br> =
4: (GLIB::SIGNAL-HANDLER-MARSHAL 268431660 268431656)<br> 5: ("cal=
l_into_lisp+#x8C [#x8054D3C] /home/srolls/cl/cmucl/bin/lisp")<br> 6=
: ("funcall3+#x29 [#x8054B4F]
/home/srolls/cl/cmucl/bin/lisp")<br> 7: ("Foreign function call la=
nd")<br> 8: ("g_closure_invoke+#x11E [#xB7B4EE3F] /home/srolls/loca=
l/gtk/lib/libgobject-2.0.so")<br> 9: ("NIL+#xB7B5DB6A [#xB7B5DB6A] =
/home/srolls/local/gtk/lib/libgobject-2.0.so")<br> 10: ("g_signal_em=
it_valist+#x41D [#xB7B5F106] /home/srolls/local/gtk/lib/libgobject-2.0.so=
")<br> 11: ("g_signal_emit+#x29 [#xB7B5F709] /home/srolls/local/gtk/=
lib/libgobject-2.0.so")<br> 12: ("NIL+#xB76B520B [#xB76B520B] /home/=
srolls/local/gtk/lib/libgtk-x11-2.0.so")<br> 13: ("gtk_main_do_event=
+#x315 [#xB75AA7EB] /home/srolls/local/gtk/lib/libgtk-x11-2.0.so")<br>&nb=
sp;14: ("NIL+#xB782159C [#xB782159C] /home/srolls/local/gtk/lib/libgdk-x1=
1-2.0.so")<br> 15: ("g_main_context_dispatch+#x1EC [#xB7BA6FAD] /hom=
e/srolls/local/gtk/lib/libglib-2.0.so")<br> 16: ("NIL+#xB7BAA086 [#x=
B7BAA086] /home/srolls/local/gtk/lib/libglib-2.0.so")<br> 17: ("g_ma=
in_context_iteration+#x62 [#xB7BAA50E]
/home/srolls/local/gtk/lib/libglib-2.0.so")<br> 18: ("gtk_main_iter=
ation_do+#x33 [#xB75A9381] /home/srolls/local/gtk/lib/libgtk-x11-2.0.so")=
<br> 19: (GTK:MAIN-ITERATION-DO NIL)<br> 20: ("DEFUN MAIN-ITERA=
TE-ALL" #<#1=3Dunused-arg> #<#1#>)[:OPTIONAL]<br> 21: (L=
ISP::SUB-SERVE-EVENT 0 10000)<br> 22: (SYSTEM:WAIT-UNTIL-FD-USABLE 0=
:INPUT NIL)<br> 23: (LISP::DO-INPUT #<Stream for Standard Input&=
gt;)<br> 24: (LISP::INPUT-CHARACTER #<Stream for Standard Input&g=
t; NIL (LISP::*EOF*))<br> 25: (LISP::SYNONYM-IN #<Synonym Stream =
to SYSTEM:*STDIN*> NIL (LISP::*EOF*))<br> 26: (LISP::TWO-WAY-IN #=
<Two-Way Stream, Input =3D #<Synonym Stream to SYSTEM:*STDIN*>, =
Output =3D #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (LISP::*EOF=
*))<br> 27: (LISP::SYNONYM-IN #<Synonym Stream to SWANK::*CURRENT=
-STANDARD-INPUT*> NIL (LISP::*EOF*))<br> 28: (READ-CHAR #<Syno=
nym Stream to
SWANK::*CURRENT-STANDARD-INPUT*> NIL (LISP::*EOF*) NIL)<br> 29: =
(LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<Synonym Stream to SWANK::=
*CURRENT-STANDARD-INPUT*> NIL (:EOF) T)<br> 30: (LISP::READ-PRESE=
RVING-WHITESPACE-INTERNAL #<Synonym Stream to SWANK::*CURRENT-STANDARD=
-INPUT*> NIL (:EOF) NIL)<br> 31: (LISP::READ-PRESERVING-WHITESPAC=
E-INTERNAL 4 #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> N=
IL (:EOF) ...)[:EXTERNAL]<br> 32: (LISP::READ-INTERNAL #<Synonym =
Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (:EOF) NIL)<br> 33=
: (READ #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (:=
EOF) NIL)<br> 34: (LISP::%TOP-LEVEL)<br> 35: ((LABELS LISP::RES=
TART-LISP SAVE-LISP))<br><br><br><br>(defun popup-test()<br> (let (=
(window (make-instance<br>  =
;
'gtk:window<br> &nb=
sp; :title "popup-test"<br> &nbs=
p;  =
; :visible t<br> &nb=
sp; :show-children t))<br=
> (ui (make-instance<br> &=
nbsp; 'gtk:ui=
-manager<br> &=
nbsp; :ui '((:popup "Popup"<br> =
&=
nbsp; (:menuitem "PopupTest")))<br> &n=
bsp; :action-group<br> &nb=
sp;
(make-instance<br> =
'gtk:action-group<br> &nb=
sp; :name "TestActions"<b=
r>  =
; :action (make-instance<br> &nb=
sp; &nbs=
p; 'gtk:action<br> &=
nbsp; &n=
bsp; :name "PopupTest"<br>  =
; =
:label "Popup test"<br> &=
nbsp; &n=
bsp; :callback
#'(lambda()<br> &nb=
sp; &nbs=
p;  =
; (make-instance <br> &n=
bsp; &nb=
sp; &nbs=
p;  =
; 'gtk:message-dialog <br>  =
; =
&=
nbsp; &n=
bsp; :message-type
:info<br> &nb=
sp; &nbs=
p;  =
; :visible t<br> &nb=
sp; &nbs=
p;  =
; =
:text "Popup Test" <br> &=
nbsp; &n=
bsp; &nb=
sp; &nbs=
p; :signal (list :ok
#'gtk:widget-destroy<br> =
&=
nbsp; &n=
bsp; &nb=
sp; :ob=
ject t))))))))<br> (gtk:widget-add-events window '(:but=
ton-press :button-release))<br> (gtk:signal-connect <br=
> window "event"<br> #'(l=
ambda(widget event)<br> (=
declare (ignore widget))<br> &nb=
sp; (typecase event<br> &n=
bsp; (gdk:button-press-event<br>  =
;
(gtk:menu-popup<br>  =
; (gtk:ui-manager-get-widget ui "/Popup")<br> &nbs=
p; (gdk:event=
-button event)<br> &=
nbsp; (gdk:event-time event)))))<br> =
:object t)))<br><br><p> 
<hr size=3D1>Be a better friend, newshound, and=20
know-it-all with Yahoo! Mobile. <a href=3D"http://us.rd.yahoo.com/evt=3D5=
1733/*http://mobile.yahoo.com/;_ylt=3DAhu06i62sR8HDtDypao8Wcj9tAcJ "> Try=
it now.</a>
--0-379410261-1205818872=:30555--
--===============0145928065==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
--===============0145928065==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
Clg-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/clg-devel
--===============0145928065==--