Changeset 4251


Ignore:
Timestamp:
Oct 28, 2020, 12:46:14 PM (4 years ago)
Author:
Andreas Schnellbacher
Message:
  • Fixed file switching for newly loaded files: Previously it wasn't sure that a file loaded by 'xcom e' is on top after loading.
  • Added InitFirstFid and NewUntitledFile.
Location:
trunk/src/netlabs/macros
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified trunk/src/netlabs/macros/edit.e

    r4248 r4251  
    708708defc Edit, e, ed
    709709   universal default_edit_options
    710    universal firstloadedfid  -- first file for this edit cmd, set here
    711    universal firstinringfid  -- first file in the ring, set by defmain
    712                              -- Both values are set by defmain, if only
    713                              -- the unknown file was loaded (via xcom edit).
    714710   universal mainstate
    715711   universal loadstate
    … …  
    994990      if firstfid <> '' then
    995991         -- Set fid for ProcessFilesLoaded
    996          firstloadedfid = firstfid
    997 
    998          -- Initialize firstinringfid if not already set by a previous Edit command
    999          if firstinringfid = '' then
    1000             firstinringfid = firstloadedfid
    1001          endif
     992         call InitFirstFid( firstfid)
    1002993      endif
    1003994
    … …  
    10941085defc OpenPath, OPath, op
    10951086   "Open 'ep "arg( 1)"'"
     1087
     1088; ---------------------------------------------------------------------------
     1089defc NewUntitledFile
     1090   'xcom e /n'
     1091   if rc = -282 then  -- sayerror 'New file'
     1092      getfileid newfid
     1093      call InitFirstFid( newfid)
     1094   endif
    10961095
    10971096; ---------------------------------------------------------------------------

  • TabularUnified trunk/src/netlabs/macros/epmshell.e

    r3957 r4251  
    202202; buffer is created.
    203203;
    204 ; Syntax: shell [new] [<command>]
     204; Syntax: Shell [new] [<command>]
    205205;
    206206; shell_index is the number of the last created shell, <shellnum>.
    … …  
    211211   universal shell_index
    212212   universal ring_enabled
    213    universal ShellStartFid
     213   universal shellstartfid
    214214
    215215   if not ring_enabled then
    … …  
    242242   fShellStartFidInRing = 0
    243243   -- Need to check if not empty
    244    if ShellStartFid <> '' then
    245       if validatefileid( ShellStartFid) then
     244   if shellstartfid <> '' then
     245      if validatefileid( shellstartfid) then
    246246         fShellStartFidInRing = 1
    247247      endif
    … …  
    256256               if ShellNum > shell_index then
    257257                  if fShellStartFidInRing then
    258                      ShellFid = ShellStartFid
     258                     ShellFid = shellstartfid
    259259                  else
    260260                     -- if only 1 buffer in the ring, create a new one
    … …  
    299299
    300300      else
    301          ShellStartFid = CurFid
     301         shellstartfid = CurFid
    302302         if fSwitch then
    303303            -- Find first shell buffer, handle already closed shells
    … …  
    359359         endif
    360360         getfileid ShellFid
     361         -- Set firstloadedfid for ProcessPostFilesLoaded
     362         call InitFirstFid( ShellFid)
    361363         .filename = '.command_shell_'ShellNum
    362364         if not IsABackupFileName() then
    … …  
    380382         endif
    381383      endif
    382       --dprintf( 'shellhandle = 0x'ltoa( ShellHandle, 16)', newObject.retval = 'retval)
     384      --dprintf( 'ShellHandle = 0x'ltoa( ShellHandle, 16)', newObject.retval = 'retval)
    383385   else
    384386      activatefile ShellFid
    … …  
    485487; If <text> is missing, the 'Write to shell' EntryBox opens.
    486488defc ShellWrite, Shell_Write
    487    universal ShellHandle
    488    universal Shell_lastwrite
     489   universal shelllastwrite
     490
    489491   parse arg ShellNum Text
    490492   --dprintf( 'ShellWrite: ShellNum Text = 'ShellNum Text)
    … …  
    515517                                  '/'OK__MSG'/'Cancel__MSG'/',  -- Buttons
    516518compile endif
    517                                   Shell_lastwrite,              -- entrytext
     519                                  shelllastwrite,               -- entrytext
    518520                                  '', 254,                      -- cols, maxchars
    519521                                  atoi( 1) || atoi( 0000) || GethWndC( APP_HANDLE) ||
    … …  
    571573               call buffer( FREEBUF, bufhndl)
    572574               if button = \2 then -- 'Edit' selected
    573                   Shell_lastwrite = Text
     575                  shelllastwrite = Text
    574576                  iterate
    575577               endif
    … …  
    581583      endif  -- text = ''
    582584      if Text <> '' then
    583          Shell_lastwrite = Text
     585         shelllastwrite = Text
    584586      endif
    585587      writebuf = Text\13\10
    … …  
    10701072      activatefile IniFid
    10711073      .modify = 0
    1072       'Quit'
     1074      'xcom quit'
    10731075
    10741076      -- Sort temp file to allow for finding the longest matched key
    … …  
    17981800
    17991801defc ShellHistory, Shell_History
    1800    universal Shell_lastwrite
     1802   universal shelllastwrite
    18011803
    18021804   parse arg ShellNum Text
    … …  
    18131815
    18141816   if ShellHandle <> '' then
    1815       if Text <> '' then Shell_lastwrite = Text; endif
     1817      if Text <> '' then
     1818         shelllastwrite = Text
     1819      endif
    18161820
    18171821      shell_title = strip( WRITE_SHELL_MENU__MSG, 'T', '.')  -- '~Write to shell...'
    … …  
    18731877         call buffer( FREEBUF, bufhndl)
    18741878         if Button = \2 then -- 'Edit' selected
    1875             Shell_lastwrite = Text
     1879            shelllastwrite = Text
    18761880            parse value EntryBox( shell_title,                  -- Title,
    18771881compile if EPM_SHELL_PROMPT = '@prompt epm: $p $g' | EPM_SHELL_PROMPT = '@prompt [epm: $p ]'
    … …  
    18801884                                  '/'OK__MSG'/'Cancel__MSG'/',  -- Buttons
    18811885compile endif
    1882                                   Shell_lastwrite,              -- Entrytext
     1886                                  shelllastwrite,               -- Entrytext
    18831887                                  '', 254,                      -- cols, maxchars
    18841888                                  atoi( 1) || atoi( 0000) || GethWndC( APP_HANDLE) ||
    … …  
    19101914
    19111915defc ShellInput, Shell_Input
    1912    universal Shell_lastwrite
     1916   universal shelllastwrite
    19131917   parse arg Text
    19141918   ShellNum = ''
    … …  
    19261930   if ShellHandle <> '' then
    19271931      if Text <> '' then
    1928          Shell_lastwrite = Text
     1932         shelllastwrite = Text
    19291933      endif
    19301934      writebuf = Text\13\10  -- input text + CRLF

  • TabularUnified trunk/src/netlabs/macros/groups.e

    r4062 r4251  
    361361         subword( ThisFile, 2)  -- execute the command
    362362      elseif ThisFile = GetUnnamedFilename() then
    363          'xcom e /n'
     363         'NewUntitledFile'
    364364      else
    365          'e /np 'EnquoteFilespec( ThisFile)'"'  -- /np = no pos restore from EA
     365         'Edit /np 'EnquoteFilespec( ThisFile)'"'  -- /np = no pos restore from EA
    366366      endif
    367367      if not rc | rc = sayerror( 'Lines truncated') then

  • TabularUnified trunk/src/netlabs/macros/main.e

    r4112 r4251  
    189189defc ProcessPostMain
    190190   universal nepmd_hini
    191    universal firstinringfid
    192    universal firstloadedfid
    193191
    194192   getfileid unnamedfid
    … …  
    267265         -- universal vars to make ProcessFilesLoaded happy.
    268266         -- Usually they are set by defc edit.
    269          firstloadedfid = newfid  -- first file for this edit cmd
    270          firstinringfid = newfid  -- first file in the ring
     267         call InitFirstFid( newfid)
    271268         dprintf( 'MAIN_EMPTY_FILE', 'now filesinring = 'filesinring())
    272269      endif

  • TabularUnified trunk/src/netlabs/macros/newmenu.e

    r4243 r4251  
    257257   DefMenuItem( '',                                                           -- New
    258258                'N~ew',
    259                 'xcom e /n',
     259                'NewUntitledFile',
    260260                'Create a new, empty file in this window',
    261261                HP_FILE_EDIT)

  • TabularUnified trunk/src/netlabs/macros/select.e

    r4193 r4251  
    130130
    131131; ---------------------------------------------------------------------------
     132defproc InitFirstFid( fid)
     133   universal firstloadedfid
     134   universal firstinringfid
     135
     136   -- Set firstloadedfid for ProcessPostFilesLoaded. It will be reset after
     137   -- processing.
     138   if firstloadedfid = '' then
     139      firstloadedfid = ShellFid
     140      -- Set firstinringfid if unset
     141      if firstinringfid = '' then
     142         firstinringfid = firstloadedfid
     143      endif
     144   endif
     145
     146   return
     147
     148; ---------------------------------------------------------------------------
    132149; This cmd is posted once by defselect after all files are loaded.
    133150defc ProcessPostFilesLoaded
    … …  
    140157   if IsNum( firstloadedfid) then
    141158      call pActivateFile( firstloadedfid)
    142    elseif IsNum( lastselectedfid) then
    143       -- This should work for virtual files
    144       call pActivateFile( lastselectedfid)
    145159   endif
    146160   firstloadedfid = ''

  • TabularUnified trunk/src/netlabs/macros/showattr.e

    r3882 r4251  
    157157      attrib_fid.titletext = 'Attribute summary for' start_fid.filename
    158158      attrib_fid.modify = 0
     159      call InitFirstFid( attrib_fid)
    159160      'postme monofont'
    160161   else

  • TabularUnified trunk/src/netlabs/macros/tree.e

    r4063 r4251  
    182182   endif
    183183   getfileid treefid
     184   call InitFirstFid( treefid)
    184185
    185186   'xcom e /c .dirs'
    … …  
    265266      return rc
    266267   endif
    267 
    268268   getfileid treefid
     269   call InitFirstFid( treefid)
     270
    269271   FileCount = 0
    270272   TotalSize = 0
Note: See TracChangeset for help on using the changeset viewer.