Init.m

[klamser <klamser@XXXXXXX.de>]

Hallo,

im Anhang steht der Inhalt meiner Init.m Datei.

Dort definiere ich z.B. den ShowStatus Befehl:

ShowStatus[status_] := LinkWrite[$ParentLink, 
SetNotebookStatusLine[FrontEnd`EvaluationNotebook[], ToString[status]]];

Leider funktionert das ganz nicht so wie ich will.

Beim Start erscheint das Message Fenster, wo die Printbefehle ablaufen.

Auch der Testaufruf von ShowStatus["Mathematica 5.1.1"]; erscheint in 
der Statuszeile des Messagefensters, aber nicht in der 
Notebookstatuszeile, wo es hingehört.

??ShowStatus sagt:

Information::"notfound":"Symbol \!\(\"ShowStatus\"\) not found. \
\!\(\*ButtonBox[\"Mehr\[Ellipsis]\", ButtonStyle->\"RefGuideLinkText\", \
ButtonFrame->None, ButtonData:>\"General::notfound\"]\)"

Was mach ich falsch?

Freundlicher Gruß

Peter Klamser

Init.m


(** User Mathematica initialization file **)

(** Decide how to display graphics on this machine **)

Begin["System`Private`"]

(* Hide any symbols which are created *)

Which[
       $Remote || $ParentLink =!= Null,               <<"PSDirect.m",
       Environment["DISPLAY"]        =!= $Failed,     <<"Motif.m",
       True,                                          <<"Terminal.m"
    ];

Off[General::"spell"]
Off[General::"spell1"]
Off[General::"spell2"]

$HistoryLength=10;

$TextStyle = {FontFamily -> "Hlvtica", IndentMaxFraction->0};

Unprotect[FindRoot];
FindRoot[what_, {x_, {xmin_, xmax_}}, opts___] := FindRoot[what, {x, 
xmin, xmax}, opts];
Protect[FindRoot];

ShowStatus[status_] := LinkWrite[$ParentLink, 
SetNotebookStatusLine[FrontEnd`EvaluationNotebook[], ToString[status]]];

SetOptions[Plot,PlotStyle -> 
{RGBColor[1,1,0],RGBColor[0,0,0],RGBColor[0,0,1],RGBColor[0,1,0],RGBColor[1,0,0],RGBColor[0,1,1],RGBColor[1,0,1]}];

SetOptions[Plot,PlotStyle -> Table[Hue[i],{i,0,1,0.2}]];

SetOptions[Plot,PlotStyle -> 
{RGBColor[1,1,0],RGBColor[0,0,0],RGBColor[0,0,1],RGBColor[0,1,0],RGBColor[1,0,0],RGBColor[0,1,1],RGBColor[1,0,1]}];

SetOptions[Plot,
   PlotStyle\[Rule]{RGBColor[0,0,0],RGBColor[1,0,0],RGBColor[0,0,1],
       RGBColor[0,1,0],RGBColor[1,0,1],RGBColor[0,1,1],RGBColor[1,1,1]}];

$TextStyle = {FontFamily -> "Times", 
IndentMaxFraction->0,FontSlant->"Italic",FontWeight->"Plain"};

<<RealTime3D`

On[ShowTime];

Print["Mathematica 5.1.1 Start"]
Needs["Utilities`ShowTime`"]
ShowStatus["Mathematica 5.1.1"];

End[]