Home

Add

Edit

With Linenumbers

Code in Textfield

Download

Dim TText As String = "testtext"
#INCLUDE Once "gtk/gtk.bi"
#DEFINE _GDK_MAKE_ATOM(Val) Cast(GdkAtom, Cast(gpointer, Val))
#DEFINE GDK_SELECTION_CLIPBOARD _GDK_MAKE_ATOM (69)
Gtk_Init(0, 0)
GTK_Clipboard_Set_Text(GTK_Clipboard_Get(GDK_SELECTION_CLIPBOARD), Strptr(TText), Len(TText))
GTK_Clipboard_Store(GTK_Clipboard_Get(GDK_SELECTION_CLIPBOARD))