Re: Print in Message Window

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

die Variante:

MyPrint[arg__] := Block[{$Output = OutputStream["stderr", 2]},
Print[arg]]

wird wohl eher nicht gefallen, was ist aber mit

MyPrint2[arg__] := Module[{ins = {arg}},
    NotebookWrite[FrontEnd`MessagesNotebook[], 
      Cell[RowBox[ToBoxes /@ ins], "Print"]]
    ]

und

Block[{Print = MyPrint2},
  Print[x, Pi, "Hallo"]]

??
Besonders r"ude Menschen w"urden hier Print=MyPrint2 global setzen.

Gruss
  Jens


"Georg Ch. Mellau" wrote:
> 
> Hallo,
> 
> ich habe ein Problem :
> 
> Ich moechte das ALLE Mathematica Print[...]  Befehle in den
> Message Fenster landen. Die Methode
> 
> SetOptions[mynotebook,
> PrintAction -> "PrintToConsole"];
> 
> funktioniert nicht, meistens wird doch ins Notebook gedruckt.
> 
> Gibt es hier überhaupt eine  Loesung ?
> 
> MfG
> 
> Georg Mellau