Skip to content

Instantly share code, notes, and snippets.

@greggirwin
Created September 12, 2017 16:11
Show Gist options
  • Save greggirwin/432d7f1565179ed3e14ed1321ee3af89 to your computer and use it in GitHub Desktop.
Save greggirwin/432d7f1565179ed3e14ed1321ee3af89 to your computer and use it in GitHub Desktop.
Win7 Calculator basic layout
Red []
view [
style calc-btn: button 34x28
style fn-btn: calc-btn
style fn-btn*: calc-btn font-name "Symbol"
style num-btn: calc-btn white
across
space 4x4
field 200x50 right middle "0" font-size 18 return
fn-btn "MC" fn-btn "MR" fn-btn "MS" fn-btn "M+" fn-btn "M-" return
fn-btn* "¬" fn-btn "CE" fn-btn "C" fn-btn "±" fn-btn* "Ö" return
num-btn "7" num-btn "8" num-btn "9" fn-btn "/" fn-btn "%" return
num-btn "4" num-btn "5" num-btn "6" fn-btn "*" fn-btn* "1/c" return
num-btn "1" num-btn "2" num-btn "3" fn-btn "-" fn-btn 34x62 "=" return
pad 0x-34
num-btn 74 "0" num-btn "." fn-btn "+"
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment