.

original commit: eaccc6e77cd7c741224b098d4a243c46a0224579

collects/mred/mred.ss

@@ -5396,7 +5396,13 @@
 		      (lambda (i s)
 			(check-item 'set-item-label i)
 			(check-label-string '(method tab-panel% set-item-label) s)
-			(as-exit (lambda () (send (mred->wx tabs) set-label i s)))))])
+			(let ([s (string->immutable-string s)])
+			  (set-car! (list-tail save-choices i) s)
+			  (as-exit (lambda () (send (mred->wx tabs) set-label i s))))))]
+     [get-item-label (entry-point
+		      (lambda (i)
+			(check-item 'get-item-label i)
+			(list-ref save-choices i)))])
     
     (private
       [check-item

notes/mred/HISTORY

@@ -1,4 +1,7 @@
 
+Version 299.23
+Added get-item-label and set-item-label to tab-panel%
+
 Version 299.22
 Added 'float style for frame%
 Added combo-field%