{
 przykîad.pas
}
Program przykîad;
const
  taglist : array[0..2] of tTagItem =
            (( ti_Tag : GA_TOP ; ti_Data : 100 ),
             ( ti_Tag : PGA_NEWLOOK ; ti_Data : TRUE_ ),
             ( ti_Tag : TAG_END ));
var
   obj     : pGadget;
   win     : pWindow;
   currval : ULONG;  
   dummy   : long;
   t       : array[0..4] of ULONG ;
   s       : string;
begin
    { ...Otwarcie biblioteki Intuition oraz okna !  }
   
    { Powoîanie obiektu }
    s := 'propgclass'#0; { identyfikator klasy }
    obj = pGadget(NewObjectA( NULL , @s[1] , @taglist[0] )); 
    
    { 
      Obiekty BOOPSI w zaleûnoôci od klasy mogâ byê wykorzystane
      w róûnym kontekscie . W tym przykîadzie obiekt jest traktowany
      jak zwykîy gadget.
    }
    dummy := AddGList( win , obj , $FFFF , -1, NIL);  
    RefreshGList( obj , win , NIL , -1);
    
    { ...  }
    
    { Pobranie wartoôci atrybutu }
    dummy := GetAttr( PGA_TOP , obj , @currval ); 
    
    { ... }

    { Zmiana wartoôci atrybutu  }
    currval = 1234;
    t[0] := PGA_TOP ; t[1] := currval ; { tak jest mniej pisania }
    t[2] := TAG_END ;
    dummy := SetGadgetAttrsA( obj , win , NULL , @t[0] );
    
    { ... }

     dummy := RemoveGlist( win , obj , -1 );
     DisposeObj( obj ); { usuniëcie obiektu }
    
    { ... Sprzâtanie... } 
end.