Re: Creating a simple state inspector for Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg111926] Re: Creating a simple state inspector for Mathematica
- From: ADL <alberto.dilullo at tiscali.it>
- Date: Thu, 19 Aug 2010 07:21:20 -0400 (EDT)
- References: <i45rgt$g5a$1@smc.vnet.net> <i48jk4$e71$1@smc.vnet.net> <i4d666$6m4$1@smc.vnet.net>
Sorry, I posted the wrong code: the following is the one I wanted to
post.
ADL
ClearAll[Inspect];
Inspect[context_String, subcontext:(_String):""]:=
Module[{cont,temp},
Print[ Style[context, FontFamily -> "Arial", Bold,FontSize->20] ];
Dynamic [
Grid[
Partition[
(
OpenerView[
{
Row[{
Style[#, FontFamily -> "Arial", Bold],
Spacer[12],
Button[Style["Clear", 10], ToExpression["Clear[" <> # <>
"]"]],
Spacer[6],
Button[Style["ClearAll", 10], ToExpression["ClearAll["
<> # <> "]"]]
}],
Framed[
Pane[
Dynamic[
BeginPackage[context];
If[subcontext != "", Begin[subcontext]];
temp=ToString[Definition[#], OutputForm];
If[subcontext != "", End[]];
EndPackage[];
temp
],
ImageSize ->{Scaled[1], 80},
Scrollbars ->Automatic
],
Background -> LightYellow
]
}
] &
) /@
Names[context<>"*"],
3, 3, {1, 1}, {}
],
Alignment -> {Left, Baseline},
Background -> {Automatic, {{RGBColor[0.98996, 0.950057,
0.785382], RGBColor[1, 0.983169, 0.877287]}}},
ItemSize -> Scaled[.333]
],
ContinuousAction->False,
SynchronousUpdating->False
]
];