#Include "wx-c 0.9.2/wx.bi"

Declare Function App_OnInit WXCALL ( ) As wxBool
Declare Function App_OnExit WXCALL ( ) As wxInt


Dim Shared As wxApp Ptr wx_app
Dim Shared As wxFrame Ptr wx_frame
Dim Shared As wxPanel Ptr wx_panel

Function App_OnInit WXCALL ( ) As wxBool

    wx_frame = wxFrame_ctor( )
    wxFrame_Create( wx_frame, WX_NULL, -1, wxString_ctorUTF8("svTätigkeiten"), 246, 188, 733, 670, wxFRAME_DEFAULT_STYLE Or wxCLOSE_BOX Xor wxMAXIMIZE_BOX Xor wxRESIZE_BORDER, WX_NULL )
    wx_panel = wxPanel_ctor2( wx_frame, -1, -1, -1, -1, -1, 0, WX_NULL )

    ''
    '' create widget staticbox0
    ''
    Dim As wxStaticBox Ptr staticbox0
    staticbox0 = wxStaticBox_ctor( )
    wxStaticBox_Create( staticbox0, wx_panel, -1, wxString_ctorUTF8("Sucheingaben"), 10, 10, 650, 80, 0, 0 )

    ''
    '' create widget stattext0
    ''
    Dim As wxStaticText Ptr stattext0
    stattext0 = wxStaticText_ctor( )
    wxStaticText_Create( stattext0, wx_panel, -1, wxString_ctorUTF8("3-stelliger Schlüssel"), 30, 40, 120, 20, 0, 0 )


    ''
    '' create widget stattext1
    ''
    Dim As wxStaticText Ptr stattext1
    stattext1 = wxStaticText_ctor( )
    wxStaticText_Create( stattext1, wx_panel, -1, wxString_ctorUTF8("5-stelliger Schlüssel"), 510, 40, 110, 20, 0, 0 )


    ''
    '' create widget stattext2
    ''
    Dim As wxStaticText Ptr stattext2
    stattext2 = wxStaticText_ctor( )
    wxStaticText_Create( stattext2, wx_panel, -1, wxString_ctorUTF8("Tätigkeitsbezeichnung"), 250, 40, 140, 20, 0, 0 )

    ''
    '' create widget list0
    ''
    Dim As wxArrayString Ptr list0_str
    list0_str = wxArrayString_ctor( )
    wxArrayString_Add( list0_str, wxString_ctorUTF8( "list0" ) )
    Dim As wxListBox Ptr list0
    list0 = wxListBox_ctor( )
    wxListBox_Create( list0, wx_panel, -1, wxPoint_ctor( 10, 340 ), wxSize_ctor( 310, 280 ), list0_str, 0, 0, 0 )


    ''
    '' create widget list1
    ''
    Dim As wxArrayString Ptr list1_str
    list1_str = wxArrayString_ctor( )
    wxArrayString_Add( list1_str, wxString_ctorUTF8( "list1" ) )
    Dim As wxListBox Ptr list1
    list1 = wxListBox_ctor( )
    wxListBox_Create( list1, wx_panel, -1, wxPoint_ctor( 330, 340 ), wxSize_ctor( 380, 280 ), list1_str, 0, 0, 0 )


    ''
    '' create widget txtBez
    ''
    Dim As wxTextCtrl Ptr txtBez
    txtBez = wxTextCtrl_ctor( )
    wxTextCtrl_Create( txtBez, wx_panel, -1, wxString_ctorUTF8(""), 210, 70, 220, 30, 0, 0, 0 )


    ''
    '' create widget txt3T
    ''
    Dim As wxTextCtrl Ptr txt3T
    txt3T = wxTextCtrl_ctor( )
    wxTextCtrl_Create( txt3T, wx_panel, -1, wxString_ctorUTF8(""), 30, 70, 100, 30, 0, 0, 0 )


    ''
    '' create widget txt5T
    ''
    Dim As wxTextCtrl Ptr txt5T
    txt5T = wxTextCtrl_ctor( )
    wxTextCtrl_Create( txt5T, wx_panel, -1, wxString_ctorUTF8(""), 510, 70, 100, 30, 0, 0, 0 )


    ''
    '' create widget slider0
    ''
    Dim As wxSlider Ptr slider0
    slider0 = wxSlider_ctor( )
    wxSlider_Create( slider0, wx_panel, -1, 0, 0, 100, 670, 290, 20, 20, 0 Or wxSL_LABELS, 0, 0 )
    wxSlider_SetValue( slider0, 0 )



    wxWindow_Show( wx_frame, 1 )
    wxApp_OnInit( wx_app )
    Return 1

End Function

Function App_OnExit WXCALL ( ) As wxInt

    Return wxApp_OnExit( wx_app )

End Function


''main
wx_app = wxApp_ctor( )
wxApp_RegisterVirtual ( wx_app, @App_OnInit, @App_OnExit )
wxApp_Run(0, 0)