BEGIN external class windowtools; INSPECT NEW MainWindow( "Main Window" ) DO BEGIN REF(ItemList) MyPL; REF(BoolItemWindow) BItem; REF(TextItemWindow) TItem; REF(CharItemWindow) CItem; REF(IntItemWindow) IItem; REF(RealItemWindow) RItem; REF(button) Quit; % Si vous voulez tester... % REF(ItemList) PROCEDURE MakeItemList; % BEGIN % MakeItemList :- NEW ItemList( THIS XWindow ). PlaceAfter( LastSubwindow % ). Show; % END; % Inutile normalement... (car dans XWindow) SetSize( 500, 500 ); MyPL :- MakeItemList; BItem :- MyPL. MakeBoolItem( "Bool Label" ); TItem :- MyPl. MakeTextItem( "Text Label", 10 ). put( "default" ); CItem :- MyPL. MakeCharItem( "Char Label" ); IItem :- MyPL. MakeIntItem( "Int Label", 7 ); RItem :- MyPL. MakeRealItem( "Real Label", 5 ); MyPL. Show; Quit :- MakeButton( "Ok" ). PlaceDownRight; SetBackground( "gray44" ); Show; Quit. Wait; sysout. outtext( IF BItem. get THEN "true" ELSE "false" ); sysout. outimage; sysout. outtext( TItem. get ); sysout. outimage; sysout. outchar( CItem. get ); sysout. outimage; sysout. outint( IItem. get, 7 ); sysout. outimage; sysout. outfix( RItem. get, 4, 10 ); sysout. outimage; END; END;