No idea how that could be done.
But if you wish to provide very annoying user experience you can use graphic scripts
Names Default To Here(1);
nw = New Window("Example", <<size(200, 200),
gb = Graph Box(
Frame Size(1, 1)
),
box = V Splitter Box(
Size(640, 480),
H Splitter Box(
Spacer Box(
<<Set Fill(1);
<<Color(RGB Color(9, 112, 84));
),
Spacer Box(
<<Set Fill(1);
<<Color(RGB Color(255, 222, 0));
)
),
H Splitter Box(
Spacer Box(
<<Set Fill(1);
<<Color(RGB Color(101, 153, 255));
),
Spacer Box(
<<Set Fill(1);
<<Color(RGB Color(255, 153, 0));
)
)
)
);
(gb << Xpath("//AxisBox")) << visibility("Collapse");
Eval(EvalExpr(
gb[FrameBox(1)] << Add Graphics Script(
Expr(nw) << Zoom Window;
);
));
-Jarmo