Catch Filer Open Window

Is there a way to link into the the opening of the Filer window by the multiple FS (ADFS; SCSIFS,RAMFS etc.).
I guess it can be done with OS_ClaimVector. But I need some hints how…
Our !CLFiler works quiet fine now and would be nice to redirect the standard FS to open !CLFiler instead of the RISC OS filer if the users wishes.

Apparently not. There’s a message that is sent to tell the filer to open a directory, however the documentation states:

Perhaps by replacing the iconbar icon for the nominated filesystems, then you can handle it all yourself?

Perhaps by replacing the iconbar icon for the nominated filesystems, then you can handle it all yourself?

Certainly been done before, usually to gather multiple drive icons across multiple file systems into one iconbar icon.

You could use a Wimp Filter to intercept clicks on the drive icons of various filing systems. You would also need to trap *Filer_OpenDir commands from scripts.

You could set up a Wimp filter for the messages FilerOpenDir and FilerOpenDirAt, as well DataOpen (for filetypes &1000 and &2000).

Not sure if this captures all, but it provides a starting point.

Ok thanks for the ideas. Will not be done in short time but in the next major update.

The code below will set the current directory to the last file double-clicked by intercepting the DataOpen message. It is the method used by !MultiTask to make sure that if you double-click a file, the csd is set to the directory it came from so that you don’t have to bother about path names:

     320 : REM Now the main loop
     330 : REM
     340 : WHILE NOT(quit)
     350 :   SYS "Wimp_Poll",mask%,block TO reason
     360 :   CASE reason OF
     550 :   WHEN 17,18:PROCreceive(block)
     580 :   ENDCASE
     590 : ENDWHILE
     600 : SYS "Wimp_CloseDown"
     610 : END

    2600 : REM .... Message discrimination
    2610 : REM
    2620 : DEF PROCreceive(b)
    2630 : myr=b!8
    2640 : :
    2650 : CASE b!16 OF
    2710 : WHEN 5:PROCdoubleclick(b)
    2770 : ENDCASE
    2780 : :
    2790 : ENDPROC

   26280 : :
   26290 : REM .... DataOpen (5)
   26300 : REM
   26310 : DEFPROCdoubleclick(b)
   26320 : ptt$=FNgetname(b+44)
   26330 : filetype%=b!40
   26340 : SYS "OS_Byte",202,0,-1 TO ,shift%
   26350 : CASE filetype% OF
   26360 :  WHEN &2000:
   26370 :   IF shift% AND 64 THEN
   26380 :     OSCLI "Filer_OpenDir "+ptt$
   26390 :     OSCLI "Filer_CloseDir "+LEFT$(ptt$,LEN(ptt$)-LEN(FNleaf(ptt$))
           )
   26400 :     b!12=b!8
   26410 :     b!16=4
   26420 :     !b=232
   26430 :     SYS "Wimp_SendMessage",17,b,b!4
   26440 :     nameOK%=TRUE
   26450 :     LOCAL ERROR
   26460 :     ON ERROR LOCAL nameOK%=FALSE
   26470 :     IF nameOK% THEN OSCLI "Dir "+ptt$
   26480 :     IF nameOK% THEN csd$=ptt$
   26490 :     RESTORE ERROR
   26510 :   ENDIF
   26520 :  WHEN &1000:
   26530 :   IF shift% AND 64 THEN
   26540 :     OSCLI "Filer_OpenDir "+ptt$
   26550 :     OSCLI "Filer_CloseDir "+LEFT$(ptt$,LEN(ptt$)-LEN(FNleaf(ptt$))
           )
   26560 :     b!12=b!8
   26570 :     b!16=4
   26580 :     !b=232
   26590 :     SYS "Wimp_SendMessage",17,b,b!4
   26600 :   ENDIF
   26610 :   nameOK%=TRUE
   26620 :   LOCAL ERROR
   26630 :   ON ERROR LOCAL nameOK%=FALSE
   26640 :   IF nameOK% THEN OSCLI "Dir "+ptt$
   26650 :   IF nameOK% THEN csd$=ptt$
   26660 :   RESTORE ERROR
   26680 :  WHEN &FFF:
   26690 :   REM ignore (otherwise *Load ObeyFile [typed as &FFF] recurses vi
           a message broadcast by !IntoEdit whilst CTRL is held down)
   26700 :  OTHERWISE
   26710 :   nameOK%=TRUE
   26720 :   LOCAL ERROR
   26730 :   ON ERROR LOCAL nameOK%=FALSE
   26740 :   IF nameOK% THEN OSCLI "Dir "+LEFT$(ptt$,LEN(ptt$)-LEN(FNleaf(ptt
           $))-1)
   26750 :   IF nameOK% THEN csd$=LEFT$(ptt$,LEN(ptt$)-LEN(FNleaf(ptt$))-1)
   26760 :   RESTORE ERROR
   26780 :   IF shift% AND 64 THEN
   26790 :     b!12=b!8
   26800 :     b!16=4
   26810 :     !b=232
   26820 :     SYS "Wimp_SendMessage",17,b,b!4
   26830 :     OSCLI "Filer_CloseDir "+LEFT$(ptt$,LEN(ptt$)-LEN(FNleaf(ptt$))
           ):OSCLI"WimpTask *Load "+ptt$
   26840 :   ENDIF
   26850 : ENDCASE
   26860 : ENDPROC

Thanks Chris for the code example. Surely a good example how you can interfere in RISC OS.
But it didn’t trigger yet an idea how I can use that so it will redirect Filer_open to the !CLFiler.
Any further hint?

The example intercepts the ‘double click’ (&005 DataOpen) message from a filer window. The message &400 Message_FilerOpenDir is sent to ask the Filer to open a new directory see PRM 3-233. Filer modules send this message directly to the filer for the relevant filesystem and do not broadcast it (but the double click will already have been captured) so this will pick up any Filer_OpenDir commands (which have to be broadcast as the full pathname is part of the message).

Now I got it! Thanks!