html table: [
html tableRowWithLabel: 'Live session instances' column: WAExpirySession allInstances size.
html tableRowWithLabel: 'Live component instances' column: self class allInstances size.
html tableRowWithLabel: 'Sessions created' column: WAExpirySession created.
html tableRowWithLabel: 'Sessions unregistered' column: WAExpirySession unregistered.
].
html anchorWithUrl: self session application baseUrl do: 'New Session'.
html break.
html anchorWithAction: [self session expire] text: 'Expire'.
html break.
html anchorWithAction: [WAExpirySession resetCounters] text: 'Reset Counters'.
html break.
html anchorWithAction: [Smalltalk garbageCollect] text: 'Garbage Collect'.
html break.
html anchorWithAction: [self session application clearHandlers. Smalltalk garbageCollect] text: 'Clear Handlers'.
html break.
html anchorWithAction: [self session application clearHandlers. WAExpirySession resetCounters. Smalltalk garbageCollect.
] text: 'Reset All'.
html form: [
html text: 'Expiry seconds:'.
html
textInputWithValue: (self session application preferenceAt: #sessionExpirySeconds)
callback: [:v | self session application preferenceAt: #sessionExpirySeconds put: v].
html space.
html submitButton]
|