What is wrong with the code below?
I am only getting Pen Color displayed not Pen Size


SetRect( @r, 20, 18, 240, 38 )
Appearance Button _colorPop,¬
                 ,, 101, -1,¬
                 "Select a pen color:", @r,¬
                 _kControlPopupButtonProc

SetRect ( @r, 100, 18, 240, 38)
Appearance Button _pensizePop,¬
                 ,, 102, -1,¬
                 "Select a pen size:", @r,¬
                  _kControlPopupButtonProc
window _toolWnd

Brian