on 1:ACTIVE:*:{
if ($dialog(d)) {
if ($active != @Test) dialog -sb d 0 0 0 0
else { dialog -sb d 1 100 80 80 }
}
}
on *:CLOSE:@Test:if ($dialog(d)) { dialog -x d }
alias -l t {
if ($window(@test)) && (!$dialog(d)) { dialog -ma d d }
}
alias tw { window @test | t }
dialog -l d {
option dbu
size 1 100 80 80
Text "Example",1,10 30 40 10
}