Changeset 3532

Timestamp:

Mar 18, 2019, 6:55:40 PM (6 years ago)

Author:

Andreas Schnellbacher

Message:

• Added menu item to insert the sum of block-marked text.

File:

• trunk/src/netlabs/macros/newmenu.e (modified) (5 diffs)

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

@@ -613 +613 @@
                 '')
    DefNextItemStartsSubMenu()
-   DefMenuItem( '',                                                           -- Insert   >
+   DefMenuItem( 'insert',                                                     -- Insert   >
                 '~Insert',
                 '',
@@ -644 +644 @@
                 '',
                 NoDismiss)
+   DefMenuSep()                                                                     --------------------
+
+   DefMenuItem( 'insertsum',                                                        -- Sum of numbers in block
+                '~Sum of numbers in block',
+                'Add',
+                'Insert sum of block-marked values below the mark',
+                '')
    DefMenuSep()                                                                     --------------------
 
@@ -3861 +3868 @@
    SetMenuAttribute( GetAVar( 'mid_discardchanges'),    MIA_DISABLED, .modify > 0)
 
+defc menuinit_insert
+   SetMenuAttribute( GetAVar( 'mid_insertsum'),         MIA_DISABLED, marktype() = 'BLOCK')
+
 ; ------------------------------------ Mark ---------------------------------
 defc menuinit_mark
@@ -3921 +3931 @@
    SetMenuAttribute( GetAVar( 'mid_sort'), MIA_DISABLED, .last > 1)
 
-defc menuinit_reflowtext
-   ConditionalMenuText( 'reflowall')
-
-   mt = MarkTypeOfFile()
-   on = (mt = 'BLOCK')
-   SetMenuAttribute( GetAVar( 'mid_reflowblock'), MIA_DISABLED, on)
-
-   KeyPath = '\NEPMD\User\Reflow\Next'
-   on = QueryConfigKey( KeyPath)
-   SetMenuAttribute( GetAVar( 'mid_reflownext'),  MIA_CHECKED, not on)
-
-defc menuinit_reflowoptions
-   universal twospaces
-
-   SetMenuAttribute( GetAVar( 'mid_twospaces'),         MIA_CHECKED, not twospaces)
-
-   KeyPath = '\NEPMD\User\Reflow\Mail\IndentedLines'
-   on = QueryConfigKey( KeyPath)
-   SetMenuAttribute( GetAVar( 'mid_mailindentedlines'), MIA_CHECKED, not on)
-
-   KeyPath = '\NEPMD\User\Reflow\Mail\IndentLists'
-   on = QueryConfigKey( KeyPath)
-   SetMenuAttribute( GetAVar( 'mid_mailindentlists'),   MIA_CHECKED, not on)
-
-defc menuinit_reflowmargins
-   KeyPath = '\NEPMD\User\Reflow\Margins\1'
-   new = '1 'GetDefaultHeaderWidth()' 1'
-   SetMenuVarText( 'reflowmargins1', new)
-
-   KeyPath = '\NEPMD\User\Reflow\Margins\2'
-   new = QueryConfigKey( KeyPath)
-   SetMenuVarText( 'reflowmargins2', new)
-
-   new = .margins
-   SetMenuVarText( 'reflowmargins3', new)
-
-   KeyPath = '\NEPMD\User\Reflow\Margins\Selected'
-   i = QueryConfigKey( KeyPath)
-   SetMenuAttribute( GetAVar( 'mid_reflowmargins1'), MIA_CHECKED, not (i = 1))
-   SetMenuAttribute( GetAVar( 'mid_reflowmargins2'), MIA_CHECKED, not (i = 2))
-   SetMenuAttribute( GetAVar( 'mid_reflowmargins3'), MIA_CHECKED, not (i = 3))
-
-   if i = 1 then
-      text = '~Configure header width...'
-   elseif i = 2 then
-      text = '~Configure selected...'
-   elseif i = 3 then
-      text = '~Configure margins...'
-   endif
-   SetMenuText( 'mid_reflowmarginsconfig', text)
-
 defc menuinit_linebreaks
    universal default_save_options
@@ -4118 +4077 @@
    endif
    SetMenuVarText( 'selectdrawstyle', new)
+
+defc menuinit_reflowtext
+   ConditionalMenuText( 'reflowall')
+
+   mt = MarkTypeOfFile()
+   on = (mt = 'BLOCK')
+   SetMenuAttribute( GetAVar( 'mid_reflowblock'), MIA_DISABLED, on)
+
+   KeyPath = '\NEPMD\User\Reflow\Next'
+   on = QueryConfigKey( KeyPath)
+   SetMenuAttribute( GetAVar( 'mid_reflownext'),  MIA_CHECKED, not on)
+
+defc menuinit_reflowoptions
+   universal twospaces
+
+   SetMenuAttribute( GetAVar( 'mid_twospaces'),         MIA_CHECKED, not twospaces)
+
+   KeyPath = '\NEPMD\User\Reflow\Mail\IndentedLines'
+   on = QueryConfigKey( KeyPath)
+   SetMenuAttribute( GetAVar( 'mid_mailindentedlines'), MIA_CHECKED, not on)
+
+   KeyPath = '\NEPMD\User\Reflow\Mail\IndentLists'
+   on = QueryConfigKey( KeyPath)
+   SetMenuAttribute( GetAVar( 'mid_mailindentlists'),   MIA_CHECKED, not on)
+
+defc menuinit_reflowmargins
+   KeyPath = '\NEPMD\User\Reflow\Margins\1'
+   new = '1 'GetDefaultHeaderWidth()' 1'
+   SetMenuVarText( 'reflowmargins1', new)
+
+   KeyPath = '\NEPMD\User\Reflow\Margins\2'
+   new = QueryConfigKey( KeyPath)
+   SetMenuVarText( 'reflowmargins2', new)
+
+   new = .margins
+   SetMenuVarText( 'reflowmargins3', new)
+
+   KeyPath = '\NEPMD\User\Reflow\Margins\Selected'
+   i = QueryConfigKey( KeyPath)
+   SetMenuAttribute( GetAVar( 'mid_reflowmargins1'), MIA_CHECKED, not (i = 1))
+   SetMenuAttribute( GetAVar( 'mid_reflowmargins2'), MIA_CHECKED, not (i = 2))
+   SetMenuAttribute( GetAVar( 'mid_reflowmargins3'), MIA_CHECKED, not (i = 3))
+
+   if i = 1 then
+      text = '~Configure header width...'
+   elseif i = 2 then
+      text = '~Configure selected...'
+   elseif i = 3 then
+      text = '~Configure margins...'
+   endif
+   SetMenuText( 'mid_reflowmarginsconfig', text)
 
 ; ------------------------------------ Search -------------------------------