> If anyone could provide a code snippet that will enable me to do this, I'd
> be much obliged.
No problem. :-)
Will.
(defcustom atg-gen-get-set-var-template
'(
"'n>"
"\"//-------------------------------------\" 'n>"
"\"// property: \" (P \"Variable name: \" name) 'n>"
"(P \"Variable type: \" type) \" m\" (atg-gen-init-cap (atg-gen-lookup-named
'name)) \";\" 'n>"
"\"/**\" 'n>"
"\"* Gets property \" (s name) \".\" 'n>"
"\"**/\" 'n>"
"\"public \" (s type) \" get\" (atg-gen-init-cap (atg-gen-lookup-named
'name))"
"\"() \" 'n>"
"\"{ \" 'n>"
"\" return m\" (atg-gen-init-cap (atg-gen-lookup-named 'name)) \";\" 'n>"
"\"}\" 'n> 'n>"
"\"/**\" 'n>"
"\"* Sets property \" (s name) \".\" 'n>"
"\"**/\" 'n>"
"\"public void set\" (atg-gen-init-cap (atg-gen-lookup-named 'name))"
"\"(\" (s type)"
"\" p\" (atg-gen-init-cap (atg-gen-lookup-named 'name)) \") \" 'n> \" {\"
'n>"
"\"m\" (atg-gen-init-cap (atg-gen-lookup-named 'name))"
"\" = p\" (atg-gen-init-cap (atg-gen-lookup-named 'name))\";\" 'n>"
"\"}\" 'n>"
)
"*Template for creating a get/set method pair.
Setting this variable defines a template instantiation
command `atg-gen-get-set', as a side-effect."
:group 'atg-gen
:type '(repeat string)
:set '(lambda (sym val)
(defalias 'atg-gen-get-set
(tempo-define-template
"atg-get-set-pair"
(atg-gen-read-template val)
nil
"Insert variable get-set method pair."))
(set-default sym val)))
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
