Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;ELC ;;; Compiled by leavens@CMC3251632-A on Thu Sep 04 23:07:34 2003 ;;; from file d:/emacs/eieio/eieio-custom.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`eieio-custom.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311$\207" [require eieio widget wid-edit custom eieio-defclass eieio-widget-test-class nil ((a-string :initarg :a-string :initform "The moose is loose" :custom string :label "Amorphous String" :group (default foo) :documentation "A string for testing custom.\nThis is the next line of documentation.") (listostuff :initarg :listostuff :initform ("1" "2" "3") :type list :custom (repeat (string :tag "Stuff")) :label "List of Strings" :group foo :documentation "A list of stuff.") (uninitialized :initarg :uninitialized :type string :custom string :documentation "This slot is not initialized.\nUsed to make sure that custom doesn't barf when it encounters one\nof these.") (a-number :initarg :a-number :initform 2 :custom integer :documentation "A number of thingies.")) ("A class for testing the widget on.")] 5) #@38 Test variable for editing an object. (custom-declare-variable 'eieio-widget-test '(eieio-widget-test-class "Foo") '(#$ . 1501) :type 'object) (custom-declare-face 'eieio-custom-slot-tag-face '((((class color) (background dark)) (:foreground "light blue")) (((class color) (background light)) (:foreground "blue")) (t (:italic t))) "Face used for unpushable variable tags." :group 'custom-faces) #@75 Buffer local variable in object customize buffers for the current widget. (defvar eieio-wo nil (#$ . 1902)) #@72 Buffer local variable in object customize buffers for the current obj. (defvar eieio-co nil (#$ . 2016)) #@74 Buffer local variable in object customize buffers for the current group. (defvar eieio-cog nil (#$ . 2127)) (define-widget 'object-slot 'group "Abstractly modify a single slot in an object." :tag "Slot" :format "%t %v%h\n" :convert-widget 'widget-types-convert-widget :value-create 'eieio-slot-value-create :value-get 'eieio-slot-value-get :value-delete 'widget-children-value-delete :validate 'widget-children-validate :match 'eieio-object-match) #@29 Create the value of WIDGET. (defalias 'eieio-slot-value-create #[(widget) "\302\303 \304 \305\"\306\307\310\304 \310\"&B\311 \312#)\207" [chil widget nil widget-create-child-and-convert widget-get :childtype :tag "" :value widget-put :children] 9 (#$ . 2581)]) #@26 Get the value of WIDGET. (defalias 'eieio-slot-value-get #[(widget) "\301\302\303\"@!\207" [widget widget-value widget-get :children] 4 (#$ . 2853)]) #@30 Toggle visibility of WIDGET. (defalias 'eieio-custom-toggle-hide #[(widget) "\302\303\"@\302 \304\"\305=\203!\306 \304\307#\210\306 \310\302 \311\"#\210\2026\306 \304\305#\210\306 \311\302 \310\"#\210\306 \310\312#\210\313 \314 !\")\207" [widget vc widget-get :children :eieio-custom-state hidden widget-put visible :value-face :orig-face invisible widget-value-set widget-value] 6 (#$ . 3010)]) #@93 Toggle visibility of parent of WIDGET. Optional argument IGNORE is an extraneous parameter. (defalias 'eieio-custom-toggle-parent #[(widget &rest ignore) "\301\302\303\"!\207" [widget eieio-custom-toggle-hide widget-get :parent] 4 (#$ . 3416)]) (define-widget 'object-edit 'group "Abstractly modify a CLOS object." :tag "Object" :format "%v" :convert-widget 'widget-types-convert-widget :value-create 'eieio-object-value-create :value-get 'eieio-object-value-get :value-delete 'widget-children-value-delete :validate 'widget-children-validate :match 'eieio-object-match :clone-object-children nil) #@38 Match info for WIDGET against VALUE. (defalias 'eieio-object-match #[(widget value) "\300\207" [t] 1 (#$ . 4021)]) #@26 Filter WIDGETs SLOTTYPE. (defalias 'eieio-filter-slot-type #[(widget slottype) "\302\303\"\203 \207 \304=\203\305\207 <\203\" @\304=\203\"\305 AB\207 \306\232\203*\307\207 <\203O @\310\232\203O A@<\203O A@@\304\232\203O\310\305 A@ABD\207 \207" [widget slottype widget-get :clone-object-children object object-edit (repeat object) (repeat object-edit) repeat] 3 (#$ . 4142)]) #@29 Create the value of WIDGET. (defalias 'eieio-object-value-create #[(widget) "\306\307\"\2042\310\307\306\311\"\203\306\311\"\312N H\313!\2020\306\314\"\203-\306\314\" \2020\315\316!#\210\317\306\307\"\306\320\" H\312N\211;H?;@HA;BHC;DHE\306\321\"\203}\322\323\324\325\326\327\330!&\nB\f\203\323\331 H\312NFH>A\242G\332\333!\210G\203\316\332\334!\210G@\f=\203\261\332\335\336\337\f!!\335#\210\202\305\340\341\342G@B\343\344\336\337G@!!&\210GA\211G\204\230\332\345!\210)=\203\322
E@\203\266
\f\203\352\fA@\235\203\266
\346=@\"\203\266
\347E@\"\317H\211I<\203P
\350I\235\211H\203P
\351HA@\"\317JKI@\350=\2042
I@JBJIA\211I\202
K\203J
\352K@DJBJKA\211K\2047
J\237I*\322\353\354I\326\355\324\356\306\357\"\206b
\360\361\"?@\203p
?@\202\230
\337\362 H=@\"\206
=@!L\336\363\364L\"\203\224
L\360\225\317O\202\226
L!)P\307\365=@\"\366C@\203\255
C@\202\256
\367\370\371&\nB*=A=CACEAE?A?AAA\202\323\310\372\n\237#. \207" [widget class-symbol chil obj master-group object-class widget-get :value widget-put :objecttype eieio-class-definition "Custom-new" :objectcreatefcn error "No create method specified" nil :eieio-group :eieio-show-name widget-create-child-and-convert string :tag "Object " :sample-face bold object-name-string :custom-groups widget-insert "Groups:" " " "*" capitalize symbol-name widget-create push-button :thing :notify #[(widget &rest stuff) "\301\302\303\"@\302\303\"A\"\207" [widget eieio-customize-object widget-get :thing] 5] "\n\n" slot-boundp eieio-filter-slot-type :slotofchoices eieio-oref const object-slot :childtype eieio-custom-slot-tag-face make-string :indent 0 32 class-slot-initarg string-match "^:" slot-value :doc "Slot not Documented." :eieio-custom-visibility visible :children cv class-public-a fields class-public-custom-label flabel class-public-custom-group fgroup class-public-doc fdoc class-public-custom fcust class-options groups stuff type newtype choices s] 16 (#$ . 4535)]) #@26 Get the value of WIDGET. (defalias 'eieio-object-value-get #[(widget) "\306\307\"\n \fH\310N\211H\306\311\"\306\312\"\205'\313@\314\"@\306\312\"\2036A\2028 \fH\310N\211H H\203\226\203\226@\203\204\203h@\235\203\204\315 @\"\203\204\316 @\313@\314\"@#\210AAAA\202L\203\242 I\210 .\n\207" [widget obj eieio-cog master-group object-class cv widget-get :value eieio-class-definition :children :eieio-show-name widget-apply :value-inline slot-boundp eieio-oset class-public-custom-group fgroup wids name chil class-public-a fields class-public-custom fcust object-name] 7 (#$ . 6582)]) (eieio-defmethod 'eieio-done-customizing '(((obj eieio-default-superclass)) #[(obj) "\300\207" [nil] 1 "When a applying change to a widget, call this method. This method is called by the default widget-edit commands. User made commands should also call this method when applying changes. Argument OBJ is the object that has been customized."])) #@97 Customize OBJ in a custom buffer. Optional argument GROUP is the sub-group of slots to display. (defalias 'customize-object #[(obj &optional group) "\302 \"\207" [obj group eieio-customize-object] 3 (#$ . 7595)]) (eieio-defmethod 'eieio-customize-object '(((obj eieio-default-superclass) &optional group) #[(obj &optional group) "\206\306\307\310\311\312 !\313\314 !\315\260!!\316\317!\210\320 \210\321 \210\322 \323\324@\"\210\323\324A\"\210)\325 !\210\326\327!\210\326\330\312 !\327#\210\331\305!\210\332 \333 #\326\334!\210\325 !\210\335#!\210\336 \210eb\210\337\340!\210\331\341!\210 !\331\342!\210\211\"*\207" [group g obj b all eieio-wo default switch-to-buffer get-buffer-create "*CUSTOMIZE " object-name " " symbol-name "*" toggle-read-only -1 kill-all-local-variables erase-buffer overlay-lists mapcar delete-overlay eieio-custom-object-apply-reset widget-insert " " "Edit object " make-local-variable eieio-custom-widget-insert :eieio-group " " use-local-map widget-setup widget-forward 3 eieio-co eieio-cog widget-keymap] 7 "Customize OBJ in a specialized custom buffer. To override call the `eieio-custom-widget-insert' to just insert the object widget. Optional argument GROUP specifies a subgroup of slots to edit as a symbol. These groups are specified with the `:group' slot flag."])) (eieio-defmethod 'eieio-custom-object-apply-reset '(((obj eieio-default-superclass)) #[(obj) "\300\301\302\303\304$\210\305\306!\210\300\301\302\307\310$\210\305\306!\210\300\301\302\311\312$\210\305\306!\210\300\301\302\313\314$\207" [widget-create push-button :notify #[(&rest ignore) "\302\303\"\210\304 !\210\305 \207" [eieio-wo eieio-co widget-apply :value-get eieio-done-customizing bury-buffer] 3] "Accept" widget-insert " " #[(&rest ignore) "\302\303!\210\304\305\"\210\306 !\210\302\307!\207" [eieio-wo eieio-co message "Applying Changes..." widget-apply :value-get eieio-done-customizing "Applying Changes...Done."] 3] "Apply" #[(&rest ignore) "\302\303!\210\304 \"\207" [eieio-co eieio-cog message "Resetting." eieio-customize-object] 3] "Reset" #[(&rest ignore) "\300 \207" [bury-buffer] 1] "Cancel"] 5 "Insert an Apply and Reset button into the object editor. Argument OBJ os the object being customized."])) (eieio-defmethod 'eieio-custom-widget-insert '(((obj eieio-default-superclass) &rest flags) #[(obj &rest flags) "\302\303\304\305 %\207" [obj flags apply widget-create object-edit :value] 6 "Insert the widget used for editing object OBJ in the current buffer. Arguments FLAGS are widget compatible flags. Must return the created widget."])) (define-widget 'object 'object-edit "Instance of a CLOS class." :format "%{%t%}:\n%v" :value-to-internal 'eieio-object-value-to-abstract :value-to-external 'eieio-object-abstract-to-value :clone-object-children t) #@65 For WIDGET, convert VALUE to an abstract /safe/ representation. (defalias 'eieio-object-value-to-abstract #[(widget value) "\301\302\303\217\203 \207?\205\207" [value nil (byte-code "\211\302H\303=\205\304\305\306\217)\207" [value tobj 0 object nil (byte-code " H\302N\303H\304=\207" [tobj object-class eieio-class-definition 0 defclass] 2) ((error))] 4) ((error))] 3 (#$ . 10401)]) #@65 For WIDGET, convert VALUE to an abstract /safe/ representation. (defalias 'eieio-object-abstract-to-value #[(widget value) "\207" [value] 1 (#$ . 10801)]) (eieio-defmethod 'eieio-customize-object-group '(((obj eieio-default-superclass)) #[(obj) "\303\304\305 H\306N H>A\242\"\207" [obj object-class class-options mapcar #[(group) "\302\303\304!P\305 \306DE\307#\207" [group obj vector "Group " symbol-name customize-object quote t] 6] :custom-groups eieio-class-definition] 5 "Create a list of vectors for customizing sections of OBJ."])) #@38 History for the custom group reader. (defvar eieio-read-custom-group-history nil (#$ . 11350)) (eieio-defmethod 'eieio-read-customization-group '(((obj eieio-default-superclass)) #[(obj) "\304 H\305N H>A\242\211G\306U\203@\202/\307\310\"\311\312\313\314\"\315P\316\317\316\320&\"A)\207" [obj object-class class-options g :custom-groups eieio-class-definition 1 mapcar #[(g) "\301!B\207" [g symbol-name] 2] assoc completing-read eieio-oref name " Custom Group: " nil t eieio-read-custom-group-history] 9 "Do a completing read on the name of a customization group in OBJ. Return the symbol for the group, or nil"])) (provide 'eieio-custom)