I try glade2bas, It is good, but first I want to learn this way

Thx TJF

GtkDrawingArea and gtk_combo_box_append_text() are deprecated.

How I can use cairo with GTK? Drawing simple lines circles etc

1. One main window
2. Two PushButtons
a. draw a line
b. draw a circle
3. Picturebox to draw line and circles using CAIRO

????

I don't know how to draw a simple line or circle on drawing_area

when you press button draw line
and secon button draw a circle

Simple, but I can not figure out :( Didnot find any example on the net except
scribble

#include once "gtk/gtk.bi" #define NULL 0 Dim As GtkWidget Ptr label ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub BYBY Cdecl( ) gtk_main_quit () End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub DOSOMETHING Cdecl( ) print "Hallo" End S...

#include once "gtk/gtk.bi" #define NULL 0 gtk_init(NULL, NULL) Dim As GtkWidget Ptr win = gtk_window_new(GTK_WINDOW_TOPLEVEL) gtk_window_set_title(GTK_WINDOW(win), "Simple menu") gtk_widget_set_size_request(win, 250, 150) gtk_window_set_position(GTK_WINDOW(win), GTK_WIN_POS_CENT...

'' PROGRAM CRASHES?? #include once "gtk/gtk.bi" #define NULL 0 Sub toggle_statusbar(ByVal widget as GtkWidget Ptr, ByVal statusbar As gpointer) If (gtk_check_menu_item_get_active(GTK_CHECK_MENU_ITEM(widget))) Then gtk_widget_show(statusbar) Else gtk_widget_hide(statusbar) End If End Sub g...

#include once "gtk/gtk.bi" #define NULL 0 gtk_init(NULL, NULL) Dim As GtkWidget Ptr win = gtk_window_new(GTK_WINDOW_TOPLEVEL) gtk_window_set_position(GTK_WINDOW(win), GTK_WIN_POS_CENTER) gtk_window_set_default_size(GTK_WINDOW(win), 250, 200) gtk_window_set_title(GTK_WINDOW(win), "men...

' ike 2011 License: public domain #include once "gtk/gtk.bi" #define NULL 0 Sub enter_button Cdecl (Byval widget As GtkWidget Ptr, Byval dat As gpointer) Dim kolor As GdkColor kolor.red = 0: kolor.green = 60000: kolor.blue = 0 gtk_widget_modify_bg(widget, GTK_STATE_PRELIGHT, @kolor) End S...

#include once "gtk/gtk.bi" #define NULL 0 Sub combo_changed Cdecl (Byval widget As GtkWidget Ptr, Byval win As gpointer) Dim As gchar Ptr text text = gtk_combo_box_get_active_text(GTK_COMBO_BOX(widget)) gtk_label_set_text(GTK_LABEL(win), text) g_free(text) End Sub gtk_init(NULL, NULL) Dim...

#include once "gtk/gtk.bi" #define NULL 0 Sub toggle_title Cdecl (Byval widget As GtkWidget Ptr, Byval win As gpointer) If gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(widget)) Then gtk_window_set_title(win, "CHECKED") Else gtk_window_set_title(win, "UNCHECKED") End ...

#include once "gtk/gtk.bi" #define NULL 0 gtk_init(NULL, NULL) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim As GtkWidget Ptr win = gtk_window_new(GTK_WINDOW_TOPLEVEL) gtk_window_set_title(GTK_WINDOW(win), "Close") gtk_widget_set_s...

#include once "gtk/gtk.bi" #define NULL 0 gtk_init(NULL, NULL) Dim As GtkWidget Ptr win = gtk_window_new(GTK_WINDOW_TOPLEVEL) gtk_window_set_title(GTK_WINDOW(win), "SHOWBITMAP") gtk_window_set_position(GTK_WINDOW(win), GTK_WIN_POS_CENTER) gtk_window_set_resizable(GTK_WINDOW(win)...

Is there any page about project in German?

I will use google translate

http://pyfltk.sourceforge.net/
http://ruby-fltk.sourceforge.net/
http://lua-fltk.sourceforge.net/