-
-
Notifications
You must be signed in to change notification settings - Fork 353
/
SpMorphicPopoverAdapter.class.st
80 lines (58 loc) · 1.57 KB
/
SpMorphicPopoverAdapter.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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Class {
#name : #SpMorphicPopoverAdapter,
#superclass : #SpAbstractMorphicAdapter,
#category : #'Spec2-Adapters-Morphic-Base'
}
{ #category : #accessing }
SpMorphicPopoverAdapter class >> defaultHeight [
^ 30
]
{ #category : #accessing }
SpMorphicPopoverAdapter class >> defaultItemSeparation [
^ 3@0
]
{ #category : #factory }
SpMorphicPopoverAdapter >> addModelTo: aMorph [
aMorph contentMorph: self presenterWidget.
aMorph beRelativeTo: self presenter relativeTo adapter widget.
self setPopoverPositionTo: aMorph.
self presenter whenPresenterChangedDo: [
aMorph contentMorph: self presenterWidget ]
]
{ #category : #factory }
SpMorphicPopoverAdapter >> buildWidget [
| panelMorph |
panelMorph := SpPopoverMorph new.
self addModelTo: panelMorph.
^ panelMorph
]
{ #category : #factory }
SpMorphicPopoverAdapter >> contentPresenter [
^ self presenter presenter
]
{ #category : #api }
SpMorphicPopoverAdapter >> dismiss [
self widgetDo: [ :w | w popdown ]
]
{ #category : #api }
SpMorphicPopoverAdapter >> popup [
self widgetDo: [ :w |
self applyStyle: w.
w popup ]
]
{ #category : #api }
SpMorphicPopoverAdapter >> popupPointingTo: aRectangle [
self widgetDo: [ :w |
self applyStyle: w.
w popupPointingTo: aRectangle ]
]
{ #category : #factory }
SpMorphicPopoverAdapter >> presenterWidget [
self contentPresenter buildWithSpec.
self contentPresenter adapter applyStyle.
^ self contentPresenter adapter widget
]
{ #category : #factory }
SpMorphicPopoverAdapter >> setPopoverPositionTo: gtkPopover [
^ self presenter position applyTo: gtkPopover
]