Push-button widgets

Create push-button widgets (CwPushButton) using the createPushButton:argBlock: convenience method.

Push buttons call their activate callback when they are pressed and released.

In the following example, three buttons are created in a row-column. An activate callback has been added to each button. The same callback message is used in all three cases. The client data of the callback is used to identify which button was pressed. For simplicity, the shell is not shown in the diagram.

| shell rowColumn row b1 b2 b3 | shell := CwTopLevelShell createApplicationShell: 'Test' argBlock: nil. rowColumn := shell createRowColumn: 'buttons' argBlock: nil. rowColumn manageChild.

b1 := rowColumn

createPushButton: 'Top'

argBlock: nil.

b1

addCallback: XmNactivateCallback

receiver: self

selector: #button:clientData:callData:

clientData: 'top'.

b1 manageChild.

b2 := rowColumn

createPushButton: 'Middle'

argBlock: nil.

b2

addCallback: XmNactivateCallback

receiver: self

selector: #button:clientData:callData:

clientData: 'middle'.

b2 manageChild.

b3 := rowColumn

createPushButton: 'Bottom'

argBlock: nil.

b3

addCallback: XmNactivateCallback

receiver: self

selector: #button:clientData:callData:

clientData: 'bottom'.

b3 manageChild.

shell realizeWidget.

Here is the activate callback used in the code:

button: widget clientData: clientData callData: callData

"A button has been pressed."

Transcript cr; show: 'The ', clientData, ' button has been pressed.'