CLIM mail archive
[Prev][Next][Index][Thread]
Further Use of the mouse to complete a command!!!!!
Below are three presentation-actions that will permit you to minimize going
back and forth between the mouse and keyboard during command input. The
only problem I have is that the first presentation action can be invoked before
entering any command to the application. Does anybody know how I can check
to see if there exists any input to the command queue to add to the tester
function for the first action?
(define-presentation-action Complete-An-Argument-In-Command-Line
(blank-area nil others :menu nil :gesture :select :documentation "Complete argument in command line")
()
(clim-utils:queue-put (clim:stream-input-buffer (frame-query-io *your-application*)) #\space)
(clim::immediate-rescan (clim:stream-input-buffer (frame-query-io *your-application*))))
(define-presentation-action Describe-Command-Or-Argument
(blank-area nil others :menu nil :gesture :describe :documentation "Describe either command or a command argument")
()
(clim-utils:queue-put (clim:stream-input-buffer (frame-query-io *your-application*)) #\control-?)
(clim::immediate-rescan (clim:stream-input-buffer (frame-query-io *your-application*))))
(define-presentation-action Complete-Command-Line
(blank-area nil others :menu nil :gesture :menu :documentation "Complete command line input")
()
(clim-utils:queue-put (clim:stream-input-buffer (frame-query-io *your-application*)) #\newline)
(clim::immediate-rescan (clim:stream-input-buffer (frame-query-io *your-application*))))
Main Index |
Thread Index