Enhancement for Get_Sessin_Type$

mueh
Senior Member

Posts: 420

Enhancement for Get_Sessin_Type$ May 31, 2019 12:20:58 GMT -5

Quote

Post by mueh on May 31, 2019 12:20:58 GMT -5

Hi George !

Use now Macro Command in File Manager Tab (since 10.1 working) to set Commands to command line

with my own Command RETRIEVE Macro depending on Session Type File Path Name or Ext .

Would need following update to Get_Session_Type$ Function to know if i'm in FM Tab and

with new Get_Session_Title$ i can get type of FM display active .

Another usefull function i wish to have is to set CSR in Line 0 . Set_Csr(0,col) should set Csr in Command Line .
FUNCTION SET_CSR() AS EXT
'IF ilno > 0 AND ilno < TP.LastLine THEN ' Within range?
IF ilno >= 0 AND ilno < TP.LastLine THEN ' Within range?

I'm not shure if above Change is enough to work both in FM and Edit .

It also would be nice to have a Get_INI_FileName$ Function .
Would you be so kind to add this untested functions into next relase .

_BMacro.inc

         CALL DWORD hProc_thinBasic_LoadSymbol USING thinBasic_LoadSymbol("GET_SESSION_TITLE$",     %thinBasic_ReturnString, CODEPTR(Get_SESSIONTITLE))

         CALL DWORD hProc_thinBasic_LoadSymbol USING thinBasic_LoadSymbol("GET_INI_FILENAME$",      %thinBasic_ReturnString, CODEPTR(Get_INIFILENAME))



FUNCTION GET_INIFILENAME() AS STRING

'---------- Get the current INI FileName

   gMacroTHeader = "Get_INI_FileName$() "

   FUNCTION = ENV.INIFileName: QErrorNull                         ' Pass back full INI FN

   DoTrace                                                        ' Do trace if needed

END FUNCTION



FUNCTION Get_SESSIONTYPE() AS STRING

'---------- Get Tab type

LOCAL lText AS STRING

   gMacroTHeader = "Get_Session_Type$() "

'  lText = SWITCH$(IsBrowse, "BROWSE", IsView, "VIEW", IsClip, "CLIP-EDIT", IsSetEdit, "SET-EDIT", %True, "EDIT")

   lText = SWITCH$(IsBrowse, "BROWSE", IsView, "VIEW", IsClip, "CLIP-EDIT", IsSetEdit, "SET-EDIT", IsFMTab, "FM", %True, "EDIT")

   IF lText = "VIEW" AND TP.TIPROStat THEN lText = "RDONLY"

   IF IsMedit THEN lText = "MEDIT"                                ' If MEdit, re-do it all

   FUNCTION = lText

   QErrorNull                                                     ' ZRC = OK

   DoTrace                                                        ' Do trace if needed

END FUNCTION



FUNCTION Get_SESSIONTITLE() AS STRING

   gMacroTHeader = "Get_Session_Title$() "

      '---------- Return the formatted Window Title Bar text. Code taken from METHOD WindowTitle()

      LOCAL TX AS ASCIIZ * 200, lText, lVer AS STRING

         lVer = IIF$(ISNULL(Env.Title), "(v" + ENV.PgmVers + ")", "(" + ENV.Title + ")")

         IF IsClip THEN                                           ' CLIP mode?

            TX = "CLIP - SPFLite" + lVer                          '



         ELSEIF IsSetEdit THEN                                    ' SETEdit mode?

            TX = "SET-Edit - SPFLite" + lVer                      '



         ELSEIF IsMEdit THEN                                      ' Multi-Edit mode?

            TX = "Multi-Edit - SPFLite" + lVer                    '



         ELSEIF IsFMTab THEN                                      ' File Manager?

            IF ISNOTNULL(FileListNm) THEN                         ' Got a filelist name?

               TX = FileListNm + " - FILELIST - File Manager - SPFLite" + lVer

            ELSE                                                  '

               TX = "File Manager - SPFLite" + lVer               '

            END IF                                                '



         ELSEIF TIP.FilePath = $Empty THEN                        ' FileTitle chosen?

            TX = $Empty + " - SPFLite" + lVer                     '



         ELSE                                                     '

            lText = SWITCH$(IsBrowse, "BROWSE - ", IsView, "VIEW - ", %True, "EDIT - ")

            TX = lText + TP.TIPFile + " - SPFLite" + lVer + " - " + TP.TIPFilePath

         END IF                                                   '

   FUNCTION = TX

   QErrorNull                                                     ' ZRC = OK

   DoTrace                                                        ' Do trace if needed

END FUNCTION

Last Edit: Jun 1, 2019 3:28:09 GMT -5 by mueh

George
Administrator

Posts: 4,051

Enhancement for Get_Sessin_Type$ Jun 1, 2019 10:39:49 GMT -5

Quote

Post by George on Jun 1, 2019 10:39:49 GMT -5

MUEH: Did you get the email I sent you regarding Macro support in FM? I sent it to xxxxx.muehxxxxxx@aon.at ?

We're quite far along in providing a new set of functions for FM and I wanted your input.

Re: Get_INIFile - is Get_INIPath not sufficient, or are you modifying the INI file via the command line -I parameter?

The Set_Csr change will not work. The CurSetReq function will only handle cursor positioning within the text area. Cursor positioning is much trickier than you would believe, it is because in a single interaction so many different functions all try to set the cursor based on their own little piece. The priorities are handled and then after everyone's done, XRebuild may come along to shuffle all the line numbers around. And all the logic that handles this is built with a 'text lines only' basis.

George

mueh
Senior Member

Posts: 420

Enhancement for Get_Sessin_Type$ Jun 1, 2019 14:34:39 GMT -5

Quote

Post by mueh on Jun 1, 2019 14:34:39 GMT -5

Sorry George !
I wrote this because i hit a PFK excuting my RETRIEVE macro which inserts cmd into command line with Set_Line(0 and i was suprised that it
worked in FM . So i wanted a way to know if we are in FM and used Get_Session_Type$.
Looked now in my email (i 'm lazy and look only once a week ) and i got it .
I will look into all the FM Functions which should solve much more as i need .
Re: Get_INIFile . I use several Instances of SPFLite all having different INI Files with -INIT Parameter so it would be
usefull to know it in Macro .
Re: Set_Csr . When i set cmd to command line i sometimes want to a possition CSR in command txt which needs to be overtyped before command is executed .
In EDIT i postion Cursor to LPTR 1 and move it with UP key ( has some disadvantages if not on top of File ) .
If it is to tricky to implement forget that request .

What is needed is that Set_Line(0, followed by Set_Msg(4, which works now in FM could be done in next Releases .
Thanks

Last Edit: Jun 2, 2019 0:45:51 GMT -5 by mueh

George
Administrator

Posts: 4,051

Enhancement for Get_Sessin_Type$ Jun 2, 2019 10:32:57 GMT -5

Quote

Post by George on Jun 2, 2019 10:32:57 GMT -5

mueh: I'll send you an updated macro summary. One new macro, which will help both FM and normal macros is a new SPF_Post_Do(string) macro. It allows a macro to setup a DO macro string which will be executed immediately following the macro. Since macros cannot invoke cross-tab activities, like opening a file in a new tab, this could alleviate that. e.g. the macro could end and have the DO string issue an "EDIT filename" type command. It can't issue a DO string and keep control, it all happens POST macro activity.

George