var
  name: string;
  width, height: integer;

macro 'DisposeAll-ButOne [*]';
begin
  if KeyDown('option')<>1 then DisposeAll;
  if KeyDown('option') then begin
    name:=WindowTitle;
    GetPicSize(width,height);
    SelectAll;
    Copy;
    DisposeAll;
    MakeNewWindow(name,width,height);
    SetPicName(name);
    Paste;
    SelectTool('crosshair');
  end;
end;

macro 'Mag-Rect [0]';
begin
  if KeyDown('option')<>1 then SelectTool('magnifier');
  if KeyDown('option') then SelectTool('rect');
end;

macro 'hand-oval    [1]';
begin
  if KeyDown('option')<>1 then SelectTool('grabber');
  if KeyDown('option')=1 then SelectTool('oval');
end;

macro 'pencil-poly   [2]';
begin
  if KeyDown('option')<>1 then SelectTool('pencil');
  if KeyDown('option')=1 then SelectTool('polygon');
end;

macro 'eraser-freehand  [3]';
begin
  if KeyDown('option')<>1 then SelectTool('eraser');
  if KeyDown('option')=1 then SelectTool('freehand');
end;

macro 'brush-lines  [4]';
begin
  if KeyDown('option')<>1 then SelectTool('brush');
  if KeyDown('option')=1 then if KeyDown('control')<>1 then if KeyDown('shift')<>1 then SelectTool('straightline');
  if KeyDown('option')=1 then if KeyDown('control') then if KeyDown('shift')<>1 then SelectTool('freeline');
  if KeyDown('option')=1 then if KeyDown('control')<>1 then if KeyDown('shift') then SelectTool('segmentline');
  if KeyDown('option')=1 then if KeyDown('control') then if KeyDown('shift') then SelectTool('segmentline');
end;

macro 'segline-LUT    [5]';
begin
  if KeyDown('option')<>1 then SelectTool('drawline');
  if KeyDown('option')=1 then SelectTool('lut');
end;

macro 'paint-text   [6]';
begin
  if KeyDown('option')<>1 then SelectTool('paintbucket');
  if KeyDown('option')=1 then SelectTool('text');
end;

macro 'profile-spray   [7]';
begin
  if KeyDown('option')<>1 then SelectTool('profile');
  if KeyDown('option')=1 then SelectTool('spraycan');
end;

macro 'wand-picker    [8]';
begin
  if KeyDown('option')<>1 then SelectTool('wand');
  if KeyDown('option')=1 then SelectTool('picker');
end;

macro 'angle-crosshair   [9]';
begin
  if KeyDown('option')<>1 then SelectTool('angletool');
  if KeyDown('option')=1 then SelectTool('crosshair');
end;