/
SpMorphicBackend.class.st
51 lines (40 loc) · 1.05 KB
/
SpMorphicBackend.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Class {
#name : #SpMorphicBackend,
#superclass : #SpApplicationBackend,
#category : #'Spec2-Adapters-Morphic-Backend'
}
{ #category : #accessing }
SpMorphicBackend class >> backendName [
^ #Morphic
]
{ #category : #private }
SpMorphicBackend >> adapterBindingsClass [
^ SpMorphicAdapterBindings
]
{ #category : #'private notifying' }
SpMorphicBackend >> notifyError: aSpecNotification [
GrowlMorph
openWithLabel: 'Error'
contents: aSpecNotification message
backgroundColor: GrowlMorph theme dangerBackgroundColor
labelColor: GrowlMorph theme textColor
]
{ #category : #'private notifying' }
SpMorphicBackend >> notifyInfo: aSpecNotification [
GrowlMorph
openWithLabel: 'Information' translated
contents: aSpecNotification message
]
{ #category : #'ui dialogs' }
SpMorphicBackend >> selectDirectoryTitle: aString [
^ UIManager default
chooseDirectory: aString
path: ''
]
{ #category : #'ui dialogs' }
SpMorphicBackend >> selectFileTitle: aString [
^ UIManager default
chooseExistingFileReference: aString
extensions: nil
path: ''
]