Modal dialog

mdialog(Top,Left,Depth,Width,DItems,
	   Button)

mdialog(Top,Left,Depth,Width,DItems,
           Button,Goal)

• Modal dialog - must be responded to before anything else is done

person(Ints,Occupation) :-
 mdialog(40,30,190,250,
 [button(157,177,26,66,'OK'),
  button(160,10,20,60,'Cancel'),
  text(15,20,20,40,'Age:'),
  edit(15,60,20,40,'21',Age),
  radio(7,150,20,80,'Male',off,Male),
  radio(23,150,20,80,'Female',on,Female),
  text(50,10,20,100,'Interests:'),
  text(50,140,20,100,'Occupation:'),
  menu(70,10,82,100,['Art','Badminton','Cinema',
    'Dancing','Eating','Fishing','Hiking'],
  [],Ints, 'Courier',12,1),
  menu(70,140,82,100,['Electrician','Gardner',
    'Scientist','Baker','Dressmaker','Baker',
    'Cab Driver'], 'Scientist',
  Occupation, 'Courier',12,2,red)], Response).

• Interests menu is a multiple selections menu - with no items selected - hence the use of the empty list
• Occupation menu is a single selection menu - as no list is used in its specification
• Note also that the occupation menu appears in red

  
Figure 19: A modal dialog with menus