Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

GDK Zeichnet nicht

Uploader:MitgliedEmporea1997
Datum/Zeit:04.11.2011 21:47:41

#Include "gtk/gtk.bi"
#Include "gtk/gdk.bi"

dim fenster as GtkWidget Ptr
Dim drawingarea As GtkWidget Ptr

Dim gc As GdkGC
Dim drawable As GdkDrawable

gtk_init (0 , 0)

fenster = gtk_window_new(GTK_WINDOW_TOPLEVEL)

gtk_window_set_title(GTK_WINDOW (fenster) , "Testfenster")

gtk_window_set_default_size(GTK_WINDOW (fenster) , 1024 , 768)
gtk_window_set_policy(fenster , TRUE , TRUE , FALSE)
drawingarea = gtk_drawing_area_new

gtk_drawing_area_size (GTK_DRAWING_AREA(drawingarea) , 100 , 100)
gdk_draw_rectangle (drawingarea , 0 , TRUE , 0 , 0 , 100 , 100)
gtk_container_add (GTK_CONTAINER (fenster), drawingarea)
gtk_widget_show_all (fenster)

gtk_main ()
End 0