Changeset 2878

Timestamp:

Jan 14, 2018, 10:35:43 PM (7 years ago)

Author:

Andreas Schnellbacher

Message:

• Added proc AddToCommandBox and extended AddToHistory. This is used in GrepDlg.

File:

• trunk/src/netlabs/macros/filelist.e (modified) (2 diffs)

trunk/src/netlabs/macros/filelist.e ¶

@@ -430 +430 @@
 
 ; ---------------------------------------------------------------------------
+; This won't add an entry while the CommandLine is open.
+defproc AddToCommandBox( NewItem)
+   universal app_hini
+
+   MaxLength = 1599     -- for ETK strings
+   Delim = \0
+   MarkupString = '.** CommandBox'\0
+   LenMarkup = length( MarkupString)
+   -- History items are saved reversed, MarkupString''OldestItem -> NewestItem''MarkupString.
+   History = QueryProfile( app_hini, 'EPM', 'CommandBox')
+   LenHistory = length( History)
+
+   if History = '' then
+      -- nop
+   -- Check presence of markup string
+   elseif leftstr( History, LenMarkup) <> MarkupString |
+      rightstr( History, LenMarkup) <> MarkupString then
+      return
+   else
+      -- Strip MarkupString
+      History = substr( History, LenMarkup + 1, LenHistory - (2 * LenMarkup))
+   endif
+
+   -- Append NewItem to History
+   History = History''NewItem''Delim
+
+   -- Reverse history string.
+   RevHistory = reverse( History)
+
+   -- Limit string to MaxLength, separate at history entries
+   rest = RevHistory
+   NewHistory = ''
+   do forever
+      if rest = '' then
+         leave
+      endif
+      -- Get next item
+      parse value rest with next (Delim) rest
+      if next = '' then
+         iterate
+      endif
+      -- Check length
+      if length( NewHistory) + 1 + length( next) > MaxLength - (2 * LenMarkup) then
+         leave
+      endif
+      if next = '' then
+         iterate
+      endif
+      -- Append delimiter and next item to reversed history
+      NewHistory = NewHistory''Delim''next
+   enddo
+   RevHistory = NewHistory
+
+   -- Reverse history string back
+   History = reverse( RevHistory)
+
+   -- Re-add MarkupString
+   History = MarkupString''History''MarkupString
+
+   -- Write to ini
+   call SetProfile( app_hini, 'EPM', 'CommandBox', History)
+
+   return
+
+; ---------------------------------------------------------------------------
 ; Called by edit and save.
 defproc AddToHistory( Listname, NewItem)
+   ListName = upcase( Listname)
+
+   if ListName = 'COMMANDLINE' then
+      call AddToCommandBox( NewItem)
+      return
+   endif
+
    KeyPath = '\NEPMD\Var\History'
    Enabled = QueryConfigKey( KeyPath)
@@ -442 +514 @@
    MaxItems  = 200
    Delim = \1
-
-   ListName = upcase( Listname)
 
    fIgnore = 1