[BLACKBOX] GdkGC *fg_gc[5] in CP?

From: [at]} <Frank>
Date: Sat, 19 Mar 2011 23:45:51 -0300

----boundary-LibPST-iamunique-21293906_-_-
Content-type: text/plain

I am still struggling with my simple test program which shall implement
a gtk expose signal handler.

Following earlier recommendations to experiment, my expose signal
handler now starts as:

-----------------------------------------------------------------------
PROCEDURE [ccall] Expose (widget: Gtk.WidgetP; event: Gdk.EventExposeP;
        data: G.pointer): G.boolean;
VAR gc: Gdk.GCP;
     style: Gtk.StyleP;
BEGIN
   Out.String("widget.state="); Out.Int(ORD(widget.state),0); Out.Ln;
   Out.String("allocation: "); Out.Int (widget.allocation.width, 0);
   Out.String(", "); Out.Int (widget.allocation.height, 0); Out.Ln;
   style:= widget.style;
   gc:= style.fg_gc[0];
   ...
-----------------------------------------------------------------------

When I call my program, widget.state and allocation width and height are
written correctly to the log and a trap "illegal memory read" is
generated (see below). Clicking on the diamond marks last shown line of
"Expose" above.

The original declaration of GtkStyle in gtkstyle.h is
-----------------------------------------------------------------------
struct _GtkStyle
{
   GObject parent_instance;

   /*< public >*/

   GdkColor fg[5];
   GdkColor bg[5];
   GdkColor light[5];
   GdkColor dark[5];
   GdkColor mid[5];
   GdkColor text[5];
   GdkColor base[5];
   GdkColor text_aa[5]; /* Halfway between text/base */

   GdkColor black;
   GdkColor white;
   PangoFontDescription *font_desc;

   gint xthickness;
   gint ythickness;

   GdkGC *fg_gc[5];
   GdkGC *bg_gc[5];
   GdkGC *light_gc[5];
   GdkGC *dark_gc[5];
   GdkGC *mid_gc[5];
   GdkGC *text_gc[5];
   GdkGC *base_gc[5];
   GdkGC *text_aa_gc[5];
   GdkGC *black_gc;
   GdkGC *white_gc;

   GdkPixmap *bg_pixmap[5];

   /*< private >*/

   gint attach_count;

   gint depth;
   GdkColormap *colormap;
   GdkFont *private_font;
   PangoFontDescription *private_font_desc; /* Font description for
style->private_font or %NULL */

   /* the RcStyle from which this style was created */
   GtkRcStyle *rc_style;

   GSList *styles; /* of type GtkStyle* */
   GArray *property_cache;
   GSList *icon_factories; /* of type GtkIconFactory* */
};
----------------------------------------------------------------------

which I translated to

-----------------------------------------------------------------------
   StyleP* = POINTER TO Style;
   Style* = EXTENSIBLE RECORD [noalign] (G.Object)
     fg*, bg*, light*, dark*, mid*, text*, base*, text_aa*:
                POINTER TO ARRAY [untagged] 5 OF Gdk.Color;
     black*, white*: Gdk.Color;
     font_desc*: Pango.FontDescriptionP;
     xthickness*, ythickness*: G.int;
     fg_gc*, bg_gc*, light_gc*, dark_gc*, mid_gc*, text_gc*, base_gc*,
     text_aa_gc*: POINTER TO ARRAY [untagged] 5 OF Gdk.GCP;
     black_gc*, white_gc*: Gdk.GCP;
     bg_pixmap*: POINTER TO ARRAY [untagged] 5 OF Gdk.PixmapP;
     attach_count*, depth*: G.int;
     colormap*: Gdk.ColormapP;
     private_font*: Gdk.FontP;

     private_font_desc*: Pango.FontDescriptionP;
     rc_style*: RcStyleP;
     styles*: G.SListP;

     property_cache*: G.ArrayGP;

     icon_factories*: G.SListP;
   END;
---------------------------------------------------------------------------

So I guess:

As the line "gc:= style.fg_gc[0];" is marked, the error is in my
translation of
        "GdkGC *fg_gc[5];"
to
        "POINTER TO ARRAY [untagged] 5 OF Gdk.GCP;"
where Gdk.GCP is declares pointer to Gdk.GC.

Is that correct? What else can I do to track down the error?


        

-- 
Frank Hrebabetzky		+55 / 48 / 3235 1106
Florianopolis, Brazil
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-21293906_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEkgYW0gc3RpbGwgc3RydWdnbGluZyB3aXRoIG15
IHNpbXBsZSB0ZXN0IHByb2dyYW0gd2hpY2ggc2hhbGwgaW1wbGVtZW50IFxwYXINCmEgZ3RrIGV4
cG9zZSBzaWduYWwgaGFuZGxlci5ccGFyDQpccGFyDQpGb2xsb3dpbmcgZWFybGllciByZWNvbW1l
bmRhdGlvbnMgdG8gZXhwZXJpbWVudCwgbXkgZXhwb3NlIHNpZ25hbCBccGFyDQpoYW5kbGVyIG5v
dyBzdGFydHMgYXM6XHBhcg0KXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpQUk9DRURVUkUgW2Nj
YWxsXSBFeHBvc2UgKHdpZGdldDogR3RrLldpZGdldFA7IGV2ZW50OiBHZGsuRXZlbnRFeHBvc2VQ
O1xwYXINClx0YWIgZGF0YTogRy5wb2ludGVyKTogRy5ib29sZWFuO1xwYXINClZBUiBnYzpcdGFi
IFx0YWIgR2RrLkdDUDtccGFyDQogICAgIHN0eWxlOlx0YWIgR3RrLlN0eWxlUDtccGFyDQpCRUdJ
TlxwYXINCiAgIE91dC5TdHJpbmcoIndpZGdldC5zdGF0ZT0iKTsgIE91dC5JbnQoT1JEKHdpZGdl
dC5zdGF0ZSksMCk7ICBPdXQuTG47XHBhcg0KICAgT3V0LlN0cmluZygiYWxsb2NhdGlvbjogIik7
ICBPdXQuSW50ICh3aWRnZXQuYWxsb2NhdGlvbi53aWR0aCwgMCk7XHBhcg0KICAgT3V0LlN0cmlu
ZygiLCAiKTsgIE91dC5JbnQgKHdpZGdldC5hbGxvY2F0aW9uLmhlaWdodCwgMCk7ICBPdXQuTG47
XHBhcg0KICAgc3R5bGU6PSB3aWRnZXQuc3R5bGU7XHBhcg0KICAgZ2M6PSBzdHlsZS5mZ19nY1sw
XTtccGFyDQogICAuLi5ccGFyDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINClxwYXINCldoZW4gSSBjYWxs
IG15IHByb2dyYW0sIHdpZGdldC5zdGF0ZSBhbmQgYWxsb2NhdGlvbiB3aWR0aCBhbmQgaGVpZ2h0
IGFyZSBccGFyDQp3cml0dGVuIGNvcnJlY3RseSB0byB0aGUgbG9nIGFuZCBhIHRyYXAgImlsbGVn
YWwgbWVtb3J5IHJlYWQiIGlzIFxwYXINCmdlbmVyYXRlZCAoc2VlIGJlbG93KS4gQ2xpY2tpbmcg
b24gdGhlIGRpYW1vbmQgbWFya3MgbGFzdCBzaG93biBsaW5lIG9mIFxwYXINCiJFeHBvc2UiIGFi
b3ZlLlxwYXINClxwYXINClRoZSBvcmlnaW5hbCBkZWNsYXJhdGlvbiBvZiBHdGtTdHlsZSBpbiBn
dGtzdHlsZS5oIGlzXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpzdHJ1Y3QgX0d0a1N0eWxlXHBh
cg0KXHtccGFyDQogICBHT2JqZWN0IHBhcmVudF9pbnN0YW5jZTtccGFyDQpccGFyDQogICAvKjwg
cHVibGljID4qL1xwYXINClxwYXINCiAgIEdka0NvbG9yIGZnWzVdO1xwYXINCiAgIEdka0NvbG9y
IGJnWzVdO1xwYXINCiAgIEdka0NvbG9yIGxpZ2h0WzVdO1xwYXINCiAgIEdka0NvbG9yIGRhcmtb
NV07XHBhcg0KICAgR2RrQ29sb3IgbWlkWzVdO1xwYXINCiAgIEdka0NvbG9yIHRleHRbNV07XHBh
cg0KICAgR2RrQ29sb3IgYmFzZVs1XTtccGFyDQogICBHZGtDb2xvciB0ZXh0X2FhWzVdO1x0YWIg
XHRhYiAvKiBIYWxmd2F5IGJldHdlZW4gdGV4dC9iYXNlICovXHBhcg0KXHBhcg0KICAgR2RrQ29s
b3IgYmxhY2s7XHBhcg0KICAgR2RrQ29sb3Igd2hpdGU7XHBhcg0KICAgUGFuZ29Gb250RGVzY3Jp
cHRpb24gKmZvbnRfZGVzYztccGFyDQpccGFyDQogICBnaW50IHh0aGlja25lc3M7XHBhcg0KICAg
Z2ludCB5dGhpY2tuZXNzO1xwYXINClxwYXINCiAgIEdka0dDICpmZ19nY1s1XTtccGFyDQogICBH
ZGtHQyAqYmdfZ2NbNV07XHBhcg0KICAgR2RrR0MgKmxpZ2h0X2djWzVdO1xwYXINCiAgIEdka0dD
ICpkYXJrX2djWzVdO1xwYXINCiAgIEdka0dDICptaWRfZ2NbNV07XHBhcg0KICAgR2RrR0MgKnRl
eHRfZ2NbNV07XHBhcg0KICAgR2RrR0MgKmJhc2VfZ2NbNV07XHBhcg0KICAgR2RrR0MgKnRleHRf
YWFfZ2NbNV07XHBhcg0KICAgR2RrR0MgKmJsYWNrX2djO1xwYXINCiAgIEdka0dDICp3aGl0ZV9n
YztccGFyDQpccGFyDQogICBHZGtQaXhtYXAgKmJnX3BpeG1hcFs1XTtccGFyDQpccGFyDQogICAv
KjwgcHJpdmF0ZSA+Ki9ccGFyDQpccGFyDQogICBnaW50IGF0dGFjaF9jb3VudDtccGFyDQpccGFy
DQogICBnaW50IGRlcHRoO1xwYXINCiAgIEdka0NvbG9ybWFwICpjb2xvcm1hcDtccGFyDQogICBH
ZGtGb250ICpwcml2YXRlX2ZvbnQ7XHBhcg0KICAgUGFuZ29Gb250RGVzY3JpcHRpb24gKnByaXZh
dGVfZm9udF9kZXNjOyAvKiBGb250IGRlc2NyaXB0aW9uIGZvciBccGFyDQpzdHlsZS0+cHJpdmF0
ZV9mb250IG9yICVOVUxMICovXHBhcg0KXHBhcg0KICAgLyogdGhlIFJjU3R5bGUgZnJvbSB3aGlj
aCB0aGlzIHN0eWxlIHdhcyBjcmVhdGVkICovXHBhcg0KICAgR3RrUmNTdHlsZVx0YWIgICpyY19z
dHlsZTtccGFyDQpccGFyDQogICBHU0xpc3RcdGFiICAqc3R5bGVzO1x0YWIgICAvKiBvZiB0eXBl
IEd0a1N0eWxlKiAqL1xwYXINCiAgIEdBcnJheVx0YWIgICpwcm9wZXJ0eV9jYWNoZTtccGFyDQog
ICBHU0xpc3QgICAgICAgICAqaWNvbl9mYWN0b3JpZXM7IC8qIG9mIHR5cGUgR3RrSWNvbkZhY3Rv
cnkqICovXHBhcg0KXH07XHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINClxwYXINCndoaWNoIEkgdHJh
bnNsYXRlZCB0b1xwYXINClxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KICAgU3R5bGVQKiA9IFBP
SU5URVIgVE8gU3R5bGU7XHBhcg0KICAgU3R5bGUqID0gIEVYVEVOU0lCTEUgUkVDT1JEIFtub2Fs
aWduXSAoRy5PYmplY3QpXHBhcg0KICAgICBmZyosIGJnKiwgbGlnaHQqLCBkYXJrKiwgbWlkKiwg
dGV4dCosIGJhc2UqLCB0ZXh0X2FhKjpccGFyDQpcdGFiIFx0YWIgUE9JTlRFUiBUTyBBUlJBWSBb
dW50YWdnZWRdIDUgT0YgR2RrLkNvbG9yO1xwYXINCiAgICAgYmxhY2sqLCB3aGl0ZSo6XHRhYiBc
dGFiIEdkay5Db2xvcjtccGFyDQogICAgIGZvbnRfZGVzYyo6XHRhYiBcdGFiIFx0YWIgUGFuZ28u
Rm9udERlc2NyaXB0aW9uUDtccGFyDQogICAgIHh0aGlja25lc3MqLCB5dGhpY2tuZXNzKjpcdGFi
IEcuaW50O1xwYXINCiAgICAgZmdfZ2MqLCBiZ19nYyosIGxpZ2h0X2djKiwgZGFya19nYyosIG1p
ZF9nYyosIHRleHRfZ2MqLCBiYXNlX2djKixccGFyDQogICAgIHRleHRfYWFfZ2MqOlx0YWIgUE9J
TlRFUiBUTyBBUlJBWSBbdW50YWdnZWRdIDUgT0YgR2RrLkdDUDtccGFyDQogICAgIGJsYWNrX2dj
Kiwgd2hpdGVfZ2MqOlx0YWIgR2RrLkdDUDtccGFyDQogICAgIGJnX3BpeG1hcCo6XHRhYiBcdGFi
IFBPSU5URVIgVE8gQVJSQVkgW3VudGFnZ2VkXSA1IE9GIEdkay5QaXhtYXBQO1xwYXINCiAgICAg
YXR0YWNoX2NvdW50KiwgZGVwdGgqOiAgRy5pbnQ7XHBhcg0KICAgICBjb2xvcm1hcCo6XHRhYiBc
dGFiIFx0YWIgR2RrLkNvbG9ybWFwUDtccGFyDQogICAgIHByaXZhdGVfZm9udCo6XHRhYiBcdGFi
IEdkay5Gb250UDtccGFyDQpccGFyDQogICAgIHByaXZhdGVfZm9udF9kZXNjKjpcdGFiIFx0YWIg
UGFuZ28uRm9udERlc2NyaXB0aW9uUDtccGFyDQogICAgIHJjX3N0eWxlKjpcdGFiIFx0YWIgXHRh
YiBSY1N0eWxlUDtccGFyDQogICAgIHN0eWxlcyo6XHRhYiBcdGFiIFx0YWIgRy5TTGlzdFA7XHBh
cg0KXHBhcg0KICAgICBwcm9wZXJ0eV9jYWNoZSo6XHRhYiBcdGFiIEcuQXJyYXlHUDtccGFyDQpc
cGFyDQogICAgIGljb25fZmFjdG9yaWVzKjpcdGFiIFx0YWIgRy5TTGlzdFA7XHBhcg0KICAgRU5E
O1xwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINClxwYXINClNvIEkgZ3Vlc3M6XHBhcg0KXHBh
cg0KQXMgdGhlIGxpbmUgImdjOj0gc3R5bGUuZmdfZ2NbMF07IiBpcyBtYXJrZWQsIHRoZSBlcnJv
ciBpcyBpbiBteSBccGFyDQp0cmFuc2xhdGlvbiBvZlxwYXINClx0YWIgIkdka0dDICpmZ19nY1s1
XTsiXHBhcg0KdG9ccGFyDQpcdGFiICJQT0lOVEVSIFRPIEFSUkFZIFt1bnRhZ2dlZF0gNSBPRiBH
ZGsuR0NQOyJccGFyDQp3aGVyZSBHZGsuR0NQIGlzIGRlY2xhcmVzIHBvaW50ZXIgdG8gR2RrLkdD
LlxwYXINClxwYXINCklzIHRoYXQgY29ycmVjdD8gV2hhdCBlbHNlIGNhbiBJIGRvIHRvIHRyYWNr
IGRvd24gdGhlIGVycm9yP1xwYXINClxwYXINClxwYXINClx0YWIgXHBhcg0KXHBhcg0KXHBhcg0K
LS0gXHBhcg0KRnJhbmsgSHJlYmFiZXR6a3lcdGFiIFx0YWIgKzU1IC8gNDggLyAzMjM1IDExMDZc
cGFyDQpGbG9yaWFub3BvbGlzLCBCcmF6aWxccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8g
dW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIg
dG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIfX0AAX8AMA==
----boundary-LibPST-iamunique-21293906_-_---

Received on Sun Mar 20 2011 - 03:45:51 UTC