Fixed width dropdown

src/manifest.tal

@@ -20,10 +20,10 @@
 			20 00 :select-down "Down $1
 			40 00 :select-left "Left $1
 			80 00 :select-right "Right $1
-			14 00 :select-dech "Decr.Height $1
+			14 00 :select-dech "Decr.H $1
-			24 00 :select-inch "Incr.Height $1
+			24 00 :select-inch "Incr.H $1
-			44 00 :select-decw "Decr.Width $1
+			44 00 :select-decw "Decr.W $1
-			84 00 :select-incw "Incr.Width $1
+			84 00 :select-incw "Incr.W $1
 			00 1b :select-reset "Reset $1
 		04 "Pick $1
 			00 '1 :pick-color1 "Color1 $1
@@ -188,8 +188,14 @@ JMP2r
 @draw-label ( label* -- next-label* )
 
 	LDA2k SWP2
-	#0004 ADD2 ;draw-str JSR2
+	#0004 ADD2 STH2k ;draw-str JSR2 
-	#06 ;draw-sub/mask LDA AND ;draw-chr/color STA
+	( fill )
+	#08 STH2r ;slen JSR2 NIP SUB #00
+	&loop
+		#20 ;draw-chr JSR2
+		INC GTHk ,&loop JCN
+	POP2
+	( #06 ;draw-sub/mask LDA AND ;draw-chr/color STA )
 	SWP2 ;draw-modkey JSR2
 
 JMP2r