Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. #INCLUDE Once "gtk/gtk.bi"
    
  2. Declare Function GtkCreateWin(sizeX As Integer,sizeY As Integer, title As String) As GtkWidget Ptr
    
  3. Function GtkCreateWin(sizeX As Integer,sizeY As Integer,title As String) As GtkWidget Ptr
    
  4.     Dim As GtkWidget Ptr windowT
    
  5.     windowT = gtk_window_new(GTK_WINDOW_TOPLEVEL)
    
  6.         gtk_window_set_title(GTK_WINDOW(windowT), title)
    
  7. gtk_widget_set_size_request(windowT, sizeX, sizeY)
    
  8. gtk_window_set_position(GTK_WINDOW(windowT), GTK_WIN_POS_CENTER)
    
  9.     Return windowT
    
  10. End Function