The only way I know to do this, is to run the platform from within the Journal window
Names Default To Here( 1 );
New Window( "active journal",
<<journal,
Graph Builder(
Variables( X( :Group ), Y( :Quantity ) ),
Elements( Bar( X, Y, Legend( 4 ) ) )
)
);
Jim