daily pastebin goal
57%
SHARE
TWEET

Untitled

a guest Nov 15th, 2017 55 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top