wm minsize . 50 50
wm title . "Put Objects"

frame .input
button .done -text "Done" -command {destroy .}

frame .input.sun -relief raised -bd 2
frame .input.planet -relief raised -bd 2

button .input.sun.sun -bitmap @bitmaps/sole.xbm 
button .input.planet.planet -bitmap @bitmaps/pianeta.xbm

scale .input.sun.scalem -label "mass" -from 10 -to 100 -length 4c \
  -orient horizontal -width 5
scale .input.sun.scaler -label "radius" -from 10 -to 100 -length 4c \
  -orient horizontal -width 5

scale .input.planet.scalem -label "mass" -from 10 -to 100 -length 4c \
  -orient horizontal -width 5
scale .input.planet.scaler -label "radius" -from 10 -to 100 -length 4c \
  -orient horizontal -width 5

frame .input.sun.m
label .input.sun.m.l -text "m:"
entry .input.sun.m.e -width 10 -relief sunken 
frame .input.sun.r                                                  
label .input.sun.r.l -text "r:"
entry .input.sun.r.e -width 10 -relief sunken 
pack .input.sun.m.l .input.sun.m.e -side left
pack .input.sun.r.l .input.sun.r.e -side left

frame .input.planet.m                                                  
label .input.planet.m.l -text "m:"
entry .input.planet.m.e -width 10 -relief sunken 
frame .input.planet.r                                                  
label .input.planet.r.l -text "r:"
entry .input.planet.r.e -width 10 -relief sunken 

button .input.sun.putit -text "Put it"
button .input.planet.putit -text "Put it"

pack .input.planet.m.l .input.planet.m.e -side left
pack .input.planet.r.l .input.planet.r.e -side left



pack .input .done -side top -fill both
pack .input.sun .input.planet -side left -fill both
pack .input.sun.sun .input.sun.scalem .input.sun.scaler \
  .input.sun.m .input.sun.r  -side top 
pack .input.sun.putit -side bottom -fill x 
pack .input.planet.planet .input.planet.scalem .input.planet.scaler \
  .input.planet.m .input.planet.r  -side top
pack .input.planet.putit -side bottom -fill x 








