package Mouse is
pragma Pure;
-- Represents the buttons on a three-button mouse.
type Mouse_Button is (Mouse_Left, Mouse_Right, Mouse_Middle);
-- Returns Mouse_Button 'mb' as a string: "Left", "Right", or "Middle".
function To_String( mb : Mouse_Button ) return String;
end Mouse;