| From: | amorel |
| Date: | 3 Jul 2001 at 22:49:27 |
| Subject: | Re: Guru 8000000b |
On 03-Jul-01, David McMinn wrote:
C=Hi amorel
C=> C=There might be a problem with that, since RTLockWindow would open up
C=> C=an invisible requester on your window. And since the ASL is also a
C=> C=requester, perhaps you cannot open 2 at the same time??
C=>
C=> Perhaps, but why didn`t anything happen on OS3.5? And nothing happened on
C=> OS3.0 either(an extra A1200 I got). Strange.
C=Not sure. I can't remember ever seeing that problem, but I don't think I
C=put up the two requesters before.
C=It might be something they broke in asl.library for OS3.1 and then fixed
C=again in OS3.5? I dunno, it sounds strange. I just tried this program on
C=OS3.1 and it seemed to work OK - it sounds similar code to what you have.
I use this code and it gurus right at the first rtlockwindow command.
Function.s aslfilerequest{title$,pathname$,filename$,pat$,save.b,drawer.b}
lock.l=LockWindow{Used Window}
*scr.Screen=Peek.l(Addr Screen(Used Screen))
top.w=0
left.w=0
width.w=ScreenWidth/2 ; remove /2 for full-screen requester! ;)
height.w=ScreenHeight
Dim Tags.TagItem(13)
Tags(0)\ti_Tag=#ASLFR_Screen,*scr
Tags(1)\ti_Tag=#ASLFR_InitialPattern,&pat$
Tags(2)\ti_Tag=#ASLFR_TitleText,&title$
Tags(3)\ti_Tag=#ASLFR_InitialFile,&filename$
Tags(4)\ti_Tag=#ASLFR_InitialDrawer,&pathname$
Tags(5)\ti_Tag=#ASLFR_InitialLeftEdge,left
Tags(6)\ti_Tag=#ASLFR_InitialTopEdge,top
Tags(7)\ti_Tag=#ASLFR_InitialWidth,width
Tags(8)\ti_Tag=#ASLFR_InitialHeight,height
Tags(9)\ti_Tag=#ASLFR_DoSaveMode,save.b
Tags(10)\ti_Tag=#ASLFR_DrawersOnly,drawer.b
Tags(11)\ti_Tag=#ASLFR_DoPatterns,True
Tags(12)\ti_Tag=#TAG_END,0
*filereq.FileRequester=AllocAslRequest_(#ASL_FileRequest,&Tags(0))
If *filereq
ok.l=AslRequest_(*filereq,&Tags(0))
If ok
f$=Peek.s(*filereq\fr_Drawer)
If f$<>"" Then If Right$(f$,1)<>":" AND Right$(f$,1)<>"/" Then f$=f$+"/"
f$=f$+Peek.s(*filereq\fr_File)
EndIf
FreeAslRequest_(*filereq)
EndIf
If lock
UnlockWindow{Used Window,lock.l}
EndIf
Function Return f$
End Function
Dunno where I got it, statfuncs perhaps.
Regards
-*R u an AOL l33t? ----------> Amoralplayer1.5, a no fuss audioplayer*-
---------------------------------------------------------------------
To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie