Closing Filer windows in AppBasic

I have a very simple AppBasic App that opens two filer windows to get quick access to the Run/!Sprites/Res files and the contents of the !RunImage when any App is dragged over its iconbar icon. When other AppBasic Apps are dragged the filer windows remain open but I need them to close first (I’ve tried Filer_CloseDir but without much success). The DataLoad handler is as follows:

REM DataLoad

DEF PROCDealWith_DataLoad(file$,filetype%,window,icon)
IF filetype% <> 8192 THEN PROCUtils_Alert(“W A R N I N G…… File must be an ‘AppBasic’ Application”) : END
OSCLI
OSCLI
ENDPROC

Any thoughts as to how this should be done would be appreciated.

Filer_CloseDir will do what you want. Stick "bc. " on the front of the first line of your code example, it looks like it’s been “Textiled” so is missing the crucial bit.

Stick "bc. " on the front of the first line of your code example,

That should be "bc.. " (with two dots, not one), so that it includes the following lines. The first non-code line should then start "p. " (just the one dot this time) to return to normal text.

Filer_CloseDir will do what you want.

Agreed. I created a small app that as you describe and it works using the following code.

In !RunImage.Initial I have:

DEF PROCDealWith_InitialEvent
  AppDir$ = ""
ENDPROC

And in !RunImage.DataLoad:

DEF PROCDealWith_DataLoad(file$,filetype%,window%,icon%)
LOCAL flags%,objType%

  IF filetype% = &2000 THEN
    SYS "XOS_File",17,file$ + ".!RunImage" TO objType% ;flags%
    IF ((flags% AND 1) = 0) AND (objType% = &2) THEN
      IF AppDir$ <> "" THEN OSCLI "Filer_CloseDir " + AppDir$
      AppDir$ = file$
      OSCLI "Filer_OpenDir " + AppDir$
      OSCLI "Filer_OpenDir " + AppDir$ + ".!RunImage"
    ENDIF
  ENDIF

ENDPROC

That should be "bc.. " (with two dots, not one), so that it includes the following lines. The first non-code line should then start "p. " (just the one dot this time) to return to normal text.

I’ve tried doing this on the “Tests Forum” but I can’t get it work. I’ve tried various combinations of bc.. and p. with and without quotes.

The blockquote seems to work (well I hope it does after I’ve posted this but it logically ends with /blockquote and must be between <> characters). Perhaps I should type a carriage return after the bc.. or “bc..” or "bc.. "

I’ve tried doing this on the “Tests Forum” but I can’t get it work.

I’ve posted my attempt there with a possibly fuller explanation, and it seems to work OK.

Thank you Fred. Your example works like a dream! I wish I had your programming capability :-( I observe you have recently produced another programming tool with AppBasic – !StrongKey. I think it further illustrates the power of AppBasic. I’ve looked at DrWimp which is equally powerful but I’ve always found it quite disjointed in its structure. Splitting up the programming into smaller and manageable chunks with Event-handlers really works well and the Toolbox library is a stroke of genius. I only wish Joe Taylor was still developing it.