Changeset 2896

Timestamp:

Jan 21, 2018, 10:50:25 PM (7 years ago)

Author:

Andreas Schnellbacher

Message:

• Avoid window scrolling if cursor is off the screen for LoadToolBar and TagScan dialogs. These procs load temp. files that are responsible for window scrolling to make the cursor visible.

Location:

trunk/src/netlabs/macros

Files:

• tags.e (modified) (1 diff)
• toolbar.e (modified) (4 diffs)

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

@@ -1622 +1622 @@
    endif
 
+   'VSyncCursor'
    call psave_pos( savepos)
    0

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

@@ -493 +493 @@
       BarName = delword( BarName, wp, 1)
    endif
-
    if BarName = '' then  -- List all toolbars
       inidata = queryprofile( app_hini, INI_UCMENU_APP, '')
@@ -505 +504 @@
       getfileid startfid
 
+      'VSyncCursor'
       'xcom e /c /q tempfile'
       if rc <> -282 then  -- sayerror('New file')
@@ -540 +540 @@
       endif
 
+      -- This inserts the contents from the current file into a buffer,
+      -- ready for a call to ListBox(). This can be used when the list
+      -- entry length extends E's max. line length.
+      -- It also quits the current file and activates startfid.
       if listbox_buffer_from_file( startfid,
                                    bufhndl,
@@ -570 +574 @@
          return
       endif
-
    else
       inidata = queryprofile( app_hini, INI_UCMENU_APP, BarName)