MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: RE: Re: copying

  • To: mathgroup at smc.vnet.net
  • Subject: [mg45814] Re: [mg45775] RE: [mg45751] Re: copying
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Mon, 26 Jan 2004 01:53:17 -0500 (EST)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • References: <200401240536.AAA07499@smc.vnet.net>
  • Reply-to: murray at math.umass.edu
  • Sender: owner-wri-mathgroup at wolfram.com

It's the final step you mention below at which things always choke when 
I try to follow such instructions about creating a palette:

After generating a palette from the selection, I have an open notebook 
with an Untitled-... on its title bar.  But I cannot save it: Save As 
does not open the expected dialog box where I designate the place and 
name under which to save the notebook.

David Park wrote:
> ... About a month ago Bobby Treat posted code for a palette that allows you to
> simply select and copy Mathematica code in InputForm. I find this quite
> useful. I have attached a copy of the code below. Paste it into a notebook
> and choose to interpret it so that it will create a new notebook with a
> button. Then select it and generate a palette from the selection. Save it in
> Configuration/FrontEnd/Palettes.

> ************************************************************************
> 
> Notebook[{
> Cell[BoxData[
>     ButtonBox[\(Copy\ As\n
>       \ InputForm\),
>       ButtonFunction:>Module[ {cpy, cpynb, evalnb},
>           CompoundExpression[
>             Set[ cpy,
>               NotebookRead[
>                 InputNotebook[ ]]],
>             If[
>               SameQ[ cpy, {}],
>               Return[ ]],
>             Set[ cpynb,
>               NotebookCreate[ Visible -> False]],
>             NotebookWrite[ cpynb, cpy],
>             SelectionMove[ cpynb, All, Notebook],
>             FrontEndExecute[ {
>               FrontEndToken[
>               cpynb, "SelectionConvert", "InputForm"]}],
>             Set[ evalnb,
>               NotebookPut[
>                 Notebook[
>                   Map[ Cell[ #, "Input"]&, {
>                     BoxData[
>                       RowBox[ {"cpynb", "=",
>                         ToBoxes[ cpynb]}]],
>                     "FrontEndExecute[{FrontEndToken[cpynb,            \
>                 \"CopySpecial\",\"PlainText\"]}]",
>                     "NotebookClose[cpynb]",
>                     "NotebookClose[EvaluationNotebook[]]"}], Visible ->
>                   False]]],
>             SelectionMove[ evalnb, All, Notebook],
>             SelectionEvaluate[ evalnb], Null]],
>       ButtonEvaluator->Automatic,
>       Active->True]], NotebookDefault,
>   CellMargins->{{Inherited, Inherited}, {7, Inherited}},
>   PageBreakAbove->True,
>   CellLabelMargins->{{12, Inherited}, {Inherited, Inherited}},
>   InputAutoReplacements->{
>     "->"->"\[Rule]", ":>"->"\[RuleDelayed]", "<="->"\[LessEqual]",
>       ">="->"\[GreaterEqual]", "!="->"\[NotEqual]", "=="->"\[Equal]",
>       Inherited},
>   "TwoByteSyntaxCharacterAutoReplacement"->True,
>   Hyphenation->True,
>   LineSpacing->{1.25, 0},
>   ScriptMinSize->9,
>   CounterIncrements->"Text",
>   StyleMenuListing->None,
>   FontFamily->"Courier"]
> },
> FrontEndVersion->"5.0 for Microsoft Windows",
> ScreenRectangle->{{0, 1280}, {0, 941}},
> WindowSize->{492, 740},
> WindowMargins->{{21, Automatic}, {Automatic, 27}}
> ]
> 
> 
> 

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305


  • Prev by Date: Re: [Outer [Times, , ] ] Question
  • Next by Date: Re: Re: typesetting fractions
  • Previous by thread: RE: Re: copying
  • Next by thread: Re: copying