diff --git a/src/Lepiter-UI/LePage.extension.st b/src/Lepiter-UI/LePage.extension.st index 2cd00a91..6ba1ae50 100644 --- a/src/Lepiter-UI/LePage.extension.st +++ b/src/Lepiter-UI/LePage.extension.st @@ -152,6 +152,7 @@ LePage >> gtDatabaseActionFor: anAction [ tooltip: 'Inspect the page''s database'; priority: 8; icon: LeIcons lepiterDatabase; + id: LePageDatabaseActionId; action: [ :aButton | aButton phlow spawnObject: self database ] ] diff --git a/src/Lepiter-UI/LePageDatabaseActionId.class.st b/src/Lepiter-UI/LePageDatabaseActionId.class.st new file mode 100644 index 00000000..a540d2a9 --- /dev/null +++ b/src/Lepiter-UI/LePageDatabaseActionId.class.st @@ -0,0 +1,10 @@ +Class { + #name : #LePageDatabaseActionId, + #superclass : #BlElementUniqueId, + #category : #'Lepiter-UI-Element IDs' +} + +{ #category : #'as yet unclassified' } +LePageDatabaseActionId >> asSymbol [ + ^ #'le-page--database-action' +]