arrow arrow



<<     >>

HotelBDSearchEngine

, (.16). .

.16

.17

.18

Main

AbtAppBldrView subclass: #HotelBDSearchEngine

instanceVariableNames: 'NFNameSet NSNameSet NSexSet NTypeSet '

classVariableNames: ''

poolDictionaries: ''

init

self

NSNameSet: nil;

NFNameSet: nil;

NSexSet: nil;

NTypeSet: nil.

NFNameSet

^NFNameSet

NFNameSet: anObject

NFNameSet := anObject

NSNameSet

^NSNameSet

NSNameSet: anObject

NSNameSet := anObject

NSexSet

^NSexSet

NSexSet: anObject

NSexSet := anObject

NTypeSet

^NTypeSet

NTypeSet: anObject

NTypeSet := anObject

Not Categorized.

newFSNameSets: FName and: SName

self init.

self NFNameSet: FName.

self NSNameSet: SName.

self signalEvent: #FSNameSearch.

(self subpartNamed: 'Window') closeWidgetCommand.

newSexSets: NSex

self NSexSet: NSex.

self signalEvent: #SexSearch.

(self subpartNamed: 'Window') closeWidgetCommand.

newTypeSets: NType

self NTypeSet: NType;

signalEvent: #TypeSearch.

(self subpartNamed: 'Window') closeWidgetCommand.

newSFNameSexType: FName and: SName with: NSex with: NType

self NFNameSet: FName;

NSNameSet: SName.

self NSexSet: NSex.

self NTypeSet: NType.

self signalEvent: #AllSearch.

  • (self subpartNamed: 'Window') closeWidgetCommand.
  • 3.6.2 ,
  • 3.6.3
  • 1. - clicked closeWidget .
  • 2. - clicked newFSNameSets:and:.
  • 3. object FName 2
  • 4. object SName 2
  • 5. - clicked newSexSets:.
  • 6. choseditems sex 5
  • 7. - clicked newTypeSets:.
  • 8. choseditems type 7
  • 9. - clicked newSFNameSexType:and:with:with:.
  • 10. object FName 9
  • 11. object SName 9
  • 12. choseditems sex 9
  • 13. choseditems type 9
 
<<     >>