Changeset 2869


Ignore:
Timestamp:
Jan 14, 2018, 6:56:30 PM (7 years ago)
Author:
Andreas Schnellbacher
Message:
Location:
trunk/src/netlabs/macros
Files:
18 edited

Legend:

Unmodified
Added
Removed

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

    r2857 r2869  
    18541854; ---------------------------------------------------------------------------
    18551855defproc QueryModeKey( Mode, Key)
    1856    universal nepmd_hini
    1857 
    18581856   default_value = arg(3)
    18591857   PathPrefix = '\NEPMD\Var\Mode'
    18601858   KeyPath = PathPrefix'\'Mode'\'Key
    1861    next = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1859   next = QueryConfigKey( KeyPath)
    18621860   if not rc & next <> '' then
    18631861      return next

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

    r2719 r2869  
    3939; select/add/configure/delete a language.
    4040defc DictLang
    41    universal nepmd_hini  -- often forgotten
     41   universal nepmd_hini
    4242   universal dictionary_filename
    4343   universal addenda_filename
    … …  
    5656
    5757   SelectedKeyPath = KeyPath'\SelectedLanguage'
    58    OldName = NepmdQueryConfigValue( nepmd_hini, SelectedKeyPath)
     58   OldName = QueryConfigKey( SelectedKeyPath)
    5959
    6060   Select       = ''
    … …  
    6767      --dprintf( 'DictLang: CurName = 'CurName)
    6868      if Opt = 'DELETE' then
    69          NepmdDeleteConfigValue( nepmd_hini, KeyPath'\Language\'CurName'\Dictionary')
    70          NepmdDeleteConfigValue( nepmd_hini, KeyPath'\Language\'CurName'\Addenda')
     69         DeleteConfigKey( KeyPath'\Language\'CurName'\Dictionary')
     70         DeleteConfigKey( KeyPath'\Language\'CurName'\Addenda')
    7171         Select = 'DELETE'
    7272      elseif Opt = 'SWITCH' then
    … …  
    103103      sayerror 'Language "'args'" not found.'
    104104   else
    105       NepmdWriteConfigValue( nepmd_hini, KeyPath'\SelectedLanguage', Select)
    106       dictionary_filename = NepmdQueryConfigValue( nepmd_hini, KeyPath'\Language\'Select'\Dictionary')
    107       addenda_filename    = NepmdQueryConfigValue( nepmd_hini, KeyPath'\Language\'Select'\Addenda')
     105      WriteConfigKey( KeyPath'\SelectedLanguage', Select)
     106      dictionary_filename = QueryConfigKey( KeyPath'\Language\'Select'\Dictionary')
     107      addenda_filename    = QueryConfigKey( KeyPath'\Language\'Select'\Addenda')
    108108      -- Toggle dynaspell off and on to activate the new dicts
    109109      if .keyset = 'SPELL_KEYS' then
    … …  
    118118; ---------------------------------------------------------------------------
    119119defc SelectDictLang
    120    universal nepmd_hini  -- often forgotten
     120   universal nepmd_hini
    121121   universal dictionary_filename
    122122   universal addenda_filename
    … …  
    127127   NoEntry = '-none-'
    128128
    129    CurLang  = NepmdQueryConfigValue( nepmd_hini, KeyPath'\SelectedLanguage')
     129   CurLang  = QueryConfigKey( KeyPath'\SelectedLanguage')
    130130   Selection    = 1
    131131   LangList     = ''
    … …  
    191191      --sayerror 'Delete 'Select
    192192      if Select <> '' then
    193          NepmdDeleteConfigValue( nepmd_hini, KeyPath'\Language\'Select'\Dictionary')
    194          NepmdDeleteConfigValue( nepmd_hini, KeyPath'\Language\'Select'\Addenda')
     193         DeleteConfigKey( KeyPath'\Language\'Select'\Dictionary')
     194         DeleteConfigKey( KeyPath'\Language\'Select'\Addenda')
    195195         if Select = CurLang then
    196             NepmdDeleteConfigValue( nepmd_hini, KeyPath'\SelectedLanguage')
     196            DeleteConfigKey( KeyPath'\SelectedLanguage')
    197197            dictionary_filename = ''
    198198            addenda_filename = ''
    … …  
    208208; ---------------------------------------------------------------------------
    209209defc ConfigDictLang
    210    universal nepmd_hini  -- often forgotten
    211210   universal dictionary_filename
    212211   universal addenda_filename
    … …  
    236235      Add  = DefAdd
    237236   else
    238       Dict = NepmdQueryConfigValue( nepmd_hini, KeyPath'\Language\'DefLang'\Dictionary')
    239       Add  = NepmdQueryConfigValue( nepmd_hini, KeyPath'\Language\'DefLang'\Addenda')
     237      Dict = QueryConfigKey( KeyPath'\Language\'DefLang'\Dictionary')
     238      Add  = QueryConfigKey( KeyPath'\Language\'DefLang'\Addenda')
    240239   endif
    241240   if Config = 'NEW' then
    … …  
    347346            Name = NoName
    348347         endif
    349          NepmdWriteConfigValue( nepmd_hini, KeyPath'\Language\'Name'\Dictionary', Dict)
    350          NepmdWriteConfigValue( nepmd_hini, KeyPath'\Language\'Name'\Addenda', Add)
     348         WriteConfigKey( KeyPath'\Language\'Name'\Dictionary', Dict)
     349         WriteConfigKey( KeyPath'\Language\'Name'\Addenda', Add)
    351350         -- Automatically make the new language the selected one, if named and if none selected before
    352          CurLang = NepmdQueryConfigValue( nepmd_hini, KeyPath'\SelectedLanguage')
     351         CurLang = QueryConfigKey( KeyPath'\SelectedLanguage')
    353352         if CurLang = '' and Name <> NoName then
    354353            dictionary_filename = Dict
    355354            addenda_filename = Add
    356             NepmdWriteConfigValue( nepmd_hini, KeyPath'\SelectedLanguage', Name)
     355            WriteConfigKey( KeyPath'\SelectedLanguage', Name)
    357356         endif
    358357         'SelectDictLang'
    … …  
    467466; ---------------------------------------------------------------------------
    468467defproc GetDictLang
    469    universal nepmd_hini
    470468   KeyPath = '\NEPMD\User\Spellcheck\SelectedLanguage'
    471    Name = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     469   Name = QueryConfigKey( KeyPath)
    472470   return Name
    473471
    474472; ---------------------------------------------------------------------------
    475473defproc GetDictBaseName
    476    universal nepmd_hini
    477474   DictBaseName = ''
    478475   Dict = ''
    479476   KeyPath = '\NEPMD\User\Spellcheck'
    480    Name = NepmdQueryConfigValue( nepmd_hini, KeyPath'\SelectedLanguage')
    481    DictList = NepmdQueryConfigValue( nepmd_hini, KeyPath'\Language\'Name'\Dictionary')
     477   Name = QueryConfigKey( KeyPath'\SelectedLanguage')
     478   DictList = QueryConfigKey( KeyPath'\Language\'Name'\Dictionary')
    482479   -- Get first filename
    483480   if leftstr( DictList, 1) = '"' then

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

    r2822 r2869  
    125125defc MaybeStartShell
    126126   universal shell_index
    127    universal nepmd_hini
    128127
    129128   do once = 1 to 1
    … …  
    146145
    147146      KeyPath = '\NEPMD\User\Shell\Alias'
    148       on = (NepmdQueryConfigValue( nepmd_hini, KeyPath) <> 0)
     147      on = (QueryConfigKey( KeyPath) <> 0)
    149148      if on then
    150149         call ShellReadAliasFile()
    … …  
    166165
    167166      KeyPath = '\NEPMD\User\Shell\InitCmd'
    168       InitCmd = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     167      InitCmd = QueryConfigKey( KeyPath)
    169168      if InitCmd <> '' then
    170169         'Shell_Write' shell_index InitCmd
    … …  
    214213   universal ring_enabled
    215214   universal ShellStartFid
    216    universal nepmd_hini
    217215
    218216   if not ring_enabled then
    … …  
    339337   if fCreateNew then
    340338      KeyPath = '\NEPMD\User\Shell\Alias'
    341       on = (NepmdQueryConfigValue( nepmd_hini, KeyPath) <> 0)
     339      on = (QueryConfigKey( KeyPath) <> 0)
    342340      if on then
    343341         call ShellReadAliasFile()
    … …  
    372370
    373371         KeyPath = '\NEPMD\User\Shell\InitCmd'
    374          InitCmd = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     372         InitCmd = QueryConfigKey( KeyPath)
    375373         if InitCmd <> '' then
    376374            'Shell_Write' ShellNum InitCmd
    … …  
    394392; ---------------------------------------------------------------------------
    395393defc ShellSetInitCmd
    396    universal nepmd_hini
    397 
    398394   KeyPath = '\NEPMD\User\Shell\InitCmd'
    399    NepmdWriteConfigValue( nepmd_hini, KeyPath, strip( arg(1)))
     395   WriteConfigKey( KeyPath, strip( arg(1)))
    400396
    401397; ---------------------------------------------------------------------------
    402398defc ShellInitCmdDlg
    403    universal nepmd_hini
    404 
    405399   KeyPath = '\NEPMD\User\Shell\InitCmd'
    406    InitCmd = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     400   InitCmd = QueryConfigKey( KeyPath)
    407401
    408402   Title = 'Init command for shell windows'
    … …  
    420414   NewInitCmd = strip( NewInitCmd)
    421415   if button = \1 & NewInitCmd <> InitCmd then
    422       NepmdWriteConfigValue( nepmd_hini, KeyPath, NewInitCmd)
     416      WriteConfigKey( KeyPath, NewInitCmd)
    423417   endif
    424418
    … …  
    721715; Therefore ECHO ON must be executed _after_ every call of 4OS2.EXE.
    722716defproc ShellEnterWrite
    723    universal nepmd_hini
    724 
    725717   ret = 1
    726718   getfileid ShellFid
    … …  
    734726      -- Process alias in Text
    735727      KeyPath = '\NEPMD\User\Shell\Alias'
    736       on = (NepmdQueryConfigValue( nepmd_hini, KeyPath) <> 0)
     728      on = (QueryConfigKey( KeyPath) <> 0)
    737729      if on then
    738730         Text = ShellResolveAlias( Text)
    … …  
    11051097; ---------------------------------------------------------------------------
    11061098defc ShellTab
    1107    universal nepmd_hini
    11081099   universal prevkey
    11091100   parse value prevkey with PrevKeyName \1 .
    11101101   KeyPath = '\NEPMD\User\Shell\FilenameCompletion'
    1111    on = (NepmdQueryConfigValue( nepmd_hini, KeyPath) <> 0)
     1102   on = (QueryConfigKey( KeyPath) <> 0)
    11121103   if on then
    11131104      if wordpos( PrevKeyName, 'tab s_backtab') = 0  then
    … …  
    11211112; ---------------------------------------------------------------------------
    11221113defc ShellBackTab
    1123    universal nepmd_hini
    11241114   universal prevkey
    11251115   parse value prevkey with PrevKeyName \1 .
    11261116   KeyPath = '\NEPMD\User\Shell\FilenameCompletion'
    1127    on = (NepmdQueryConfigValue( nepmd_hini, KeyPath) <> 0)
     1117   on = (QueryConfigKey( KeyPath) <> 0)
    11281118   if on then
    11291119      if wordpos( PrevKeyName, 'tab s_backtab') = 0  then

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

    r2797 r2869  
    250250   universal save_with_tabs
    251251   universal default_save_options
    252    universal nepmd_hini
    253252   universal unnamedfilename
    254253   fNameChanged = 0
    … …  
    339338   endif
    340339   KeyPath = '\NEPMD\User\AutoRestore\CursorPos'
    341    RestorePos = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     340   RestorePos = QueryConfigKey( KeyPath)
    342341   if RestorePos = 1 then
    343342      -- Write EPM.POS EA on save
    … …  
    870869; ---------------------------------------------------------------------------
    871870defproc saveas_dlg( var Name, var Type)
    872    universal nepmd_hini
    873 
    874871   Type = copies( \0, 255)
    875872   if .filename = GetUnnamedFilename() then
    … …  
    878875      -- Reuse previous dir. Trailing backslash required.
    879876      KeyPath = '\NEPMD\Var\History\Save'
    880       SavedHistory = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     877      SavedHistory = QueryConfigKey( KeyPath)
    881878      SavedHistory = strip( SavedHistory, 't', \1)
    882879      parse value SavedHistory with LastSavedFile \1 .
    … …  
    965962   universal ring_enabled
    966963   universal app_hini
    967    universal nepmd_hini
    968964
    969965   if upcase(arg(1)) = 'EDIT' then
    … …  
    992988
    993989   KeyPath = '\NEPMD\User\StartDir\OpenDlg\Type'
    994    opt = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     990   opt = QueryConfigKey( KeyPath)
    995991   -- 0 = previous dir
    996992   -- 1 = work dir
    … …  
    11421138; Todo: disable this if it failed once and for slow drives.
    11431139defmodify
    1144    universal nepmd_hini
    11451140   if .visible & leftstr( .filename, 1) <> '.' then
    11461141      KeyPath = '\NEPMD\User\Lock\OnModify'
    1147       LockOnModify = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1142      LockOnModify = QueryConfigKey( KeyPath)
    11481143      if LockOnModify = 1 then
    11491144         if .modify > 0 & .lockhandle = 0 & .readonly = 0 then
    … …  
    13521347; Determine .readonly field from file attribute, if enabled
    13531348defc ReadonlyFromAttrib
    1354    universal nepmd_hini
    13551349   KeyPath = '\NEPMD\User\Readonly'
    1356    RespectReadonly = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1350   RespectReadonly = QueryConfigKey( KeyPath)
    13571351   if RespectReadonly then
    13581352      -- Get file attributes to set the .readonly field var
    … …  
    14351429
    14361430defc RestorePosFromEa
    1437    universal nepmd_hini
    14381431   universal RestorePosDisabled
    14391432   universal CurEditCmd
    14401433
    14411434   KeyPath = '\NEPMD\User\AutoRestore\CursorPos'
    1442    RestorePos = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1435   RestorePos = QueryConfigKey( KeyPath)
    14431436   if RestorePos = 1 then
    14441437      if RestorePosDisabled <> 1 then
    … …  
    15421535; directory for restoring path, if activated.
    15431536defc cd
    1544    universal nepmd_hini
    15451537   rc = 0
    15461538   arg1 = arg(1)
    … …  
    15481540      NewDir = directory( arg1)  -- returned value is after dir change
    15491541      KeyPath = '\NEPMD\User\ChangeWorkDir'
    1550       ChangeWorkDir = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1542      ChangeWorkDir = QueryConfigKey( KeyPath)
    15511543      if ChangeWorkDir = 1 then
    15521544         KeyPath = '\NEPMD\User\ChangeWorkDir\Last'
    1553          call NepmdWriteConfigValue( nepmd_hini, KeyPath, NewDir)
     1545         call WriteConfigKey( KeyPath, NewDir)
    15541546      endif
    15551547   else

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

    r2612 r2869  
    244244; perform a mode-specific search.
    245245defc FindDef
    246    universal nepmd_hini
    247 
    248246   parse arg Keyword Mode
    249247   Keyword = strip( Keyword)
    … …  
    315313   DefaultItem = 1
    316314   KeyPath = '\NEPMD\User\Search\LastFindDefButton'
    317    DefaultButton = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     315   DefaultButton = QueryConfigKey( KeyPath)
    318316   if DefaultButton = '' then
    319317      DefaultButton = 1
    … …  
    348346
    349347   -- Save selected button for next call
    350    NepmdWriteConfigValue( nepmd_hini, KeyPath, Button)
     348   WriteConfigKey( KeyPath, Button)
    351349   -- Set number and list of files to load
    352350   if Button = 1 | Button = 2 then  -- load one file

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

    r2719 r2869  
    111111defc SaveGroup
    112112   universal app_hini
    113    universal nepmd_hini
     113
    114114   KeyPath = '\NEPMD\User\Groups'
    115115
    … …  
    139139      return
    140140   endif
    141    tempstr = NepmdQueryConfigValue( nepmd_hini, KeyPath'\'group_name'\Entries')
     141   tempstr = QueryConfigKey( KeyPath'\'group_name'\Entries')
    142142   if tempstr <> '' then
    143143      if MBID_OK <> winmessagebox( 'Save Group',
    … …  
    158158      if not Ignore then
    159159         n = n + 1
    160          NepmdWriteConfigValue( nepmd_hini, KeyPath'\'group_name'\File'n, .filename)
    161          NepmdWriteConfigValue( nepmd_hini, KeyPath'\'group_name'\Posn'n, .line .col .cursorx .cursory)
     160         WriteConfigKey( KeyPath'\'group_name'\File'n, .filename)
     161         WriteConfigKey( KeyPath'\'group_name'\Posn'n, .line .col .cursorx .cursory)
    162162      endif
    163163      next_file
    … …  
    167167      endif
    168168   enddo  -- Loop through all files in ring
    169    NepmdWriteConfigValue( nepmd_hini, KeyPath'\'group_name'\Entries', n)
     169   WriteConfigKey( KeyPath'\'group_name'\Entries', n)
    170170   activatefile startfid
    171171
    … …  
    173173   if (tempstr <> '') & (tempstr > i) then
    174174      do j = n + 1 to tempstr
    175          NepmdDeleteConfigValue( nepmd_hini, KeyPath'\'group_name'\File'j)
    176          NepmdDeleteConfigValue( nepmd_hini, KeyPath'\'group_name'\Posn'j)
     175         DeleteConfigKey( KeyPath'\'group_name'\File'j)
     176         DeleteConfigKey( KeyPath'\'group_name'\Posn'j)
    177177      enddo
    178178   endif
    … …  
    318318               next2 = ''  -- always restart the query, since list was changed by the deletion
    319319               if NepmdGetNextConfigKey( nepmd_hini, KeyPath'\'group_name, 'K', next2) then
    320                   NepmdDeleteConfigValue( nepmd_hini, KeyPath'\'group_name'\'next2)
     320                  DeleteConfigKey( KeyPath'\'group_name'\'next2)
    321321               else
    322322                  leave
    … …  
    338338   endif
    339339
    340    howmany = NepmdQueryConfigValue( nepmd_hini, KeyPath'\'group_name'\Entries')
     340   howmany = QueryConfigKey( KeyPath'\'group_name'\Entries')
    341341   if rc then
    342342      sayerror 'Group unknown'
    … …  
    349349   do i = 1 to howmany
    350350      'SayHint Loading file' i 'of' howmany
    351       this_file = NepmdQueryConfigValue( nepmd_hini, KeyPath'\'group_name'\File'i)
     351      this_file = QueryConfigKey( KeyPath'\'group_name'\File'i)
    352352
    353353      if leftstr( this_file, 5) = '.DOS ' then
    … …  
    360360      endif
    361361      if not rc | rc = sayerror('Lines truncated') then
    362          this_posn = NepmdQueryConfigValue( nepmd_hini, KeyPath'\'group_name'\Posn'i)
     362         this_posn = QueryConfigKey( KeyPath'\'group_name'\Posn'i)
    363363         call prestore_pos(this_posn)
    364364      endif
    … …  
    405405         next2 = ''  -- always restart the query, since list was changed by the deletion
    406406         if NepmdGetNextConfigKey( nepmd_hini, KeyPath'\'Group, 'K', next2) then
    407             NepmdDeleteConfigValue( nepmd_hini, KeyPath'\'Group'\'next2)
     407            DeleteConfigKey( KeyPath'\'Group'\'next2)
    408408         else
    409409            leave

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

    r2797 r2869  
    7272   universal vmodifiedstatuscolor
    7373   KeyPath = '\NEPMD\User\DefaultColors'
    74    Colors = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     74   Colors = QueryConfigKey( KeyPath)
    7575   vmodifiedstatuscolor = word( Colors, 6)
    7676
    … …  
    153153; fields containing only '%' fields or strings.
    154154defproc GetStatusFields
    155    universal nepmd_hini
    156155   universal StatusFieldFlags
    157156   universal StatusFields
    … …  
    160159   if StatusFields = '' then
    161160      KeyPath = '\NEPMD\User\InfoLine\StatusFields'
    162       StatusFields = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     161      StatusFields = QueryConfigKey( KeyPath)
    163162   endif
    164163   ResolvedFields = ResolveInfoFields( StatusFields, Flags)
    … …  
    179178; Determine fields and flags for titletext. Return resolved titletext fields.
    180179defproc GetTitleFields
    181    universal nepmd_hini
    182180   universal TitleFieldFlags
    183181   universal TitleFields
    … …  
    185183   if TitleFields = '' then
    186184      KeyPath = '\NEPMD\User\InfoLine\TitleFields'
    187       TitleFields = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     185      TitleFields = QueryConfigKey( KeyPath)
    188186   endif
    189187   ResolvedFields = ResolveInfoFields( TitleFields, Flags)
    … …  
    194192; Determine separator for statusline and titletext.
    195193defproc GetFieldSep
    196    universal nepmd_hini
    197194   universal FieldSep
    198195
    199196   if FieldSep = '' then
    200197      KeyPath = '\NEPMD\User\InfoLine\Sep'
    201       FieldSep = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     198      FieldSep = QueryConfigKey( KeyPath)
    202199   endif
    203200   return FieldSep
    … …  
    715712; ---------------------------------------------------------------------------
    716713defc ConfigInfoLine
    717    universal nepmd_hini
    718714   Type = arg(1)
    719715   if Type = 'TITLE' then
    … …  
    747743      return
    748744   endif
    749    IniValue = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     745   IniValue = QueryConfigKey( KeyPath)
    750746   parse value entrybox( Title,
    751747                         '/~Set/~Reset/Standard ~EPM/Cancel',
    … …  
    758754                         Text) with Button 2 NewValue \0
    759755   if Button = \1 then
    760       NepmdWriteConfigValue( nepmd_hini, KeyPath, NewValue)
     756      WriteConfigKey( KeyPath, NewValue)
    761757   elseif Button = \2 then
    762       NepmdDeleteConfigValue( nepmd_hini, KeyPath)
     758      DeleteConfigKey( KeyPath)
    763759   elseif Button = \3 then
    764       NepmdWriteConfigValue( nepmd_hini, KeyPath, Standard)
     760      WriteConfigKey( KeyPath, Standard)
    765761   elseif Button = \4 then
    766762      return

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

    r2719 r2869  
    107107   universal savetype
    108108   universal helpindex_id
    109    universal nepmd_hini
    110109
    111110   ft = filetype()    --<---------------------------------------------------- Todo
    … …  
    295294               fUseNewView = 0
    296295               KeyPath = '\NEPMD\User\KeywordHelp\NewView\UseIfFound'
    297                next = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     296               next = QueryConfigKey( KeyPath)
    298297               if next <> 0 then
    299298                  -- If NewView was installed as View replacement, then
    … …  
    320319               if fUseNewView then
    321320                  KeyPath = '\NEPMD\User\KeywordHelp\NewView\ExtendedSearch'
    322                   next = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     321                  next = QueryConfigKey( KeyPath)
    323322                  if next <> 0 then
    324323                     fNewViewExtendedSearch = 1

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

    r2818 r2869  
    6868; MenuList is opened.
    6969defc ChangeMenu
    70    universal nepmd_hini
    71 
    7270   MenuList = ' 'strip( GetAVar( 'menulist'))  -- ensure that list starts with a space as separator
    7371   KeyPath = '\NEPMD\User\Menu\Name'
    74    CurMenu = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     72   CurMenu = QueryConfigKey( KeyPath)
    7573   if CurMenu = '' then
    7674      CurMenuFile = STD_MENU_NAME
    … …  
    124122   'RefreshMenu'
    125123
    126    NepmdWriteConfigValue( nepmd_hini, KeyPath, NewMenu)
     124   WriteConfigKey( KeyPath, NewMenu)
    127125
    128126; ---------------------------------------------------------------------------

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

    r2831 r2869  
    279279
    280280   KeyPath = '\NEPMD\User\KeywordHighlighting\AutoRefresh'
    281    refresh_on = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     281   refresh_on = QueryConfigKey( KeyPath)
    282282   if refresh_on then
    283283      if loadstate then  -- during file loading
    … …  
    291291
    292292   KeyPath = '\NEPMD\User\KeywordHighlighting'
    293    default_on = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     293   default_on = QueryConfigKey( KeyPath)
    294294
    295295   getfileid fid
    … …  
    797797      if loadstate then
    798798         KeyPath = '\NEPMD\User\KeywordHighlighting\AutoRefresh'
    799          refresh_on = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     799         refresh_on = QueryConfigKey( KeyPath)
    800800         if refresh_on then
    801801            CheckFlag = GetHiliteCheckFlag(Mode)
    … …  
    806806   KeyPath = '\NEPMD\User\KeywordHighlighting' -- for default value if arg1 = 'DEFAULT' or empty
    807807   if arg1 = 'DEFAULT' then
    808       on = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     808      on = QueryConfigKey( KeyPath)
    809809   elseif arg1 = 0 then
    810810      on = 0
    … …  
    10291029   universal loadstate
    10301030   universal expand_on
    1031    universal nepmd_hini
    10321031   arg1 = upcase(arg(1))
    10331032   if arg1 = '' | arg1 = 'DEFAULT' then
    10341033      KeyPath = '\NEPMD\User\SyntaxExpansion'
    1035       on = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1034      on = QueryConfigKey( KeyPath)
    10361035      if on then
    10371036         ExpandMode = GetMode()
    … …  
    10761075   universal loadstate
    10771076   universal matchtab_on
    1078    universal nepmd_hini
    10791077   arg1 = upcase(arg(1))
    10801078   if arg1 = '' | arg1 = 'DEFAULT' then
    10811079      KeyPath = '\NEPMD\User\Keys\Tab\MatchTab'
    1082       on = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1080      on = QueryConfigKey( KeyPath)
    10831081   elseif wordpos( arg1, '0 OFF') then
    10841082      on = 0
    … …  
    11021100defc SetEditOptions
    11031101   universal default_edit_options
    1104    universal nepmd_hini
    11051102   arg1 = upcase(arg(1))
    11061103   if arg1 = '' | arg1 = 'DEFAULT' then
    11071104      KeyPath = '\NEPMD\User\Edit\DefaultOptions'
    1108       new = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1105      new = QueryConfigKey( KeyPath)
    11091106   else
    11101107      new = arg(1)
    … …  
    11181115defc SetSaveOptions
    11191116   universal default_save_options
    1120    universal nepmd_hini
    11211117   arg1 = upcase(arg(1))
    11221118   if arg1 = '' | arg1 = 'DEFAULT' then
    11231119      KeyPath = '\NEPMD\User\Save\DefaultOptions'
    1124       new = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1120      new = QueryConfigKey( KeyPath)
    11251121   else
    11261122      new = arg(1)
    … …  
    11341130defc SetSearchOptions
    11351131   universal default_search_options
    1136    universal nepmd_hini
    11371132   arg1 = upcase(arg(1))
    11381133   if arg1 = '' | arg1 = 'DEFAULT' then
    11391134      KeyPath = '\NEPMD\User\Search\DefaultOptions'
    1140       new = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1135      new = QueryConfigKey( KeyPath)
    11411136   else
    11421137      new = arg(1)
    … …  
    12141209; Any following specifications, separated by a period are ignored.
    12151210defc SetTextFont
    1216    universal nepmd_hini
    12171211   universal lastfont
    12181212   arg1 = upcase(arg(1))
    … …  
    12231217      --endif
    12241218      KeyPath = '\NEPMD\User\Fonts\Text'
    1225       new = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1219      new = QueryConfigKey( KeyPath)
    12261220   else
    12271221      new = arg(1)
    … …  
    12561250   --universal appname
    12571251   --universal app_hini
    1258    universal nepmd_hini
    12591252   arg1 = upcase(arg(1))
    12601253   if arg1 = '' | arg1 = 'DEFAULT' then
    … …  
    12661259      --endif
    12671260      KeyPath = '\NEPMD\User\Colors\Text'
    1268       new = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1261      new = QueryConfigKey( KeyPath)
    12691262   else
    12701263      new = ConvertColor( arg(1))
    … …  
    12851278   --universal appname
    12861279   --universal app_hini
    1287    universal nepmd_hini
    12881280   arg1 = upcase(arg(1))
    12891281   if arg1 = '' | arg1 = 'DEFAULT' then
    … …  
    12951287      --endif
    12961288      KeyPath = '\NEPMD\User\Colors\Mark'
    1297       new = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1289      new = QueryConfigKey( KeyPath)
    12981290   else
    12991291      new = ConvertColor(arg(1))

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

    r2807 r2869  
    631631   universal CUA_marking_switch
    632632   universal stream_mode
    633    universal nepmd_hini
    634633
    635634   parse arg MType  -- mouse mark type, depending on MouseStyle
    636635
    637636   KeyPath = "\NEPMD\User\Mark\DragAlwaysMarks"
    638    DragAlwaysMarks = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     637   DragAlwaysMarks = QueryConfigKey( KeyPath)
    639638
    640639   if DragAlwaysMarks = 1 then
    … …  
    685684   universal CUA_marking_switch
    686685   universal stream_mode
    687    universal nepmd_hini
    688686
    689687   -- Don't process this for ending a text drag
    … …  
    714712
    715713      KeyPath = "\NEPMD\User\Mouse\Mark\Workaround"
    716       Workaround = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     714      Workaround = QueryConfigKey( KeyPath)
    717715      if Workaround = 1 then
    718716         -- Get current keyword highlighting file if highlighting is on.
    … …  
    845843; Take care for doubleclicks on URLs and on filenames in file listings.
    846844defc MH_doubleclick
    847    universal nepmd_hini
    848845   universal stream_mode
    849846   universal CUA_marking_switch
    … …  
    851848   browser_rc = 1
    852849   KeyPath = "\NEPMD\User\Mouse\Url\MB1_DClick"
    853    MB1DClickStartsBrowser = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     850   MB1DClickStartsBrowser = QueryConfigKey( KeyPath)
    854851
    855852   -- Go to mouse position to ensure pointer is not after a line
    … …  
    10431040;
    10441041defproc MH_set_mouse
    1045    universal nepmd_hini
    10461042   universal CUA_marking_switch
    10471043
    10481044   KeyPath = "\NEPMD\User\Mark\DefaultPaste"
    1049    DefaultPaste = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1045   DefaultPaste = QueryConfigKey( KeyPath)
    10501046   if DefaultPaste = 'C' then
    10511047      AlternatePaste = 'L'
    … …  
    10611057
    10621058   KeyPath = "\NEPMD\User\Mark\MouseStyle"
    1063    MouseStyle = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     1059   MouseStyle = QueryConfigKey( KeyPath)
    10641060   if MouseStyle = 1 then but_1 = 'BLOCKG'; c_but_1 = 'CHARG'
    10651061                     else but_1 = 'CHARG';  c_but_1 = 'BLOCKG'

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

    r2754 r2869  
    191191--defproc BuildPopupMenu
    192192defproc AddPopupMenuItems
    193    universal nepmd_hini
    194193   universal nodismiss
    195194compile if CHECK_FOR_LEXAM
    … …  
    220219   -- DefaultPaste and AlternatePaste
    221220   KeyPath = '\NEPMD\User\Mark\DefaultPaste'
    222    next = substr( upcase( NepmdQueryConfigValue( nepmd_hini, KeyPath)), 1, 1)
     221   next = substr( upcase( QueryConfigKey( KeyPath)), 1, 1)
    223222   if next = 'L' then
    224223      style    = 'L'
    … …  
    676675compile if POPUP_ENABLE_CASCADE
    677676defc add_cascade_popupmenu
    678    universal nepmd_hini
    679 
    680677   KeyPath = "\NEPMD\User\Mark\DefaultPaste"
    681    DefaultPaste = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     678   DefaultPaste = QueryConfigKey( KeyPath)
    682679   if DefaultPaste = 'C' then
    683680      AlternatePaste = 'L'

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

    r2862 r2869  
    408408;
    409409defc RecompileNew
    410    universal nepmd_hini
    411410   universal vepm_pointer
    412411   universal epmrestartpending
    … …  
    557556
    558557      if fReset then
    559          call NepmdDeleteConfigValue( nepmd_hini, KeyPath1)
    560          call NepmdDeleteConfigValue( nepmd_hini, KeyPath2)
    561          call NepmdDeleteConfigValue( nepmd_hini, KeyPath3)
    562          call NepmdDeleteConfigValue( nepmd_hini, KeyPath4)
     558         call DeleteConfigKey( KeyPath1)
     559         call DeleteConfigKey( KeyPath2)
     560         call DeleteConfigKey( KeyPath3)
     561         call DeleteConfigKey( KeyPath4)
    563562         iterate
    564563      endif
    … …  
    569568         -- Get ExFileTime of last check from NEPMD.INI
    570569         -- (Saving LastCheckTime avoids a possible ETPM call, if nothing has changed)
    571          LastCheckTime = NepmdQueryConfigValue( nepmd_hini, KeyPath1)
     570         LastCheckTime = QueryConfigKey( KeyPath1)
    572571
    573572         NetlabsExFile = NepmdRootDir'\netlabs\ex\'BaseName'.ex'
    … …  
    583582         CurExFileTime = NepmdQueryPathInfo( CurExFile, 'MTIME')
    584583         if not rc then
    585             next = NepmdQueryConfigValue( nepmd_hini, KeyPath2)
     584            next = QueryConfigKey( KeyPath2)
    586585            if next <> CurExFileTime then
    587586               fCompExFile = 1
    … …  
    688687
    689688         -- Get list of EFiles from NEPMD.INI
    690          CurEFiles = NepmdQueryConfigValue( nepmd_hini, KeyPath3)
     689         CurEFiles = QueryConfigKey( KeyPath3)
    691690         -- Get list of times for EFiles from NEPMD.INI
    692          CurEFileTimes = NepmdQueryConfigValue( nepmd_hini, KeyPath4)
     691         CurEFileTimes = QueryConfigKey( KeyPath4)
    693692
    694693         if CurEFiles = '' then
    … …  
    976975      if not fCheckOnly | not fReplaceExFile then
    977976         if NewExFileTime <> '' then
    978             NepmdDeleteConfigValue( nepmd_hini, KeyPath1)
    979             NepmdWriteConfigValue( nepmd_hini, KeyPath1, NewExFileTime)
     977            DeleteConfigKey( KeyPath1)
     978            WriteConfigKey( KeyPath1, NewExFileTime)
    980979            if fCheckOnly then
    981980               -- nop
    982981            elseif fCopiedExFile = 1 then
    983                NepmdDeleteConfigValue( nepmd_hini, KeyPath2)
    984                NepmdWriteConfigValue( nepmd_hini, KeyPath2, NewExFileTime)
     982               DeleteConfigKey( KeyPath2)
     983               WriteConfigKey( KeyPath2, NewExFileTime)
    985984            elseif fDeleteExFile = 1 then
    986                NepmdDeleteConfigValue( nepmd_hini, KeyPath2)
    987                NepmdWriteConfigValue( nepmd_hini, KeyPath2, NetlabsExFileTime)
     985               DeleteConfigKey( KeyPath2)
     986               WriteConfigKey( KeyPath2, NetlabsExFileTime)
    988987            elseif fCompExFile = 1 then
    989                NepmdDeleteConfigValue( nepmd_hini, KeyPath2)
    990                NepmdWriteConfigValue( nepmd_hini, KeyPath2, CurExFileTime)
     988               DeleteConfigKey( KeyPath2)
     989               WriteConfigKey( KeyPath2, CurExFileTime)
    991990            endif
    992991         endif
    993992         if NewEFiles <> '' then
    994             NepmdDeleteConfigValue( nepmd_hini, KeyPath3)
    995             NepmdDeleteConfigValue( nepmd_hini, KeyPath4)
    996             NepmdWriteConfigValue( nepmd_hini, KeyPath3, NewEFiles)
    997             NepmdWriteConfigValue( nepmd_hini, KeyPath4, NewEFileTimes)
     993            DeleteConfigKey( KeyPath3)
     994            DeleteConfigKey( KeyPath4)
     995            WriteConfigKey( KeyPath3, NewEFiles)
     996            WriteConfigKey( KeyPath4, NewEFileTimes)
    998997         endif
    999998      endif

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

    r2425 r2869  
    8080   map_LCO2Win     = 6  -- l, c, o in; x, y    out
    8181
    82 defc reflow =
     82defc reflow
    8383   universal last_reflow_width
    84    universal nepmd_hini
     84
    8585   KeyPath = '\NEPMD\User\Reflow\Next'
    86    ReflowNext = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     86   ReflowNext = QueryConfigKey( KeyPath)
    8787
    8888   par_width = arg(1)

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

    r2425 r2869  
    327327;                    or just keep the indent (and remove only 1 optional space after the prev '>')
    328328defc ReflowMail
    329    universal nepmd_hini
    330329   universal vTemp_Path
    331330   universal InfolineRefresh
    … …  
    361360   KeyPath = '\NEPMD\User\Reflow\Mail\IndentedLines'
    362361   -- Default is to not reflow indented lines
    363    fIndentedIsVerbatim = (NepmdQueryConfigValue( nepmd_hini, KeyPath) <> 1)
     362   fIndentedIsVerbatim = (QueryConfigKey( KeyPath) <> 1)
    364363
    365364   KeyPath = '\NEPMD\User\Reflow\Mail\IndentLists'
    366365   -- Default is to indent lists
    367    fIndentLists = (NepmdQueryConfigValue( nepmd_hini, KeyPath) <> 0)
     366   fIndentLists = (QueryConfigKey( KeyPath) <> 0)
    368367
    369368   .line = 1

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

    r2634 r2869  
    156156; Executed by defselect once after all file loading has been processed
    157157defc ProcessSelect2
    158    universal nepmd_hini
    159158compile if WANT_EBOOKIE = 'DYNALINK'
    160159   universal bkm_avail
    … …  
    177176   -- Change to dir of current file
    178177   KeyPath = '\NEPMD\User\StartDir\WorkDir\Type'
    179    WorkDirType = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     178   WorkDirType = QueryConfigKey( KeyPath)
    180179   fChangeWorkDir = (WorkDirType = 2)
    181180   if fChangeWorkDir then

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

    r2743 r2869  
    264264; better keep the old setting alone.
    265265defproc SetDefaultToolbar
    266    universal nepmd_hini
    267266   universal toolbar_loaded
    268267   BarName = arg(1)
    … …  
    274273   endif
    275274   KeyPath = '\NEPMD\User\Toolbar\Name'
    276    NepmdWriteConfigValue( nepmd_hini, KeyPath, BarName)
     275   WriteConfigKey( KeyPath, BarName)
    277276   return
    278277
    … …  
    286285; Returns '' if saved toolbar name is the standard toolbar.
    287286defproc GetDefaultToolbar
    288    universal nepmd_hini
    289287   universal toolbar_loaded
    290288   KeyPath = '\NEPMD\User\Toolbar\Name'
    291289   StandardName = 'STANDARD'
    292    BarName = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     290   BarName = QueryConfigKey( KeyPath)
    293291   if BarName = '' | BarName = StandardName then
    294292      toolbar_loaded = \1
    … …  
    337335defc deletetemplate, DeleteToolbar
    338336   universal app_hini
    339    universal nepmd_hini
    340337   universal toolbar_loaded
    341338   KeyPath = '\NEPMD\User\Toolbar\Name'
    … …  
    348345                      put_in_buffer( BarName))
    349346   if BarName = toolbar_loaded then  -- delete the selected name, too
    350       NepmdWriteConfigValue( nepmd_hini, KeyPath, StandardName)
     347      WriteConfigKey( KeyPath, StandardName)
    351348   endif
    352349
    … …  
    480477   universal app_hini
    481478   universal toolbar_loaded
    482    universal nepmd_hini
    483479   universal appname
    484480
    … …  
    595591
    596592   if fSave then
    597       NepmdWriteConfigValue( nepmd_hini, KeyPath, BarName)
     593      WriteConfigKey( KeyPath, BarName)
    598594      -- Save toolbar activation bit
    599595      old = queryprofile( app_hini, appname, INI_OPTFLAGS)

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

    r2797 r2869  
    4040; ReflowAll2ReflowMargins and defc ReflowPar2ReflowMargins.
    4141defc ReflowmarginsInit
    42    universal nepmd_hini
    4342   universal reflowmargins
    4443   KeyPath = '\NEPMD\User\Reflow\MarginsItem'
    45    i = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     44   i = QueryConfigKey( KeyPath)
    4645   if i = 3 then
    4746      reflowmargins = .margins
    4847   else
    4948      KeyPath = '\NEPMD\User\Reflow\Margins'i
    50       reflowmargins = NepmdQueryConfigValue( nepmd_hini, KeyPath)
     49      reflowmargins = QueryConfigKey( KeyPath)
    5150   endif
    5251
Note: See TracChangeset for help on using the changeset viewer.