2021-07-19 00:14:39 +00:00
|
|
|
Extension { #name : #LeDatabase }
|
|
|
|
|
|
|
|
{ #category : #'*LepiterPlugins' }
|
|
|
|
LeDatabase >> addTestPage [
|
|
|
|
| page |
|
2021-07-19 23:13:18 +00:00
|
|
|
page := LePage new title: 'Test Page ',DateAndTime now asString.
|
2021-07-19 00:14:39 +00:00
|
|
|
^ self addPage: page.
|
|
|
|
]
|