| From: | Sami N��t�nen |
| Date: | 18 Aug 2000 at 13:40:24 |
| Subject: | Re: Workbench window address |
On 16-Aug-00, Simon Hitchen wrote.
> At 16:26 15/08/00 -0700, you wrote:
>
>> Could you post your resulting "find WB window" code then? :)
Would be better to use disable - enable around it, because somebody could
closewb while you try to examine the screen struct and thats ...
> It was something like this:
>
> name$="Workbench"
Disable_()
> address.l=0
*scr.Screen=OpenWorkBench_()
if *scr=0 then Enamble_() : end
> *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
Enable_()
> 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
>
Sami N��t�nen
EMail: sami@naatanen.com
---------------------------------------------------------------------
To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie