RosettaCodeData/Task/Window-creation/Run-BASIC/window-creation.run

18 lines
546 B
Plaintext

html "Close me!"
button #c, "Close Me", [doExit]
wait
' -----------------------------------------------------------------------------------
' Get outta here. depending on how may layers you are into the window (history level)
' If you are at the top level then close the window
' ----------------------------------------------------------------------------------
[doExit]
html "<script language='javascript' type='text/javascript'>
var a = history.length;
a = a - 1;
window.open('','_parent','');
window.close();
history.go(-a);
</script>"
wait