如何在 VisualWorks Smalltalk 中主动更改标签的字符串

Question

我试图在程序运行期间动态更改 ApplicationModel 中标签的值。 我尝试过：

(self builder labelAt: #Label4) labelString: 'Dynamic text here'.

但出现 labelString 无法理解的错误。 当我运行时：

(self builder labelAt:#Label4)

我得到“UndefinedObject”。这显然表明我没有返回我的 Label 对象。

Answer 1

尝试

(self builder componentAt: #Label4) widget labelString: 'whatever'

或

(self widgetAt: #Label4) labelString: 'whatever'

Answer 2

如果您有一个用于更改值的模型，那么使用绑定到模型的只读 InputField 非常容易。我敢说，为不断变化的值建立一个模型通常是一个好主意。

如果将 InputField 定义为只读且没有边框，它将看起来与常规文本标签完全相同。从用户的角度来看，唯一的区别是能够从只读输入字段选择和复制文本，这在许多情况下很有用。

另一方面，标签可以具有更丰富的外观。您可以使用文本、组合文本或图像。