Loading ...
Sorry, an error occurred while loading the content.

ME 2005 item-list enhancement

Expand Messages
  • Schofield, Bryan (GE Trans)
    Here s a addition to itemlist.emf that makes it a little more keyboard friendy. It adds key bindings for sorting just as if you had clicked on the heading with
    Message 1 of 1 , Apr 13, 2005
    • 0 Attachment
      Here's a addition to itemlist.emf that makes it a little more keyboard friendy. It adds key bindings for sorting just as if you had clicked on the heading with the mouse and an interactive command "item-list-sort". Hope someone finds this helpful. A patch is provided below.

      Regards

      -- bryan


      57,83d56
      < define-macro item-list-sort
      < !if ¬ @?
      < !if ¬ &seq $buffer-bname "*item-list*"
      < ml-write "[Buffer is not an item list]"
      < !abort
      < !end
      < set-variable #l0 @ml19 "Sort by" "Item" "|Type|Item|Position|Reverse Type|Reverse Item|Reverse Position|"
      < !if &seq #l0 "Type"
      < set-variable .item-list.order 1
      < !elif &seq #l0 "Item"
      < set-variable .item-list.order 2
      < !elif &seq #l0 "Position"
      < set-variable .item-list.order 3
      < !elif &seq #l0 "Reverse Type"
      < set-variable .item-list.order -1
      < !elif &seq #l0 "Reverse Item"
      < set-variable .item-list.order -2
      < !elif &seq #l0 "Reverse Position"
      < set-variable .item-list.order -3
      < !endif
      < !else
      < set-variable .item-list.order @#
      < !endif
      < item-list-order
      < !emacro
      <
      <
      222,227d194
      < buffer-bind-create "bio" "t" "1" item-list-sort
      < buffer-bind-create "bio" "i" "2" item-list-sort
      < buffer-bind-create "bio" "p" "3" item-list-sort
      < buffer-bind-create "bio" "T" "-1" item-list-sort
      < buffer-bind-create "bio" "I" "-2" item-list-sort
      < buffer-bind-create "bio" "P" "-3" item-list-sort
    Your message has been successfully submitted and would be delivered to recipients shortly.