OpenEuphoria

Having trouble modifying tiny demo program

• Posted by vmars Jun 16, 2009
• 892 views

Trace shows that pgm runs fine. But doesn't give intended results [create( wxScrolledWindow doesn't show up].

Where can I go to find out what parameters are legal? When I search web for "create( wxScrolledWindow" + euphoria, I get nothing meaningful.

Thanks! ...Vern

include wxeud.e  
without warning  
with profile 
with trace 
trace(3) 
 
  
constant   
    main        = create( wxFrame, {0, -1, "TXTool", -1, -1, 400, 300} ),  
    panl         = create( wxPanel, main ), 
  
    scrollwin   = create( wxScrolledWindow, {panl, new_id(), "Red", 10, 10, 200, 200} ),  
-- scrollwin   = create( wxScrolledWindow, {pnl, new_id(), -1, -1, -1, -1, 0} ),  
    txted         = create( wxTextCtrl, {panl, -1, "Enter Text Here", 10, 300, 200, 200} ), 
--  txted         = create( wxTextCtrl, {panl, -1, "Enter Text Here", -1, -1} ), 
    scrollbox   = create( wxBoxSizer, {wxVERTICAL} )  
--    testbutton = create( wxButton, {panl, -1,"Test Me"}), 
--    quitbutton = create( wxButton, {panl, -1, "Quit"}) 
  
set_sizer( scrollwin, scrollbox )  
set_scrollbars( scrollwin, 0, 20, 0, 50, 0, 0, 0 )  
set_back_color( scrollwin, create(wxColour, {#FF,#00,#00}) ) 
 
  
-- fill the window with some buttons  
atom tempbtn  
for i = 1 to 20 do  
    tempbtn = create( wxButton, {scrollwin, -1, sprintf("Button %d", i), 0, 0, 90, 60} )  
    add_window_to_sizer( scrollbox, tempbtn, 0, wxGROW, 0 )  
end for  
  
wxMain( main )