| From: | Simon Hitchen |
| Date: | 16 Aug 2000 at 11:06:29 |
| Subject: | Re: Workbench window address |
At 16:26 15/08/00 -0700, you wrote:
>Could you post your resulting "find WB window" code then? :)
It was something like this:
name$="Workbench"
address.l=0
FindScreen 0
*scr\Screen = Peek.l (Addr Screen(0))
*wnd.Window = *scr\FirstWindow
While *wnd
If *wnd\Title
If Peek.s(*wnd\Title) = name$
If (*wnd\IDCMPFlags AND $18000) = $18000
address.l = *wnd ; WoooHoooo.... found it :)
EndIf
EndIf
EndIf
*wnd\Window = *wnd\NextWindow
Wend
If address.l
NPrint address.l
Else
NPrint "Bugga"
EndIf
MouseWait
End
>See ya,
>--
>James L Boyd (Member of DNRC),
>Connected from Fife, Scotland.
>Death to the Pixies!
>--
>
>
>
>---------------------------------------------------------------------
>To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
>For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie
----------------
simon@satanicdreams.com
si@redhotant.com
UIN# 22707489
---------------------------------------------------------------------
To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie