1 new commit in edit-utils: https://bitbucket.org/xemacs/edit-utils/commits/0fb7a0efa2fe/ Changeset: 0fb7a0efa2fe User: Steve Mitchell Date: 2014-01-01 22:46:39 Summary: Adding two register manipulation packages Added Register Menu, an optional toplevel menu for access to registers Added Register Toolbar, a minor mode which displays a toolbar for 1-click access to ten registers. Affected #: 52 files diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,16 ＠＠ +2013-1-1 Steve Mitchell <smitchel(a)bnin.net&gt; + Byrel Mitchell <byrel.mitchell(a)gmail.com&gt; + + * register-menu.el: Added new package + Allows easy access to register functionality, + including in-menu previews of register contents, + bookmarking, etc. + * register-toolbar.el: Added new package + Allows easy access to copy and pasting from 10 + registers, including from columnar blocks. + * Makefile (ELCS,DATA_FILES): added new files + * rt: added icon files for register toolbar. + 2013-06-17 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 2.51 released. diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 Makefile --- a/Makefile +++ b/Makefile ＠＠ -43,8 +43,30 ＠＠ winring.elc vertical-mode.elc power-macros.elc icon-themes.elc \ search-buffers.elc setnu.elc align.elc autorevert.elc allout.elc \ narrow-stack.elc highline.elc crm.elc wide-edit.elc buffer-colors.elc \ - list-register.elc which-func.elc find-lisp.elc + list-register.elc which-func.elc find-lisp.elc register-menu.elc \ + register-toolbar.elc + + EXPLICIT_DOCS = $(PACKAGE).texi tempo.texi +DATA_FILES = rt/icon0-disabled_28_28_32.png rt/icon0-dn_28_28_32.png rt/icon0-up_28_28_32.png \ + rt/icon1-disabled_28_28_32.png rt/icon1-dn_28_28_32.png rt/icon1-up_28_28_32.png \ + rt/icon2-disabled_28_28_32.png rt/icon2-dn_28_28_32.png rt/icon2-up_28_28_32.png \ + rt/icon3-disabled_28_28_32.png rt/icon3-dn_28_28_32.png rt/icon3-up_28_28_32.png \ + rt/icon4-disabled_28_28_32.png rt/icon4-dn_28_28_32.png rt/icon4-up_28_28_32.png \ + rt/icon5-disabled_28_28_32.png rt/icon5-dn_28_28_32.png rt/icon5-up_28_28_32.png \ + rt/icon6-disabled_28_28_32.png rt/icon6-dn_28_28_32.png rt/icon6-up_28_28_32.png \ + rt/icon7-disabled_28_28_32.png rt/icon7-dn_28_28_32.png rt/icon7-up_28_28_32.png \ + rt/icon8-disabled_28_28_32.png rt/icon8-dn_28_28_32.png rt/icon8-up_28_28_32.png \ + rt/icon9-disabled_28_28_32.png rt/icon9-dn_28_28_32.png rt/icon9-up_28_28_32.png \ + rt/iconC-disabled_28_28_32.png rt/iconC-dn_28_28_32.png rt/iconC-up_28_28_32.png \ + rt/iconM-disabled_28_28_32.png rt/iconM-dn_28_28_32.png rt/iconM-up_28_28_32.png \ + rt/iconIns-disabled_28_28_32.png rt/iconIns-dn_28_28_32.png rt/iconIns-up_28_28_32.png \ + rt/iconrectcopy-disabled_28_28_32.png rt/iconrectcopy-dn_28_28_32.png rt/iconrectcopy-up_28_28_32.png \ + rt/iconrectmove-disabled_28_28_32.png rt/iconrectmove-dn_28_28_32.png rt/iconrectmove-up_28_28_32.png \ + rt/LICENSE + +DATA_DEST = $(PACKAGE)/register-toolbar + include ../../XEmacs.rules diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 edit-utils.texi --- a/edit-utils.texi +++ b/edit-utils.texi ＠＠ -73,6 +73,8 ＠＠ * align:: Align Text to a Specific Column, By Regexp * allout:: Extensive Outline Mode * narrow-stack:: Extending the built-in narrowing functions +* register-menu:: Menu for easier register interaction +* register-toolbar:: Toolbar for easier register interaction File Management * backup-dir:: Specify Directories to be Used for Backup Files ＠＠ -104,6 +106,7 ＠＠ * paren:: Highlight (Un)matching Parens and Whole Expressions * shell-font:: Decorate a Shell Buffer With Fonts * highline:: Highlight the Current Line in the Buffer +* buffer-colors:: System for Buffer-Local Color Schemes Low-Level Editing Hacks: * after-save-commands:: Hooks Invoked After Saving a File ＠＠ -1749,7 +1752,7 ＠＠ be modified as desired, for example, ＠code{(copy-face 'italic 'shell-prompt)}. -＠node highline, after-save-commands, shell-font, Top +＠node highline, highline-keys, shell-font, Top ＠chapter Highlight the Current Line in the Buffer This package is a minor mode to highlight the current line in buffer. ＠＠ -1833,7 +1836,7 ＠＠ ＠end table -＠node highline-options, , highline-hooks, highline +＠node highline-options, buffer-colors, highline-hooks, highline ＠section Options This is a brief description of highline options. Please see the options ＠＠ -1873,7 +1876,19 ＠＠ M-x highline-customize RET ＠end example -＠node after-save-commands, atomic-extents, highline, Top +＠node buffer-colors, after-save-commands, highline-options, Top + +Buffer colors provides an easy interface to implementing buffer-local +default color schemes. This can be used automatically based on mode or +filename extension (for instance, all .c-files could be lime green on +black, and all .h files could be amber on black) or manually +settable. An option is provided for defining additional custom color +schemes, and defining the buffer-colors by window instead of +buffer. All configuration can be done through the buffer-colors +customize group. + + +＠node after-save-commands, atomic-extents, buffer-colors, Top ＠chapter Hooks Invoked After Saving a File Set up a list of file-name matching regular expressions associated with shell ＠＠ -3442,7 +3457,7 ＠＠ (add-hook 'outline-mode-hook 'rf-allout-font-lock-hook) ＠end example -＠node narrow-stack, flow-ctrl, allout, Top +＠node narrow-stack, register-menu, allout, Top ＠chapter Extending the built-in narrowing functions Narrowing, as implemented in Emacs has one limitation, namely that it is not ＠＠ -3452,8 +3467,31 ＠＠ To activate this extension type ＠code{M-x narrow-stack-mode} or add ＠code{(narrow-stack-mode)} to your initialization file. + +＠node register-menu, register-toolbar, narrow-stack, Top + +Registers in XEmacs are limited in easy accessibility to a handful of +functions in the default keyboard layout. This menu provides a +top-level menu interface to most of the functionality provided by +registers, including columnar copying, bookmarking, and real-time +in-menu previews of the contents of registers. + +This menu can be configured through the register-menu configure group. Type ＠code{M-x +customize-group RET register-menu RET} + +＠node register-toolbar, flow-ctrl, register-menu, Top + +The current XEmacs interface for registers is either deep in the +menus, requiring multiple clicks for a single copy/paste command, or +on a handful of keyboard bindings. The register toolbar minor mode +provides a simple click interface for cut, copy and paste +functionality to the digit registers (0-9). Modes are also available +for columnar copy/cut operations. + +This minor mode can be enabled through button 3 on the modeline or the +command: ＠code{M-x register-toolbar-mode}. -＠node flow-ctrl, makesum, narrow-stack, Top +＠node flow-ctrl, makesum, register-toolbar, Top ＠chapter Flow Control Terminals that use XON/XOFF flow control can cause problems with GNU Emacs diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 register-menu.el --- /dev/null +++ b/register-menu.el ＠＠ -0,0 +1,542 ＠＠ +;;; register-menu.el +;;; 1/1/2013 +;;; authors: +;;; Steven Mitchell +;;; Byrel Mitchell +;;; Benson Mitchell +;;; +;;; TIP: instead of clicking on each sub-menu +;;; hold the mouse button down on top menu and +;;; slide down and sideways unto submenus for +;;; speed, then release the mouse button to +;;; select. Much faster than multiple clicking. +;;; +;;; This program creates a top-most level menu item "Register" +;;; and dynamically populates it with commands to manipulate +;;; registers, such as copy,move,insert, etc. +;;; it also populates submenus for each menu item, to select from +;;; the sub-menus by the mouse or cursor keys, or +;;; based on a setting, interactively in the mini-buffer. +;;; +;;; Using the sub-menu for designating which register to +;;; perfrom your operation on has one advantage over minibuffer +;;; input, a preview of the register contents, next to the +;;; register name and a single character indicating contents type. +;;; +;;; A customize setting lets you change the width of the preview +;;; and another, the height of the generated submenus. +;;; +;;; There are approximately 255 allowed single char names for +;;; registers, but to keep confusion down and avoid interference +;;; with other functions, we elected to use lowercase alpha chars, +;;; upper case alpha chars and single digit numbers, or any +;;; combination of the three sets, via a customize variable. +;;; +;;; The preview of register contents is shown in each sub-menu, +;;; for each register that has something in it. +;;; In the case of a few content types not easily displayed, +;;; such as frame comfiguration, we print a text string that +;;; tells the type of the item. +;;; ex: "" is displayed as the empty string. +;;; +;;; regarding sub-menu length: there is a setting to change the height +;;; for the sub-menus of register names, controlling when to generate +;;; additional sub-menus for extra register names, for your size screen. +;;; 36 names will fit in a single menu height with a 2560 x 1600 pixel +;;; monitor. You may need to set a laptop screen for 15 or 20 lines high +;;; to suit your screen. +;;; See settings to change the # of menu items before continuing the +;;; list of available registers before making sub-submenus. +;;; +;;; Clear Register is new functionality to empty a register. +;;; +;;; Menu item "Clear All Registers" clears registers based on a setting +;;; for which register names to work with (eg. from a-z, A-Z, 0-9) +;;; It does not change registers that it does not work with (see settings). +;;; +;;; Note about greyed-out buffer names: +;;; if there is no selection, the sub-menus will be greyed out for commands +;;; that need a selection to work on. This is for commands such as +;;; copy/move/append/prepend/Copy rect/Move rect, etc. +;;; +;;; Other commands that do not require a selection, such as +;;; function-to-register or copy point to register are never grayed-out. +;;; +;;; When inserting registers, registers that are empty are greyed-out since +;;; you can only insert registers with something in them. +;;; +;;; Register-menu-settings calls a customize buffer for register-menu group. +;;; +;;; +;;; Requires: +;;; Xemacs 21.5.35 for optimal functionality. Several issues in XEmacs +;;; menu insertion/deletion code have been fixed in the preceding beta +;;; versions. The register menu will be largely functional on 21.5.34, +;;; with a few issues involving live menu config changes. On 21.5.32 and +;;; earlier the submenu form of the register menu hides menus instead of +;;; disabling them (graying out) due to a limitation in older menu display code. +;;; +;;; If running one of the older versions, applying the most recent patches +;;; to menubar.el should improve your experience significantly. +;;; +;;; Specifically, installing patch number 44b0b4e to menubar.el and +;;; patch to menubar.el submitted by Byrel Mitchell on 12/28/2013. +;;; +;;; To try it out: +;;; load register-menu.el and evaluate the whole buffer. +;;; go into [Options->Menubars] and toggle on Register Menu. + + + +;------------------------------------------------------------- +;------- defvars for register menu --------------------------- +;------------------------------------------------------------- + +(require 'menubar) ;contains add-menu-button +(defun char-list (begin end) + "Returns a list of chars in order from BEGIN to END" + (loop for ch from (char-to-int begin) to (char-to-int end) + collect (int-to-char ch))) + +(defconst rm-lc-az (char-list ?a ?z) "list of register names from a to z") +(defconst rm-uc-az (char-list ?A ?Z) "list of register names from A to Z") +(defconst rm-numbers-09 (char-list ?0 ?9) "list of register names from 0 to 9") +(defconst rm-settings-item [ "Register Menu Settings" (customize 'register-menu) ] + "Settings option for register-menu, used in both submenu input and interactive modes. +By default, a single menu item to customize the 'register-menu group.") + +;; each of these menubar-tag consts is a list so they can be (append)ed, and may +;; reference the variable REGISTER which will be bound to a char when they get (eval)ed. +(defconst rm-suffix-contents-preview + '(:suffix `(rm-contents-preview ,register)) + ":suffix key with preview of register's contents") +;(let ((register ?a)) (mapcar 'eval (append rm-suffix-contents-preview rm-suffix-contents-preview))) +(defconst rm-active-text-or-numberp + '( :active `(let ((val (get-register ,register))) + (or (stringp val) + (numberp val) + (and (consp val) + (stringp (car val)))))) + ":active key with test for register holding a linear or rectangle block, or a number") +(defconst rm-active-string-or-numberp + '( :active `(let ((val (get-register ,register))) + (or (stringp val) + (numberp val)))) + ":active key with test for register holding a linear block or a number") +(defconst rm-active-markerp '( :active `(markerp (get-register ,register))) + ":active key with test for register holding a marker") +(defconst rm-active-nonnilp '( :active `(get-register ,register)) + ":active key with test for non-empty register") + + +(defvar rm-current-reg-names (append rm-lc-az rm-uc-az rm-numbers-09 nil) "list of register names that register-menu will work with" ) +(defvar rm-reg-list-ok nil "flag to show list of reg names already made") +(defvar rm-submenu-height 26) + +;the next line will be updated with patch number once it is assigned. +(defvar rm-disable-menu-key (cond ((emacs-version>= 21 5 33) :active) + (t :included))) + + +;--------------------------------------------------------------------- +;---- functions for register menu ------------------------------------ +;--------------------------------------------------------------------- + +(defun rm-contents-preview ( register ) +"Register Menu func. to generate previews based on type of objects +in the registers: +integer or float format with # and print it +marker (point,etc) format w/* buffer name and position in buffer +window configuration output ' + window configuration' +frame configuration output ' + frame configuration' +string of text format ' - ' + first X letters of string +file-query format ' - ' + first X letters of string +rectangle copy format ' r ' + x,y size of rect. + 1st letters of rect. +empty string output string 'the empty string' +unknown contents output string 'unknown contents' +uses rm-preview-field-width for the number of characters in the preview." + + (let ((val (get-register register)) (output "") ) ;val is contents of register + output set to empty string + (cond + ((integerp val) ;if contents are an integer, print it + (setq output (format " # %d" val ))) + + ((floatp val) ;if contents are a floating point, print it + (setq output (format " # %g" val ))) + + ((markerp val) ; if a marker, print the assoc. buffer and pos in that buffer + (let ((buf (marker-buffer val))) + (if (null buf) + (setq output " * marker in no buffer") ;case if buffer was closed after point was put into register + (setq output (format " * buf: %s, pos: %d" (buffer-name buf) (marker-position val)))))) + + ((and (consp val) (window-configuration-p (car val))) ;if a window configuration, print a string + (setq output " + window configuration")) + + ((and (consp val) (frame-configuration-p (car val))) ;if a frame configuration, print a string + (setq output " + frame configuration")) + + ((and (consp val) (eq (car val) 'file)) + (setq output (format " - %s" (cdr val)))) ;if a file, print the name. + + ((and (consp val) (eq (car val) 'file-query)) ;if a file-query, print filename and position + (setq output (format " - %s, pos %d" (car (cdr val)) (car (cdr (cdr val)))))) + + ((consp val) ;if a rectangle, print 1st line and size + (setq output (format (format " r %%dx%%d %%.%ds" + (- rm-preview-field-width 8)) + (length (car val)) (safe-length val) (car val)))) + ((stringp val) ;if a string, print it. + (remove-text-properties 0 (length val) nil val) + (cond + ;Extract first 'rm-preview-field-width' number of characters, starting with first non-whitespace. + ((string-match + (format "\\S-.\\{0,%d\\}" (- rm-preview-field-width 4)) + (replace-in-string (replace-in-string val "\n" " - ") "\s-+" " ")) + (setq output (format " s %s" (match-string 0 val)))) ; a string, print it + ((string-match "^\s-+$" val) + (setq output " s whitespace")) ;if all whitespace, print "whitespace" + (t + (setq output " s the empty string")))) ;case an empty string "", print the words empty string + ((null val) + (setq output "")) ;case nil, print nothing. + (t + (setq output " Unknown Contents"))) ;all other things, print "unknown contents" + output)) + + +(defmacro rm-copy-block-to-register (i end-cmd begin-cmd) + "Given functions for finding the end and start of any block, generates a menu item to copy to register `i'." + `(save-excursion + (let (end) + (,end-cmd) + (setq end (point)) + (,begin-cmd) + (copy-to-register ,i end (point))))) + +;;;###autoload +(defun clear-register (reg-name) + "Function to clear the contents of a register." + (interactive "Clear register: ") + (set-register reg-name nil)) + +;;;###autoload +(defun clear-all-registers () + "Clears the contents of all registers currently selected for display in the register menu. +It does not touch other registers." + (loop + for i in rm-current-reg-names ; clear all registers in assembled list + do (clear-register i))) + + +(defun* rm-populate-submenu (menu submenu generator register-list max-menu-height &optional &key toplevel-keys &key leaf-keys) + "sub program for rm-create-register-menu-with-submenus, populates submenus" + (loop + with max-height = max-menu-height + with menutree = (copy-sequence menu) + for register in register-list + count 1 into menu-height + collect `[,(char-to-string register) ;Collect menu items into temporary list 'menu-so-far' + ,generator + ,＠(mapcar 'eval leaf-keys)] into menu-so-far + when (>= menu-height max-height) ;When menu-so-far reaches the length of our menu + do + (add-submenu menutree ;Add menu-so-far as a new submenu + `(,submenu + ,＠(mapcar 'eval toplevel-keys) + ("More") + ,＠menu-so-far) + nil (default-value 'current-menubar)) + (nconc menutree (list submenu)) ;Add another step to our current menu path. + (setq toplevel-keys nil) ;Reset all loop variables, ready to accumulate another submenu-ful of menu items. + (setq submenu "More") + (setq menu-height 0) + (setq menu-so-far '()) + finally + (add-submenu menutree ;On exit, dump all remaining items into a last submenu. + `(,submenu + ,＠(mapcar 'eval toplevel-keys) + ,＠menu-so-far) + nil + (default-value 'current-menubar)))) + + +(defmacro rm-toggle-and-update (var) +"toggle customize setting on/off and update Register menu" + `(progn + (setq ,var (not ,var)) + (rm-update))) + +;;;###autoload +(defun rm-update () + "function for register-menu to: +reset the list of register names used, +reset the OK flag from the customize buffer, +and update the submenus on register-menu." + (message "Updating Register Menu...") + (if (and + (boundp 'rm-submenu-height)) + (if rm-enable + (if (and rm-use-submenus rm-current-reg-names) ; if we are using submenus + ; and we have the names list, + (rm-create-register-menu-with-submenus) ; call function to use the menu that has submenus, + (rm-create-register-menu-with-cl-input)) ; else call funct to use menu with minibuffer input + (delete-menu-item '("Register") (default-value 'current-menubar)))) + (message "Done.")) + + + +;--------------------------------------------------- +;---- add "Register" top menu with submenus ------- +;---- submenus are used for selecting the ------- +;---- name of the register & showing preview ------- +;--------------------------------------------------- + + +(defmacro rm-make-submenu-1 (submenu generator &rest foo) + `(rm-populate-submenu '("Register") ,submenu ',generator rm-current-reg-names rm-submenu-height ,＠foo)) + +(defun rm-create-register-menu-with-submenus () + "Create submenus for register-menu, and populate them using + `rm-make-submenu-1'. Submenus contain lists of registers. +RM-SUBMENU-HEIGHT is the number of menu items before adding a new sub-sub-menu." + (interactive) + (add-submenu nil '("Register") rm-before-menu-pos (default-value 'current-menubar)) + ;;Eliminate any existing Register menu contents. This shouldn't + ;;be necessary, but add-submenu tends to leave "---" dividers + ;;in allegedly clear menus. + (when (assoc "Register" (default-value 'current-menubar)) + (setcdr (assoc "Register" (default-value 'current-menubar)) nil)) + (rm-make-submenu-1 "Copy to Register" + `(copy-to-register ,register (mark) (point)) + :toplevel-keys '(rm-disable-menu-key '(region-active-p)) + :leaf-keys rm-suffix-contents-preview) + (rm-make-submenu-1 "Move to Register" + `(copy-to-register ,register (mark) (point) t) + :toplevel-keys '(rm-disable-menu-key '(region-active-p)) + :leaf-keys rm-suffix-contents-preview) + (rm-make-submenu-1 "Insert Register" + `(insert-register ,register) + :leaf-keys (append rm-suffix-contents-preview + rm-active-text-or-numberp)) + (add-menu-button '("Register") "---" nil (default-value 'current-menubar)) + (rm-make-submenu-1 "Prepend to Register" + `(prepend-to-register ,register (mark) (point)) + :toplevel-keys '(rm-disable-menu-key '(region-active-p)) + :leaf-keys (append rm-suffix-contents-preview + rm-active-string-or-numberp)) + (rm-make-submenu-1 "Append to Register" + `(append-to-register ,register (mark) (point)) + :toplevel-keys '(rm-disable-menu-key '(region-active-p)) + :leaf-keys (append rm-suffix-contents-preview + rm-active-string-or-numberp)) + (add-menu-button '("Register") "---" nil (default-value 'current-menubar)) + (rm-make-submenu-1 "Copy Rect to Register" + `(copy-rectangle-to-register ,register (mark) (point)) + :toplevel-keys '(rm-disable-menu-key '(region-active-p)) + :leaf-keys rm-suffix-contents-preview) + (rm-make-submenu-1 "Move Rect to Register" + `(copy-rectangle-to-register ,register (mark) (point) t) + :toplevel-keys '(rm-disable-menu-key '(region-active-p)) + :leaf-keys rm-suffix-contents-preview) + (add-menu-button '("Register") "---" nil (default-value 'current-menubar)) + (add-menu-button '("Register") "---" nil (default-value 'current-menubar)) + (rm-make-submenu-1 "Function to Register" + `(rm-copy-block-to-register ,register end-of-defun backward-sexp) + :leaf-keys rm-suffix-contents-preview) + (rm-make-submenu-1 "Word to Register" + `(rm-copy-block-to-register ,register forward-word backward-word) + :leaf-keys rm-suffix-contents-preview) + (rm-make-submenu-1 "Sentence to Register" + `(rm-copy-block-to-register ,register forward-sentence backward-sentence) + :leaf-keys rm-suffix-contents-preview) + (rm-make-submenu-1 "Paragraph to Register" + `(rm-copy-block-to-register ,register forward-paragraph backward-paragraph) + :leaf-keys rm-suffix-contents-preview) + (add-menu-button '("Register") "---" nil (default-value 'current-menubar)) + (add-menu-button '("Register") "---" nil (default-value 'current-menubar)) + (rm-make-submenu-1 "Copy Point to Register" + `(point-to-register ,register) + :leaf-keys rm-suffix-contents-preview) + (rm-make-submenu-1 "Jump to Register" + `(jump-to-register ,register) + :leaf-keys (append rm-suffix-contents-preview + rm-active-markerp)) + (add-menu-button '("Register") "---" nil (default-value 'current-menubar)) + (rm-make-submenu-1 "Clear Register" + `(clear-register ,register) + :leaf-keys (append rm-suffix-contents-preview + rm-active-nonnilp)) + (add-menu-button '("Register") ["Clear All Registers" (clear-all-registers)] nil (default-value 'current-menubar)) + (add-menu-button '("Register") "---" nil (default-value 'current-menubar)) + (add-menu-button '("Register") rm-settings-item nil (default-value 'current-menubar))) + + +;;;;--------------------------------------------------------------------- +;;;;---- add "Register" top menu for interactive -------------------- +;;;;---- minibuffer input, instead of submenu input -------------------- +;;;;--------------------------------------------------------------------- + +(defun rm-create-register-menu-with-cl-input () + "Register Menu - create a menu for using interactive minibuffer input, +this is how commands work in the Cmds-->Other Rectangle/Register menu +Register Menu settings calls a customize buffer for settings." + (let ((menu "Register")) + (add-submenu + nil + `(,menu + ["Copy to Register..." (call-interactively 'copy-to-register) + :active (region-active-p )] + ["Move to Register..." (progn (setq current-prefix-arg 1) + (call-interactively 'copy-to-register))] + ["Insert Register..." (call-interactively 'insert-register)] + "---" + ["Prepend to Register..." (call-interactively 'prepend-to-register)] + ["Append to Register..." (call-interactively 'append-to-register)] + "---" + ["Copy Rect to Register..." (call-interactively 'copy-rectangle-to-register)] + ["Move Rect to Register..." (progn (setq current-prefix-arg 1) + (call-interactively 'copy-rectangle-to-register))] + "---" + ["Function to Register" (call-interactively 'rm-function-to-register)] + ["C Func. to Register" (call-interactively 'rm-c-function-to-register)] + ["Word to Register" (call-interactively 'rm-word-to-register)] + ["Sentence to Register" (call-interactively 'rm-sentence-to-register)] + ["Paragraph to Register" (call-interactively 'rm-paragraph-to-register)] + "---" + ["Copy Point to Register..." (call-interactively 'point-to-register)] + ["Jump to Register..." (call-interactively 'jump-to-register)] + "---" + ["Clear Register..." (call-interactively 'clear-register)] + ["Clear All Registers" (clear-all-registers)] + "---" + ,rm-settings-item) + rm-before-menu-pos (default-value 'current-menubar)))) + + +;;;;-------------------------------------------------------------------------- +;;;;--------------------Add a Customize Group -------------------------------- +;;;;-------------------------------------------------------------------------- + +;;;###autoload +(defgroup register-menu nil + "A Top-Level Menu for Register commands." +:version "21.5.B32 with patches to register.el and sequence.c") + +;;;###autoload +(defcustom rm-enable nil + "Enable or disable Register-Menu. +Enabling this adds the Register-Menu as a top level menu." +:tag "Register Menu Enable" +:group 'register-menu +:initialize 'custom-initialize-default +:set (lambda (symbol value) + (set-default symbol value) + (rm-update)) +:type '(boolean)) + +;;;###autoload +(defcustom rm-use-submenus t + "whether input for choosing the register name is in the minibuffer or on the menus." +:tag "Register Menu input method" +:group 'register-menu +:initialize 'custom-initialize-default +:set (lambda (symbol value) + (set-default symbol value) + (rm-update)) +:type '(choice :tag "Input Method" + (const :tag "Keyboard Input" nil) + (const :tag "Menu Input" t))) + +;;;###autoload +(defcustom rm-submenu-height 26 + "Max number of lines for each submenu for choosing register names. +sane values are 10 to 36 lines high. +a 24-30 inch monitor can have up to 36; +choosing 13 yields 3 submenus for a list of 36 register names." +:tag "Register Menu Submenu Height" +:group 'register-menu +:initialize 'custom-initialize-default +:set (lambda (symbol value) + (set-default symbol value) + (rm-update)) +:type '(integer :tag "submenu height in lines")) + + +;;;###autoload +(defcustom rm-register-set '(rm-lc-az rm-uc-az) + "Stores list of lisp variables to include in menu of registers. +Each element should be a list of chars." +:tag "Registers to display in menu:" +:group 'register-menu +:initialize 'custom-initialize-default +:set (lambda (symbol value) + (set-default symbol value) + (setq rm-current-reg-names + (loop for variable in value + append (eval variable))) + (rm-update)) +:type '(set + (const :tag "Lower-case letters (a-z)" rm-lc-az) + (const :tag "Upper-case letters (A-Z)" rm-uc-az) + (const :tag "Numbers (0-9)" rm-numbers-09))) + +;;;###autoload +(defcustom rm-before-menu-pos "Options" + "Menu item Register menu should be inserted directly before. +Defaults to Options, to permit a significant preview of register contents." +:tag "Menu position" +:group 'register-menu +:initialize 'custom-initialize-default +:set (lambda (symbol value) + (set-default symbol value) + (rm-update)) +:type 'string) + + +;;;###autoload +(defcustom rm-preview-field-width 40 + "Width (in characters) of the preview field + next to the register name in the register-menu submenus." +:tag "Register Menu preview field width" +:group 'register-menu +:initialize 'custom-initialize-default +:set (lambda (symbol value) + (set-default symbol value) + (rm-update)) +:type '(choice :tag "Preview Field Width" + (const :tag "10 chars" 10) + (const :tag "15 chars" 15) + (const :tag "20 chars" 20) + (const :tag "25 chars" 25) + (const :tag "30 chars" 30) + (const :tag "35 chars" 35) + (const :tag "40 chars" 40) + (const :tag "45 chars" 45))) + + + + +;;;;--------------------------------------------------------------------- +;;;;------- start up code ----------------------------------------------- +;;;;--------------------------------------------------------------------- + +;;;###autoload +(unless (featurep 'register-menu) + (when (boundp 'current-menubar) + (add-menu-button '("Options" "Menubars") + "---"))) ;add a separator only first time loaded + +;;;###autoload +(when (boundp 'current-menubar) + (add-menu-button '("Options" "Menubars") + [ "Register Menu" (progn (set-default 'rm-enable (not rm-enable)) (rm-update)) + :style toggle + :selected rm-enable])) + +(provide 'register-menu) + +;end register-menu.el + + + diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 register-toolbar.el --- /dev/null +++ b/register-toolbar.el ＠＠ -0,0 +1,348 ＠＠ +;;; register-toolbar +;;; 12/25/2012 +;;; authors +:;; Benson Mitchell +;;; Byrel Mitchell +;;; Steven Mitchell +;;; +;;; This is a minor mode that adds a set of icons to the default +;;; toolbar to make using registers for copy, move, insert +;;; operations easier. +;;; +;;; There are 11 icons total: +;;; The first one has five states, cycling between 5 icons to +;;; show the current operation. +;;; The other 10 icons represent register names 0 thru 9. +;;; +;;; Purpose: Is to give users a quick way to use registers +;;; as a multiple copy and paste feature, up to 10 registers +;;; can be copied/pasted by the toolbar, instead of a +;;; system-wide clipboard that holds only one selection at a time. +;;; +;;; To install: +;;; This is installed as part of edit utils, nothing beyond that is +;;; required for installing. +;;; +;;; Requirements: +;;; 1. XEmacs needs to be compiled with the --with-toolbars option set +;;; during the ./configure step. +;;; 2. Toolbars need to be turned on to see the toolbar. this is +;;; automatically handled by this minor-mode. +;;; 3. Toolbar height should be set to 30 pixels or higher. +;;; 4. Requires a patch to simple.el by Byrel on 12/31/2012, or a +;;; version later than 21.5.33 for best funcionality. +;;; +;;; +;;; To use: +;;; -mark a selection in the buffer +;;; -click the operation icon once or twice to get the operation you +;;; want to perform, say, copy-to-register +;;; -click on one of the 0-9 icons and your marked block will be +;;; copied to that register. +;;; +;;; for subsequent copy-to-register operations, since the copy function is +;;; already selected, just mark a block, and click a register-name icon. +;;; +;;; To insert the contents of a register, click on the operation icon +;;; till it displays INS, then click on the register name 0-9, and your +;;; text is copied into the buffer at the current cursor position. +;;; +;;; Note: if there is no marked block, and copy or move is set, all +;;; register names are grayed-out. Also, when Insert is the selected +;;; operation, registers that have nothing in them are greyed-out. +;;; +;;; To test this minor mode: +;;; 1. load this file into a buffer and store the icons in a directory. +;;; 2. set register-toolbar-icon-path to wherever the icon files are stored +;;; for the test. +;;; 3. evaluate the entire file in the buffer +;;; 4. enable the register-toolbar minor mode by opposite clicking on +;;; the emacs-lisp area of the modeline to bring up the minor modes menu +;;; and toggle register-toolbar mode. +;;; 5. the register-toolbar icons look good with the background set to black +;;; You may want to at least temporarily set the toolbar background to black +;;; command is: +;;; (set-face-background 'toolbar "black") +;;; Or simply install the xemacs package, and follow steps 4-5. + +(require 'wid-edit) + +;;;;------------------------------------------------------------- +;;;;--- defvars ------------------------------------------------- +;;;;------------------------------------------------------------- + +(defvar register-toolbar-current-operation 'copy + "Register-Toolbar: keeps track of which operation to perform +on selected register. valid values are: +'copy +'move +'insert +'rect-copy +'rect-move") + +(defvar register-toolbar-mousing-rectangle-p nil + "Stores former tool bar mousing mode. +Non-nil for rectangle mode.") + +(defvar register-toolbar-mousing-stored-p nil + "Stores whether former mousing status is stored. +See `register-toolbar-mousing-rectangle-p'.") + +(define-specifier-tag 'register-toolbar-toolbar) + +(defvar register-toolbar-mode nil + "Enables the Register Toolbar mode.") + +(defvar register-toolbar-icon-path + nil + "Custom installation location for register-toolbar icons. +nil by default") + +;if it is not already there, add to path for icon directory +(when register-toolbar-icon-path + (unless (member register-toolbar-icon-path data-directory-list) + (push register-toolbar-icon-path data-directory-list))) + +(defvar register-toolbar-0-icon nil + "register-toolbar: icon representing register 0") + +(defvar register-toolbar-1-icon nil + "register-toolbar: icon representing register 1") + +(defvar register-toolbar-2-icon nil + "register-toolbar: icon representing register 2") + +(defvar register-toolbar-3-icon nil + "register-toolbar: icon representing register 3") + +(defvar register-toolbar-4-icon nil + "register-toolbar: icon representing register 4") + +(defvar register-toolbar-5-icon nil + "register-toolbar: icon representing register 5") + +(defvar register-toolbar-6-icon nil + "register-toolbar: icon representing register 6") + +(defvar register-toolbar-7-icon nil + "register-toolbar: icon representing register 7") + +(defvar register-toolbar-8-icon nil + "register-toolbar: icon representing register 8") + +(defvar register-toolbar-9-icon nil + "register-toolbar: icon representing register 9") + +(defvar register-toolbar-op-icons nil + "Circular alist of symbols and corresponding glyph-lists.") + +(defvar register-toolbar-current-op-icon nil + "register-toolbar: holds icon for current operation." ) + + +;;;;------------------------------------------------------------- +;;;;--- icon definitions ---------------------------------------- +;;;;------------------------------------------------------------- + +(defun register-toolbar-initialize-subfun (arg) + "internal to register-toolbar +assembles list of glyphs for register ARG" + (let ((num (number-to-string arg))) + `(,(widget-glyph-find (concat "register-toolbar/icon" num "-up_28_28_32") (concat "Register " num)) + ,(widget-glyph-find (concat "register-toolbar/icon" num "-dn_28_28_32") (concat "Register " num)) + ,(widget-glyph-find (concat "register-toolbar/icon" num "-disabled_28_28_32") (concat "Register " num))))) + +(defun register-toolbar-initialize-icons () + "Initializes all register-toolbar-foo-icon variables." + (setq register-toolbar-op-icons + `((copy . (,( widget-glyph-find "register-toolbar/iconC-up_28_28_32" "Copy"))) + (move . (,( widget-glyph-find "register-toolbar/iconM-up_28_28_32" "Move"))) + (insert . (,( widget-glyph-find "register-toolbar/iconIns-up_28_28_32" "Insert"))) + (rect-copy . (,( widget-glyph-find "register-toolbar/iconrectcopy-up_28_28_32" "Copy Rect"))) + (rect-move . (,( widget-glyph-find "register-toolbar/iconrectmove-up_28_28_32" "Move Rect"))))) + (setf (cdr (last register-toolbar-op-icons)) register-toolbar-op-icons) ;circularize into bottomless stack of pancakes. + (setq register-toolbar-current-op-icon (cdr (pop register-toolbar-op-icons))) + (loop + for register from 0 to 9 ; set all register icons to their glyph values. + do + (set (intern (concat "register-toolbar-" (number-to-string register) "-icon")) + (register-toolbar-initialize-subfun register)))) + +(defun register-toolbar-toolbar-button-active-p (reg) +"sets whether a toolbar button is active instead of disabled." + (case register-toolbar-current-operation + (insert + (get-register reg)) + ((copy move rect-copy rect-move) + (region-active-p)))) + +(defconst register-toolbar-toolbar + `([register-toolbar-current-op-icon ;var containing icon list + register-toolbar-toggle-operation ;callback + t ;enabled-p + "Choose Operation"] ;help text + [register-toolbar-0-icon + (register-toolbar-perform-operation 0) + (register-toolbar-toolbar-button-active-p 0) "Register 0"] + [register-toolbar-1-icon + (register-toolbar-perform-operation 1) + (register-toolbar-toolbar-button-active-p 1) "Register 1"] + [register-toolbar-2-icon + (register-toolbar-perform-operation 2) + (register-toolbar-toolbar-button-active-p 2) "Register 2"] + [register-toolbar-3-icon + (register-toolbar-perform-operation 3) + (register-toolbar-toolbar-button-active-p 3) "Register 3"] + [register-toolbar-4-icon + (register-toolbar-perform-operation 4) + (register-toolbar-toolbar-button-active-p 4) "Register 4"] + [register-toolbar-5-icon + (register-toolbar-perform-operation 5) + (register-toolbar-toolbar-button-active-p 5) "Register 5"] + [register-toolbar-6-icon + (register-toolbar-perform-operation 6) + (register-toolbar-toolbar-button-active-p 6) "Register 6"] + [register-toolbar-7-icon + (register-toolbar-perform-operation 7) + (register-toolbar-toolbar-button-active-p 7) "Register 7"] + [register-toolbar-8-icon + (register-toolbar-perform-operation 8) + (register-toolbar-toolbar-button-active-p 8) "Register 8"] + [register-toolbar-9-icon + (register-toolbar-perform-operation 9) + (register-toolbar-toolbar-button-active-p 9) "Register 9"]) + "register-toolbar: toolbar definition for list of buttons") + +;;;;---------------------------------------------------------------------- +;;;;----- callback functions for each button ----------------------------- +;;;;---------------------------------------------------------------------- + +(defun register-toolbar-perform-operation ( reg-name ) + "Perform the currently selected operation on this register." + (if (and (not (region-active-p)) ;if no selection & copy or move is cur.op. + (or (eq register-toolbar-current-operation 1) + (eq register-toolbar-current-operation 2))) + (print "no selection.") ;just print message + (case register-toolbar-current-operation ;otherwise get the operation + ('copy (copy-to-register reg-name (mark) (point) )) ;and perform it. + ('move (copy-to-register reg-name (mark) (point) t )) + ('insert (case (type-of (get-register reg-name)) + ('string (insert-register reg-name )) + ('cons (if (stringp (car (get-register reg-name))) + (insert-register reg-name))) + (t (error "Uninsertable register contents")))) + ('rect-copy (copy-rectangle-to-register reg-name (mark) (point))) + ('rect-move (copy-rectangle-to-register reg-name (mark) (point) t))))) + +(defun register-toolbar-toggle-operation () + "Toggles between 5 operations (and icons): +copy to register +move to register +insert register +copy rect. to register +move rect. to register +-clicking on a register icon (0-9) performs whichever +operation is selected by this icon." + (interactive) + (let ((next-op-icon (pop register-toolbar-op-icons)) + (active-selection (region-active-p))) + (setq register-toolbar-current-op-icon (cdr next-op-icon)) + (setq register-toolbar-current-operation (car next-op-icon)) + ;;; + (case register-toolbar-current-operation + ((rect-move rect-copy) + (unless register-toolbar-mousing-stored-p + (setq register-toolbar-mousing-rectangle-p mouse-track-rectangle-p) + (setq register-toolbar-mousing-stored-p t)) + (customize-set-variable 'mouse-track-rectangle-p t)) + ((move copy) + (unless register-toolbar-mousing-stored-p + (setq register-toolbar-mousing-rectangle-p mouse-track-rectangle-p) + (setq register-toolbar-mousing-stored-p t)) + (customize-set-variable 'mouse-track-rectangle-p nil)) + (otherwise (when register-toolbar-mousing-stored-p + (customize-set-variable 'mouse-track-rectangle-p + register-toolbar-mousing-rectangle-p)) + (setq register-toolbar-mousing-stored-p nil))) + (register-toolbar-set-toolbar) + (zmacs-deactivate-region) + (redisplay-frame) ;this line needed for xwindows, not needed for MS windows + (when active-selection + (zmacs-activate-region)))) + + +(defun register-toolbar-set-toolbar () +"inserts the toolbar or refresh it after changes" + (remove-specifier default-toolbar nil 'register-toolbar-toolbar) + (sit-for 0) ;-----------------needed for windows, xemacs 21.4 or 21.5 + (add-spec-to-specifier + default-toolbar-visible-p t nil 'register-toolbar-toolbar) + (add-spec-to-specifier + default-toolbar + (append + (specifier-instance default-toolbar) + register-toolbar-toolbar) + nil + 'register-toolbar-toolbar)) + + +(defun register-toolbar-remove-toolbar () +"register-icons: remove icons from the toolbar" + (remove-specifier default-toolbar nil 'register-toolbar-toolbar) + (remove-specifier default-toolbar-visible-p nil 'register-toolbar-toolbar)) + +;;;###autoload +(defun register-toolbar-mode (&optional turn-on) + "Adds icons for easy access to registers to the toolbar. +The first button sets the operation used on the registers. +Three operations are currently defined: +copy to register, +move to register, +insert from register. +Clicking this button toggles between the operations. +The remaining ten icons represent the registers from 0-9, +& when selected perfrom the current operation on that register." + (interactive "P") + (unless (featurep 'toolbar) + (error "Must have toolbar support to use this mode!")) + (setq register-toolbar-mode + (if (null turn-on) (not register-toolbar-mode) + (> (prefix-numeric-value turn-on) 0))) + (if register-toolbar-mode + (progn ;;enabling the minor mode + (unless default-toolbar-visible-p + (message "Toolbar disabled; check toolbar-enabled-p")) + (unless (> (max + (specifier-instance default-toolbar-height) + (specifier-instance default-toolbar-width)) 29) + (message + "Toolbar too short for register icons. Set default-toolbar-height to 30 or more.")) + (register-toolbar-initialize-icons) + (register-toolbar-set-toolbar) + (add-hook 'zmacs-activate-region-hook 'register-toolbar-set-toolbar) + (add-hook 'zmacs-deactivate-region-hook 'register-toolbar-set-toolbar) + (register-toolbar-toggle-operation)) + ;; clean up when leaving the minor mode + (when register-toolbar-mousing-stored-p ; Restore mousing setting + (customize-set-variable 'mouse-track-rectangle-p + register-toolbar-mousing-rectangle-p)) + (zmacs-update-region) + (remove-hook 'zmacs-activate-region-hook 'register-toolbar-set-toolbar) + (remove-hook 'zmacs-deactivate-region-hook 'register-toolbar-set-toolbar) + (register-toolbar-remove-toolbar))) + + +;;;;----------------------------------------------------------- +;;;;---- Initialize minor mode -------------------------------- +;;;;----------------------------------------------------------- +;;;###autoload +(unless (assq 'register-toolbar-mode minor-mode-alist) + (setq minor-mode-alist + (cons '(register-toolbar-mode "") minor-mode-alist))) + +(unless register-toolbar-op-icons + (register-toolbar-initialize-icons)) + +(provide 'register-toolbar) + +;--- end of register-toolbar.el diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/.directory --- /dev/null +++ b/rt/.directory ＠＠ -0,0 +1,3 ＠＠ +[Dolphin] +Timestamp=2013,12,31,17,50,28 +ViewMode=1 diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/LICENSE --- /dev/null +++ b/rt/LICENSE ＠＠ -0,0 +1,3 ＠＠ +These images copyright Steven Mitchell and Benson Mitchell (2013) + +and are released to the Public Domain. diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon0-disabled_28_28_32.png Binary file rt/icon0-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon0-dn_28_28_32.png Binary file rt/icon0-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon0-up_28_28_32.png Binary file rt/icon0-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon1-disabled_28_28_32.png Binary file rt/icon1-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon1-dn_28_28_32.png Binary file rt/icon1-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon1-up_28_28_32.png Binary file rt/icon1-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon2-disabled_28_28_32.png Binary file rt/icon2-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon2-dn_28_28_32.png Binary file rt/icon2-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon2-up_28_28_32.png Binary file rt/icon2-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon3-disabled_28_28_32.png Binary file rt/icon3-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon3-dn_28_28_32.png Binary file rt/icon3-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon3-up_28_28_32.png Binary file rt/icon3-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon4-disabled_28_28_32.png Binary file rt/icon4-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon4-dn_28_28_32.png Binary file rt/icon4-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon4-up_28_28_32.png Binary file rt/icon4-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon5-disabled_28_28_32.png Binary file rt/icon5-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon5-dn_28_28_32.png Binary file rt/icon5-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon5-up_28_28_32.png Binary file rt/icon5-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon6-disabled_28_28_32.png Binary file rt/icon6-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon6-dn_28_28_32.png Binary file rt/icon6-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon6-up_28_28_32.png Binary file rt/icon6-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon7-disabled_28_28_32.png Binary file rt/icon7-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon7-dn_28_28_32.png Binary file rt/icon7-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon7-up_28_28_32.png Binary file rt/icon7-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon8-disabled_28_28_32.png Binary file rt/icon8-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon8-dn_28_28_32.png Binary file rt/icon8-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon8-up_28_28_32.png Binary file rt/icon8-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon9-disabled_28_28_32.png Binary file rt/icon9-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon9-dn_28_28_32.png Binary file rt/icon9-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/icon9-up_28_28_32.png Binary file rt/icon9-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconC-disabled_28_28_32.png Binary file rt/iconC-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconC-dn_28_28_32.png Binary file rt/iconC-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconC-up_28_28_32.png Binary file rt/iconC-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconIns-disabled_28_28_32.png Binary file rt/iconIns-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconIns-dn_28_28_32.png Binary file rt/iconIns-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconIns-up_28_28_32.png Binary file rt/iconIns-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconM-disabled_28_28_32.png Binary file rt/iconM-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconM-dn_28_28_32.png Binary file rt/iconM-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconM-up_28_28_32.png Binary file rt/iconM-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconrectcopy-disabled_28_28_32.png Binary file rt/iconrectcopy-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconrectcopy-dn_28_28_32.png Binary file rt/iconrectcopy-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconrectcopy-up_28_28_32.png Binary file rt/iconrectcopy-up_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconrectmove-disabled_28_28_32.png Binary file rt/iconrectmove-disabled_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconrectmove-dn_28_28_32.png Binary file rt/iconrectmove-dn_28_28_32.png has changed diff -r 987a8f165ca55d13410e6a0546928278d7bbf66c -r 0fb7a0efa2fe7c9b30bbb59baefcaa0dee2e5c37 rt/iconrectmove-up_28_28_32.png Binary file rt/iconrectmove-up_28_28_32.png has changed Repository URL: https://bitbucket.org/xemacs/edit-utils/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches