Re: [Help-smalltalk] Emacs smalltalk mode

[Paul Maurice]

Paolo Bonzini wrote:
> 
> 
>> I guess you want it in gst-mode.el instead? 
> 
> No, although the menu and key maps call functions defined in gst-mode,
> they go in smalltalk-mode. The smaltalk-mode applies to the buffer
> containing the smalltalk code being edited. From that buffer you can start
> and stop gst, select code and send it to gst to be executed, compile
> methods, file-in other files... It is similar to the Worksheet created
> from the browser.
> 
> The gst-mode applies to the buffer connected to the gst process, It works
> as a terminal running gst without the graphical interface.
> 
>> Also, please send the diff as "diff -u OLDFILE NEWFILE".
> 
> Here it is:
> --- /usr/local/share/emacs/site-lisp/smalltalk-mode.el  2006-02-11
> 14:42:09.000000000 -0500
> +++ ./smalltalk-mode.el 2006-02-12 20:28:24.000000000 -0500
> @@ -23,6 +23,7 @@
> 
>  ;;; Incorporates Frank Caggiano's changes for Emacs 19.
>  ;;; Updates and changes for Emacs 20 and 21 by David Forster
> +;;; Smalltalk mode menu added: Paul Maurice, Feb 12, 2006
> 
>  ;; ===[ Variables and constants ]=====================================
> 
> @@ -177,6 +178,7 @@
>    (setq mode-name "Smalltalk")
> 
>    (use-local-map smalltalk-mode-map)
> +  (smalltalk-add-menu)
>    (set-syntax-table smalltalk-mode-syntax-table)
>    (setq local-abbrev-table smalltalk-mode-abbrev-table)
> 
> @@ -835,3 +837,33 @@
> 
>  (provide 'smalltalk-mode)
>  (autoload 'gst "/usr/local/share/emacs/site-lisp/gst-mode.elc" "" t)
> +
> +;;
> +;;
> +;; Smalltalk Mode Menu
> +;;
> +;;
> +
> +(require 'easymenu)
> +
> +(defun smalltalk-add-menu ()
> +  "Add the \"Smalltalk\" menu to the menu bar."
> +
> +  (easy-menu-define
> +   smalltalk-mode-menu
> +   smalltalk-mode-map
> +   "Menu for smalltalk-mode."
> +   (append (list "Smalltalk")
> +              (list
> +               ["Start gst"             gst                   t]
> +               ["----------"            nil                 nil]
> +               ["Do-it"                 smalltalk-eval-region t]
> +;              ["Eval-expression"       smalltalk-doit        t]
> +               ["Print-it"              smalltalk-print       t]
> +               ["----------"            nil                 nil]
> +               ["Compile method"        smalltalk-compile     t]
> +               ["File-in"               smalltalk-filein      t]
> +               ["Snapshot image"        smalltalk-snapshot    t]
> +               ["----------"            nil                 nil]
> +               ["Quit gst"              smalltalk-quit        t])))
> +  (easy-menu-add smalltalk-mode-menu))
> 
> Paul Maurice
> 
> 
> _______________________________________________
> help-smalltalk mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/help-smalltalk
> 
> 
--
View this message in context: 
http://www.nabble.com/Re%3A-Emacs-smalltalk-mode-t1112587.html#a3008302
Sent from the Gnu - SmallTalk forum at Nabble.com.