Vile-Windowops-Menu

   135 store-procedure windowops-menu
   136     ~local %chosen-key
   137     write-message "[Window ops: w: equalize height  ^G: cancel]"
   138     set-variable %chosen-key &get-key
   139     ~if &sequal %chosen-key "w"
   140         equalize-window-height
   141     ~elseif &sequal %chosen-key "^G"
   142         write-message "[Window ops mode canceled.]"
   143     ~endif
   144 ~endm