Smalltalk 语言 列表框实战 动态添加删除列表项

Smalltalk阿木 发布于 2025-05-29 13 次阅读

Smalltalk【1】 语言列表框实战：动态添加【2】删除列表项

Smalltalk 是一种面向对象的编程语言，以其简洁、直观和易学著称。在 Smalltalk 中，列表框（ListBox【3】）是一种常用的界面元素，用于显示和操作一系列的项。本文将围绕 Smalltalk 语言中的列表框，通过实战演示如何动态添加和删除列表项。

Smalltalk 简介

Smalltalk 是一种高级编程语言，由 Alan Kay 和 Dan Ingalls 在 1970 年代初期设计。它是一种纯粹的面向对象语言，所有的数据都是对象，所有的操作都是消息传递。Smalltalk 的设计哲学强调简单、直观和易用。

列表框概述

列表框（ListBox）是一种用户界面元素，用于显示一系列的项。用户可以通过滚动条浏览列表中的项，并可以选择一个或多个项。在 Smalltalk 中，列表框通常与集合（Collection【4】）类一起使用，以存储和操作列表中的项。

动态添加列表项

以下是一个简单的 Smalltalk 示例，演示如何创建一个列表框，并动态添加列表项。

smalltalk
| listBox items |

items := 'Apple' 'Banana' 'Cherry' 'Date' 'Elderberry' asArray.

listBox := ListBox new
items: items
at: 100
width: 200
height: 100.

listBox open.

在上面的代码中，我们首先创建了一个包含水果名称的数组 `items`。然后，我们创建了一个 `ListBox` 对象 `listBox`，并将 `items` 数组传递给它。我们还将列表框的位置设置为屏幕的左上角（100, 100），宽度为 200，高度为 100。我们调用 `open` 方法来显示列表框。

动态删除【5】列表项

接下来，我们将扩展上面的示例，添加一个方法来动态删除列表框中的项。

smalltalk
| itemIndex |

itemIndex := 2. -- 假设我们要删除索引为 2 的项（即 'Cherry'）

listBox items at: itemIndex remove.

listBox refresh.

在上面的代码中，我们首先定义了一个变量 `itemIndex`，它表示要删除的项的索引。然后，我们使用 `remove` 方法从 `items` 集合中删除该索引处的项。我们调用 `refresh【6】` 方法来更新列表框的显示。

实现完整的动态添加删除功能

为了实现一个完整的动态添加和删除列表项的功能，我们可以创建一个类来封装列表框和相关的操作。

smalltalk
Class: ListBoxManager
InstVar: listBox
ClassVar: items

Class>>initialize
| items |
items := 'Apple' 'Banana' 'Cherry' 'Date' 'Elderberry' asArray.

InstanceMethod>>initialize
| listBox |
listBox := ListBox new
items: ClassVar items
at: 100
width: 200
height: 100.
self listBox: listBox.

InstanceMethod>>addItem: anItem
| items |
items := self listBox items.
items add: anItem.
self listBox items: items.

InstanceMethod>>removeItem: anIndex
| items |
items := self listBox items.
items at: anIndex remove.
self listBox items: items.

InstanceMethod>>refreshListBox
self listBox refresh.

在这个类中，我们定义了 `initialize【7】` 类方法【8】来初始化列表项，`initialize` 实例方法【9】来创建列表框，`addItem【10】:` 实例方法来添加列表项，`removeItem【11】:` 实例方法来删除列表项，以及 `refreshListBox` 实例方法来刷新列表框。

总结

通过本文的实战演示，我们学习了如何在 Smalltalk 语言中使用列表框，并实现了动态添加和删除列表项的功能。Smalltalk 的面向对象特性使得我们可以轻松地封装和复用代码，从而创建出功能丰富的用户界面。

进一步学习

- 探索 Smalltalk 的其他界面元素，如按钮、文本框等。
- 学习 Smalltalk 的图形界面库，如 Squeak【12】 或 Pharo【13】。
- 研究Smalltalk 的集合类和操作，以实现更复杂的列表框功能。

通过不断学习和实践，你将能够熟练地使用 Smalltalk 语言来构建强大的用户界面。