FG8386
Anmeldungsdatum: 03.11.2012 Beiträge: 2
|
Verfasst am: 03.11.2012, 14:49 Titel: Freebasic GTK Problem |
|
|
Hallo!
Ich schreibe im Moment ein Programm zur Verwaltung von Posteingängen/-Ausgängen. Dabei benutze ich das erste Mal GTK. Mein Problem ist nun das dass Fenster erstellen, Button definieren etc. wunderbar klappt, aber ich komme nicht darauf wie ich die Texteingabefelder nach klicken auf den
"Eintrag speichern"-Button auslesen und in Strings speichern kann. Sodass
ich diese dann einfach mit FB weiterverwenden kann.
----------------------------------------------------------------------------------------
Programmcode:
Code: | #include once "gtk/gtk.bi"
#include once "windows.bi"
gtk_init (0, 0)
Declare Sub Speichern ()
'HAUPTFENSTER
dim as GtkWidget ptr win = gtk_window_new (GTK_WINDOW_TOPLEVEL)
gtk_window_set_title (GTK_WINDOW (win), "Katharinas Postverwaltungsprogramm")
gtk_window_resize (GTK_WINDOW (win), 500, 500)
'BUTTONS UND SIGNALE
'Button 1
dim as GtkWidget ptr button = gtk_button_new_with_label("Eintrag speichern")
g_signal_connect(GTK_OBJECT(button),"clicked",G_CALLBACK(@Speichern),0)'SUB bereits komplett??
'Button 2
dim as GtkWidget ptr button2 = gtk_button_new_with_label("Beenden")
'Button 3
dim as GtkWidget ptr button3 = gtk_button_new_with_label("Eingehend")
'Button 4
dim as GtkWidget ptr button4 = gtk_button_new_with_label("Ausgehend")
'------------------
'CONTAINER & BOXES + POSITIONEN DER BUTTONS
dim as GtkWidget ptr box = gtk_fixed_new()
gtk_container_add (GTK_CONTAINER(win), box)
gtk_fixed_put (box, button,20,450)
gtk_fixed_put (box, button2,150,450)
gtk_fixed_put (box, button3,200,10)
gtk_fixed_put (box, button4,300,10)
'------------------
'ZEILENDEFINITIONEN
Dim As GtkWidget Ptr Label=gtk_label_new("Name")
Dim As GtkWidget Ptr Label2=gtk_label_new("Adresse")
Dim As GtkWidget Ptr Label3=gtk_label_new("PLZ")
Dim As GtkWidget Ptr Label4=gtk_label_new("Ort")
Dim As GtkWidget Ptr Label5=gtk_label_new("Datum")
Dim As GtkWidget Ptr Label6=gtk_label_new("Tel.")
Dim As GtkWidget Ptr Label7=gtk_label_new("Betreff")
'Positionen
gtk_fixed_put (box, Label,20,53)
gtk_fixed_put (box, Label2,20,103)
gtk_fixed_put (box, Label3,20,153)
gtk_fixed_put (box, Label4,20,203)
gtk_fixed_put (box, Label5,20,253)
gtk_fixed_put (box, Label6,20,303)
gtk_fixed_put (box, Label7,20,353)
'TEXTEINGABEFELDER
'Name
Dim As GtkWidget Ptr entry=gtk_entry_new_with_max_length(50)
gtk_fixed_put (box, Entry,70,50)
'Adresse
Dim As GtkWidget Ptr entry1=gtk_entry_new_with_max_length(50)
gtk_fixed_put (box, Entry1,70,100)
'PLZ
Dim As GtkWidget Ptr entry2=gtk_entry_new_with_max_length(10)
gtk_fixed_put (box, Entry2,70,150)
'Ort
Dim As GtkWidget Ptr entry3=gtk_entry_new_with_max_length(20)
gtk_fixed_put (box, Entry3,70,200)
'Datum
Dim As GtkWidget Ptr entry4=gtk_entry_new_with_max_length(10)
gtk_fixed_put (box, Entry4,70,250)
'Telefonnummer
Dim As GtkWidget Ptr entry5=gtk_entry_new_with_max_length(30)
gtk_fixed_put (box, Entry5,70,300)
'Betreff
Dim As GtkWidget Ptr entry6=gtk_entry_new_with_max_length(50)
gtk_fixed_put (box, Entry6,70,350)
'----------------
'CHECK BUTTON
Dim As GtkWidget Ptr checkbutton =gtk_check_button_new_with_label("Auto-Datum")
gtk_fixed_put (box, Checkbutton,400,450)
gtk_widget_show_all (win)
gtk_main()
'----------------
Sub Speichern
'Abfrage der Textfelder
'gtk_entry_get_text???
End Sub |
|
|