ProtoObjectObjectWAMainWARenderLoopMainWAAuthMain
| instance | class |
|---|---|
| as yet unclassified | no messages
|
| as yet unclassified |
|---|
| createRoot |
| root | root _ super createRoot. root addDecoration: (WABasicAuthentication new authenticator: self). ^ root |
| verifyPassword: password forUser: username |
^(self application preferenceAt: #login) = username and: [(self application preferenceAt: #password) = password] |