*> *************************************************************** *> Author: Brian Tiffin *> Date: 27-Dec-2008 *> Purpose: Happy Birthday OpenCOBOL *> Tectonics: *> gcc -c `pkg-config --cflags --libs libgnome-2.0 libgnomeui-2.0 *> gtk+-2.0 libgtkhtml-3.14` hellogtk.c *> cobc -lgtkhtml-3.14 -lgnomeui-2 -lSM -lICE -lglade-2.0 *> -lbonoboui-2 -lgnomevfs-2 -lgnomecanvas-2 -lgnome-2 -lpopt *> -lbonobo-2 -lbonobo-activation -lORBit-2 -lart_lgpl_2 *> -lgconf-2 -lgthread-2.0 -lrt -lgtk-x11-2.0 -lxml2 *> -lgdk-x11-2.0 -latk-1.0 -lgdk_pixbuf-2.0 -lm *> -lpangocairo-1.0 -lpango-1.0 -lcairo -lgobject-2.0 *> -lgmodule-2.0 -ldl -lglib-2.0 -x ocgtkhtml.cob hellogtk.o *> *************************************************************** identification division. program-id. ocgtkhtml. data division. working-storage section. 01 result usage binary-long. 01 html-string pic x(512) value "Happy Birthday 1.0 " & "OpenCOBOL 1.0!!" & "" & "opencobol " & "Closebutton" & "" & x"00". *> *************************************************************** procedure division. call "CBL_OC_GTKHTML" using by reference html-string returning result end-call goback. end program ocgtkhtml.
01 html-string pic x(512) value "<B><FONT COLOR=Blue>Happy Birthday 1.0</FONT> " & "<FONT COLOR=LimeGreen>OpenCOBOL 1.0!!</FONT></B><br />" & "<div align='center'><a href='http://opencobol.org'>" & "opencobol</a> <img src='file:smiley.png' />" & "<br /><br /><OBJECT CLASSID=close_button>Closebutton" & "</OBJECT></div>" & x"00".
Login
Register
Standard | Secure
How to proceed with a GTK+ layer
How do we proceed with a binding/wrapper for GTK?
Comments, opinions, trials and tribulations. Everything is on the table and open for discussion.
For a small sample of proof of concept and a calendar widget call, please see:
opencobol.org
Cheers