diff --git a/src/BaselineOfSQLite3/BaselineOfSQLite3.class.st b/src/BaselineOfSQLite3/BaselineOfSQLite3.class.st index 2a73731..a7bb034 100644 --- a/src/BaselineOfSQLite3/BaselineOfSQLite3.class.st +++ b/src/BaselineOfSQLite3/BaselineOfSQLite3.class.st @@ -65,13 +65,13 @@ BaselineOfSQLite3 >> versionSpecificBaseline: spec [ group: 'Core' with: 'SQLite3-Pharo8' ]. - spec for: #( #'pharo9.x' #'pharo10.x' #'pharo11.x' #'pharo12.x' #'pharo13.x') do: [ + spec for: #( #'pharo9.x' #'pharo10.x' #'pharo11.x' #'pharo12.x' #'pharo13.x' ) do: [ spec package: 'SQLite3-Pharo9'; group: 'Core' with: 'SQLite3-Pharo9' ]. - spec for: #( #'pharo10.x' #'pharo11.x' #'pharo12.x' #'pharo13.x') do: [ + spec for: #( #'pharo10.x' #'pharo11.x' #'pharo12.x' #'pharo13.x' ) do: [ spec package: 'SQLite3-Pharo10'; group: 'Core' with: 'SQLite3-Pharo10'. diff --git a/src/SQLite3-Inspector-Extensions/AbstractFileReference.extension.st b/src/SQLite3-Inspector-Extensions/AbstractFileReference.extension.st index 5999b65..09824e7 100644 --- a/src/SQLite3-Inspector-Extensions/AbstractFileReference.extension.st +++ b/src/SQLite3-Inspector-Extensions/AbstractFileReference.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #AbstractFileReference } +Extension { #name : 'AbstractFileReference' } -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } AbstractFileReference >> databaseSize [ |s| s := self size. @@ -8,7 +8,7 @@ AbstractFileReference >> databaseSize [ ^ ((s / 1024) roundDownTo: 0.01) asString, ' KB' ] -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } AbstractFileReference >> inspectionSQLite3Info [ @@ -27,13 +27,13 @@ AbstractFileReference >> inspectionSQLite3Info [ yourself ] -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } AbstractFileReference >> inspectionSQLite3InfoContext: aContext [ ^ aContext active: self isSQlite3Database ] -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } AbstractFileReference >> inspectionSQLite3Tables [ @@ -44,13 +44,13 @@ AbstractFileReference >> inspectionSQLite3Tables [ yourself ] -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } AbstractFileReference >> inspectionSQLite3TablesContext: aContext [ ^ aContext active: self isSQlite3Database ] -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } AbstractFileReference >> isSQlite3Database [ "Return true if the reference is an SQLite3 database file" diff --git a/src/SQLite3-Inspector-Extensions/SQLite3Database.extension.st b/src/SQLite3-Inspector-Extensions/SQLite3Database.extension.st index f332863..0b1f4e3 100644 --- a/src/SQLite3-Inspector-Extensions/SQLite3Database.extension.st +++ b/src/SQLite3-Inspector-Extensions/SQLite3Database.extension.st @@ -1,11 +1,12 @@ -Extension { #name : #SQLite3Database } +Extension { #name : 'SQLite3Database' } -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } SQLite3Database >> inspectionSQLite3Tables [ ^ SpTablePresenter new items: self tables; + beResizable; addColumn: (SpStringTableColumn title: 'Name' evaluated: [ :assoc | assoc name ]); addColumn: (SpStringTableColumn title: 'Number of rows' evaluated: [ :assoc | assoc numberOfRows ]); yourself diff --git a/src/SQLite3-Inspector-Extensions/SQLite3Row.extension.st b/src/SQLite3-Inspector-Extensions/SQLite3Row.extension.st index 6cf3e04..8ff640b 100644 --- a/src/SQLite3-Inspector-Extensions/SQLite3Row.extension.st +++ b/src/SQLite3-Inspector-Extensions/SQLite3Row.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SQLite3Row } +Extension { #name : 'SQLite3Row' } -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } SQLite3Row >> inspectionSQLite3Row [ diff --git a/src/SQLite3-Inspector-Extensions/SQLite3Table.extension.st b/src/SQLite3-Inspector-Extensions/SQLite3Table.extension.st index bebe620..11cc62e 100644 --- a/src/SQLite3-Inspector-Extensions/SQLite3Table.extension.st +++ b/src/SQLite3-Inspector-Extensions/SQLite3Table.extension.st @@ -1,32 +1,45 @@ -Extension { #name : #SQLite3Table } +Extension { #name : 'SQLite3Table' } -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } SQLite3Table >> inspectionSQLite3Columns [ - + ^ SpTablePresenter new - items: self columns; - addColumn: (SpStringTableColumn title: 'Column Name' evaluated: [ :each | each name ]); - addColumn: (SpStringTableColumn title: 'Column Type' evaluated: [ :each | each type ]); - addColumn: (SpStringTableColumn title: 'Non-empty values' evaluated: [ :each | each hasNotNullConstraint ifTrue: ['NOT NULL'] ifFalse: [''] ]); - yourself + items: self columns; + beResizable; + addColumn: (SpStringTableColumn + title: 'Column Name' + evaluated: [ :each | each name ]); + addColumn: (SpStringTableColumn + title: 'Column Type' + evaluated: [ :each | each type ]); + addColumn: + (SpStringTableColumn + title: 'Non-empty values' + evaluated: [ :each | + each hasNotNullConstraint + ifTrue: [ 'NOT NULL' ] + ifFalse: [ '' ] ]); + yourself ] -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } SQLite3Table >> inspectionSQLite3Data [ - + | presenter | - presenter := SpTablePresenter new. - presenter items: self rows. + presenter := SpTablePresenter new + items: self rows; + beResizable; + yourself. - self columnNames do: [:col | - presenter addColumn: (SpStringTableColumn title: col evaluated: [ :each | each at: col ]) - ]. - ^presenter + self columnNames do: [ :col | + presenter addColumn: + (SpStringTableColumn title: col evaluated: [ :each | each at: col ]) ]. + ^ presenter ] -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } SQLite3Table >> inspectionSQLite3Schema [ @@ -35,13 +48,18 @@ SQLite3Table >> inspectionSQLite3Schema [ yourself ] -{ #category : #'*SQLite3-Inspector-Extensions' } +{ #category : '*SQLite3-Inspector-Extensions' } SQLite3Table >> inspectionSQLite3TableProperties [ - + ^ SpTablePresenter new - items: self properties associations; - addColumn: (SpStringTableColumn title: 'Property' evaluated: [ :assoc | assoc key ]); - addColumn: (SpStringTableColumn title: 'Value' evaluated: [ :assoc | assoc value ]); - yourself + items: self properties associations; + beResizable; + addColumn: (SpStringTableColumn + title: 'Property' + evaluated: [ :assoc | assoc key ]); + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :assoc | assoc value ]); + yourself ] diff --git a/src/SQLite3-Inspector-Extensions/package.st b/src/SQLite3-Inspector-Extensions/package.st index 881dc4b..773d633 100644 --- a/src/SQLite3-Inspector-Extensions/package.st +++ b/src/SQLite3-Inspector-Extensions/package.st @@ -1 +1 @@ -Package { #name : #'SQLite3-Inspector-Extensions' } +Package { #name : 'SQLite3-Inspector-Extensions' }