arrow arrow



<<     >>

HotelBDAddRoom

, (.14). .

.14

AbtAppBldrView subclass: #HotelBDAddRoom

instanceVariableNames: 'selectedRoom '

classVariableNames: ''

poolDictionaries: ''

selectedRoom

^selectedRoom

selectedRoom: anObject

selectedRoom := anObject.

self signalEvent: #selectedRoom with: anObject

createNewRoom: number with: type with: days

self selectedRoom: (HotelBDRoom new number:number; type:type; days:days).

(self subpartNamed: 'Window') closeWidgetCommand.

.15

  • 1. - clicked closeWidget .
  • 2. - clicked createNewRoom: number with: type with: days.
  • 3. object number 1
  • 4. object days 1
  • 5. selectedItem type 1

.15

 
<<     >>