/* scorre5  scrolling menu */
/* installa menu tipo scorrimento */
/* menu(Y,X,H,L,opzioni,preselezionati,selezionati,font,size,stile) */

ese:-tipi(Disegni,Sfondi).

tipi(Disegni,Sfondi):-
 disegni(D1),
 sfondi(S1),
 D1=[PrimoD|RestoD],
 S1=[PrimoS|RestoS],
 dialog('disegnare',60,10,180,350,
 [button(65,147,20,60,'OK'),
  button(100,147,20,60,'cancella'),
  text(10,15,20,70,'Disegni'),
  menu(35,15,120,110,D1,PrimoD,Disegni,'Geneva',14,0),
  text(20,225,20,70,'Sfondi'),
  menu(35,225,120,110,S1,PrimoS,Sfondi,'Monaco',12,2)],
 Btn).

disegni([rettangolo,ovale,cerchio,quadrato,triangolo,arco,settore]).
sfondi([hash,speckled,crosses,diamonds,diag,horiz,rdiag,blank]).

/* scorre6  scrolling menu */
/* installa menu tipo scorrimento */
/* menu(Y,X,H,L,opzioni,preselezionato,selezionato) */

ese:-tipi(Disegni,Sfondi).

tipi(Disegni,Sfondi):-
 disegni(D1),
 sfondi(S1),
 D1=[PrimoD|RestoD],
 S1=[PrimoS|RestoS],
 dialog('disegnare',60,10,180,350,
 [button(65,147,20,60,'OK'),
  button(100,147,20,60,'cancella'),
  text(10,15,20,70,'Disegni'),
  menu(35,15,120,110,D1,RestoD,Disegni),
  text(20,225,20,70,'Sfondi'),
  menu(35,225,120,110,S1,PrimoS,Sfondi)],
 Btn).

disegni([rettangolo,ovale,cerchio,quadrato,triangolo,arco,settore]).
sfondi([hash,speckled,crosses,diamonds,diag,horiz,rdiag,blank]).