Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

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