Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hui-menu.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 4be1180a9e89
children
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 28-Oct-94 at 10:59:44 11 ;; ORIG-DATE: 28-Oct-94 at 10:59:44
12 ;; LAST-MOD: 19-Feb-97 at 10:50:57 by Bob Weiner 12 ;; LAST-MOD: 14-Mar-97 at 01:35:02 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc. 14 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
15 ;; 15 ;;
16 ;; This file is part of Hyperbole. 16 ;; This file is part of Hyperbole.
17 ;; 17 ;;
115 (setq smart-scroll-proportional nil) 115 (setq smart-scroll-proportional nil)
116 :style radio :selected (null smart-scroll-proportional)] 116 :style radio :selected (null smart-scroll-proportional)]
117 ["Scrolls-Proportionally" 117 ["Scrolls-Proportionally"
118 (setq smart-scroll-proportional t) 118 (setq smart-scroll-proportional t)
119 :style radio :selected smart-scroll-proportional] 119 :style radio :selected smart-scroll-proportional]
120 )
121 '("----"
122 ["Toggle-Rolodex-Dates" rolo-toggle-datestamps
123 :style toggle :selected (and (boundp 'wrolo-add-hook)
124 (listp wrolo-add-hook)
125 (memq 'rolo-set-date wrolo-add-hook))]
120 )) 126 ))
121 "Untitled menu of Hyperbole options.") 127 "Untitled menu of Hyperbole options.")
122 128
123 ;;; Don't change this name; doing so will break the way InfoDock 129 ;;; Don't change this name; doing so will break the way InfoDock
124 ;;; initializes the Hyperbole menu. 130 ;;; initializes the Hyperbole menu.
125 (defconst infodock-hyperbole-menu 131 (defconst infodock-hyperbole-menu
126 (delq nil 132 (delq nil
127 (list 133 (list
128 "Hyperbole" 134 "Hyperbole"
135 :config 'Hyperbole
129 '["About" (hypb:display-file-with-logo 136 '["About" (hypb:display-file-with-logo
130 (expand-file-name "ABOUT" hyperb:dir)) t] 137 (expand-file-name "ABOUT" hyperb:dir)) t]
131 '["Manual" (id-info "(hyperbole.info)Top") t] 138 '["Manual" (id-info "(hyperbole.info)Top") t]
132 "----" 139 "----"
133 '["Activate-Button-at-Point" hui:hbut-current-act t] 140 '["Activate-Button-at-Point" hui:hbut-current-act t]