Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- obj /: MakeBoxes[obj[arg__], fmt_] := With[
- {appearance = MakeBoxes[Panel[Column[{arg}], "obj"], fmt]}
- , InterpretationBox[appearance, obj[arg]]
- ]
- obj[1, 2, 3, 4]
- % // InputForm
- ToExpression@MakeBoxes@obj[1, 2, 3, 4]
Add Comment
Please, Sign In to add comment