Re: editing text in a pop-up window

• To: Mark Nahabedian <Naha@reagan.ai.mit.edu>
• Subject: Re: editing text in a pop-up window
• From: Colin Meldrum <colin@franz.com>
• Date: Fri, 14 Jan 94 11:34:30 -0800
• Cc: colin@franz.com, clim@BBN.COM, naha@ai.mit.edu, Benjamin@ai.mit.edu
• In-Reply-To: Your message of Fri, 14 Jan 94 14:05:00 EST. <19940114190506.6.NAHA@SIMON-BARSINISTER.AI.MIT.EDU>

In CLIM 2.0, the following should work:

(defun edit-text (stream text)
  (accepting-values (stream :own-window t)
    (setq text (accept 'string
		       :stream stream
		       :view '(text-editor-view
			       :nlines 20 :ncolumns 40)
		       :default text)))
  text)

Just call edit-text with a CLIM stream and the initial text

• Re: editing text in a pop-up window
• From: Scott McKay <swm@lyra.mystech.com>

• editing text in a pop-up window
• From: Mark Nahabedian <Naha@reagan.ai.mit.edu>

• Prev: editing text in a pop-up window
• Next: Re: editing text in a pop-up window
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)