arrow arrow



<<     >>

HotelBDAddUser

, (.11).

.11

.

  • 1. - clicked closeWidget .
  • 2. - clicked saveTo:.
  • 3. object FName 1
  • 4. object SName 1
  • 5. selectedItem sex 1

.12

.

AbtAppBldrView subclass: #HotelBDAddUser

instanceVariableNames: 'selectedUser '

classVariableNames: ''

poolDictionaries: ''

Main.

selectedUser

^selectedUser

selectedUser: anObject

selectedUser := anObject.

self signalEvent: #selectedUser with: anObject

newUser: FName with: SName sex: sex

self selectedUser: (HotelBDUser new FName:FName; SName:SName; sex:sex).

(self subpartNamed: 'Window') closeWidgetCommand.

.13

 
<<     >>