SHARE
TWEET

Untitled

a guest Nov 15th, 2017 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. obj /: MakeBoxes[obj[arg__], fmt_] := With[
  2.   {appearance = MakeBoxes[Panel[Column[{arg}], "obj"], fmt]}
  3. , InterpretationBox[appearance, obj[arg]]
  4. ]
  5.  
  6. obj[1, 2, 3, 4]
  7.    
  8. % // InputForm
  9.    
  10. ToExpression@MakeBoxes@obj[1, 2, 3, 4]
RAW Paste Data
Top