static          Lists  demo ;

extern "C" __declspec(dllexport) int          Ctrl_Resize( HWND wnd, int width, int height )

{

short          p_x, p_y, d_x, d_y ;

char   *          Tools_Font_Name =          (char *) Fct_Variable_Value( "$INTERFACE_TOOL_FONT_NAME" ) ;

char   *          Tools_Font_Weigth =          (char *) Fct_Variable_Value( "$INTERFACE_TOOL_FONT_WEIGHT" ) ;

short          Tools_Font_Scale =          (short)  Fct_Variable_Value( "$INTERFACE_TOOL_FONT_SCALE" ) ;

short          Border_Dim =          (short)  Fct_Variable_Value( "$INTERFACE_BORDER_DIM" ) ;

short          Cursor_Dim =          (short)  Fct_Variable_Value( "$INTERFACE_CURSOR_DIM" ) ;

short          Space_Dim =          (short)  Fct_Variable_Value( "$INTERFACE_SPACE_DIM" ) ;

p_x = Space_Dim ;

p_y = Space_Dim ;

d_x = width - 2*Space_Dim ;

d_y = 85 ;

demo.Pos_X     = p_x ;

demo.Pos_Y     = p_y ;

demo.Dim_X     = d_x ;

demo.Dim_Y     = d_y ;

demo.border    = Border_Dim ;

demo.cursor    = Cursor_Dim ;

demo.Font_Name   = Tools_Font_Name ;

demo.Font_Weight = Tools_Font_Weigth ;

demo.Font_Scale  = Tools_Font_Scale ;

// --- now create the buttons for this list ---

demo.Grow( 10 ) ;

for ( i=0; i < 10; i++ )

          demo.Item[i]->Set_Name( "but %d", i+1 ) ;

demo.Init( wnd ) ;

}