Added TToMouseHandler to gather all mouse related event management

src/Toplo-LookAndFeel/ToLAFRadioButtonDresser.class.st

@@ -1,6 +1,6 @@
 Class {
 	#name : #ToLAFRadioButtonDresser,
-	#superclass : #ToMouseHandlingDresser,
+	#superclass : #ToWidgetDresser,
 	#traits : 'TToSkinnableElementDresser',
 	#classTraits : 'TToSkinnableElementDresser classTrait',
 	#instVars : [
@@ -36,7 +36,7 @@ ToLAFRadioButtonDresser >> defaultCheckedIconImage: anElement [
 { #category : #accessing }
 ToLAFRadioButtonDresser >> defaultCheckedState [
 
-	^ ToWidgetState new
+	^ ToWidgetStateDep new
 		  name: #checked;
 		  whenEnterDo: [ :ann |
 			  ann widget icon: (self defaultCheckedIconImage: ann widget) ];
@@ -59,7 +59,7 @@ ToLAFRadioButtonDresser >> defaultIndeterminateIconImage: anElement [
 { #category : #accessing }
 ToLAFRadioButtonDresser >> defaultIndeterminateState [
 
-	^ ToWidgetState new
+	^ ToWidgetStateDep new
 		  name: #indeterminate;
 		  whenEnterDo: [ :ann | 
 			  ann widget icon: (self defaultIndeterminateIconImage: ann widget) ];
@@ -88,7 +88,7 @@ ToLAFRadioButtonDresser >> defaultUncheckedIconImage: anElement [
 { #category : #accessing }
 ToLAFRadioButtonDresser >> defaultUncheckedState [
 
-	^ ToWidgetState new
+	^ ToWidgetStateDep new
 		  name: #unchecked;
 		  whenEnterDo: [ :ann | 
 			  ann widget icon: (self defaultUncheckedIconImage: ann widget) ]
@@ -121,8 +121,6 @@ ToLAFRadioButtonDresser >> hover: anElement event: anEvent [
 { #category : #accessing }
 ToLAFRadioButtonDresser >> initialState: anElement [
 
-	super initialState: anElement.
-
 	"update main element"
 	self background: self skin background in: anElement.
 	self border: self skin border in: anElement.

src/Toplo/TToEnableableHandler.trait.st

@@ -0,0 +1,35 @@
+Trait {
+	#name : #TToEnableableHandler,
+	#instVars : [
+		'enabledHandler',
+		'disabledHandler'
+	],
+	#category : #'Toplo-Core'
+}
+
+{ #category : #'t - enableable handler - events handling' }
+TToEnableableHandler >> disabledEvent: anEvent in: anElement [
+]
+
+{ #category : #'t - enableable handler - events handling' }
+TToEnableableHandler >> enabledEvent: anEvent in: anElement [
+]
+
+{ #category : #'t - enableable handler - install/uninstall hook' }
+TToEnableableHandler >> onInstalledEnableableHandlingIn: anElement [
+
+	enabledHandler := BlEventHandler on: ToWidgetEnabledEvent do: [ :event | self enabledEvent: event in: anElement ].
+	disabledHandler := BlEventHandler on: ToWidgetDisabledEvent do: [ :event | self disabledEvent: event in: anElement ].
+
+	anElement addEventHandler: enabledHandler.
+	anElement addEventHandler: disabledHandler
+]
+
+{ #category : #'t - enableable handler - install/uninstall hook' }
+TToEnableableHandler >> onUninstalledEnableableHandlingIn: anElement [
+
+	anElement removeEventHandler: enabledHandler.
+	anElement removeEventHandler: disabledHandler.
+	enabledHandler := nil.
+	disabledHandler := nil
+]

src/Toplo/TToMouseHandler.trait.st

@@ -0,0 +1,115 @@
+Trait {
+	#name : #TToMouseHandler,
+	#instVars : [
+		'mouseEventListener'
+	],
+	#category : #'Toplo-Core'
+}
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> clickEvent: anEvent in: anElement [
+
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> doubleClickEvent: anEvent in: anElement [
+
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> leftClickEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> leftMouseDownEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> leftMouseUpEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> middleClickEvent: anEvent in: anElement [
+
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> middleMouseDownEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> middleMouseUpEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> mouseDownEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> mouseEnterEvent: anEvent in: anElement [
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> mouseLeaveEvent: anEvent in: anElement [
+
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> mouseUpEvent: anEvent in: anElement [
+
+
+]
+
+{ #category : #'t - mouse handling - install/uninstall  hook' }
+TToMouseHandler >> onInstalledMouseHandlingIn: anElement [
+
+	mouseEventListener := ToDresserMouseEventListener new target: anElement; dresser: self; yourself.
+	anElement addEventHandler: mouseEventListener
+]
+
+{ #category : #'t - mouse handling - install/uninstall  hook' }
+TToMouseHandler >> onUninstalledMouseHandlingIn: anElement [
+
+	anElement removeEventHandler: mouseEventListener.
+	mouseEventListener := nil
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> otherClickEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> otherMouseDownEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> otherMouseUpEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> rightClickEvent: anEvent in: anElement [
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> rightMouseDownEvent: anEvent in: anElement [
+
+]
+
+{ #category : #'t - mouse handling - events handling' }
+TToMouseHandler >> rightMouseUpEvent: anEvent in: anElement [
+
+]

src/Toplo/ToAbstractElementLook.class.st → src/Toplo/ToAbstractLook.class.st

@@ -1,35 +1,35 @@
 Class {
-	#name : #ToAbstractElementLook,
+	#name : #ToAbstractLook,
 	#superclass : #Object,
 	#category : #'Toplo-Core-Theme'
 }
 
 { #category : #'private event handling' }
-ToAbstractElementLook >> elementLookEvent: anEvent [
+ToAbstractLook >> elementLookEvent: anEvent [
 
 	^ self subclassResponsibility 
 ]
 
 { #category : #'event handling' }
-ToAbstractElementLook >> installLookEvent: anEvent [
+ToAbstractLook >> installLookEvent: anEvent [
 
 
 ]
 
 { #category : #testing }
-ToAbstractElementLook >> isNull [
+ToAbstractLook >> isNull [
 
 	^ false
 ]
 
 { #category : #removing }
-ToAbstractElementLook >> removeLook: aLook previous: previousLook [
+ToAbstractLook >> removeLook: aLook previous: previousLook [
 
 	self subclassResponsibility 
 ]
 
 { #category : #'event handling' }
-ToAbstractElementLook >> uninstallLookEvent: anEvent [
+ToAbstractLook >> uninstallLookEvent: anEvent [
 
 
 ]

src/Toplo/ToBackgroundLook.class.st

@@ -1,6 +1,6 @@
 Class {
 	#name : #ToBackgroundLook,
-	#superclass : #ToElementLook,
+	#superclass : #ToDefaultElementLook,
 	#instVars : [
 		'initialBg',
 		'hoverBg',

src/Toplo/ToBasicMenuItemDresser.class.st

@@ -1,6 +1,6 @@
 Class {
 	#name : #ToBasicMenuItemDresser,
-	#superclass : #ToMouseHandlingDresser,
+	#superclass : #ToWidgetDresser,
 	#category : #'Toplo-Widget-Menu'
 }
 
@@ -44,9 +44,3 @@ ToBasicMenuItemDresser >> onInstalledIn: anElement [
 	anElement border: BlBorder empty.
 	anElement padding: (BlInsets top: 0 left: 5 bottom: 0 right: 4 )
 ]
-
-{ #category : #'api - install/uninstall  hook' }
-ToBasicMenuItemDresser >> onUninstalledIn: anElement [
-
-	super onUninstalledIn: anElement
-]

src/Toplo/ToBorderLook.class.st

@@ -1,6 +1,6 @@
 Class {
 	#name : #ToBorderLook,
-	#superclass : #ToElementLook,
+	#superclass : #ToDefaultElementLook,
 	#instVars : [
 		'builder',
 		'pressedPaint',

src/Toplo/ToButtonSkin.class.st

@@ -2,7 +2,8 @@ Class {
 	#name : #ToButtonSkin,
 	#superclass : #ToWidgetSkin,
 	#instVars : [
-		'type'
+		'type',
+		'cursorLook'
 	],
 	#category : #'Toplo-Widget-Button-Skins'
 }
@@ -64,16 +65,19 @@ ToButtonSkin >> onSkinInstalledIn: anElement [
 	" must send to super ** after ** the look is initialize from type "
 	super onSkinInstalledIn: anElement.
 	self type onSkinInstalled: self in: anElement.
+	cursorLook := ToMouseCursorLook new.
+	cursorLook hoverCursor: [ :but | but isEnabled ifTrue: [ BlCursor hand ] ifFalse: []].
+	self addLook: cursorLook.
+
 
 ]
 
 { #category : #'api - install/uninstall  hook' }
 ToButtonSkin >> onSkinUninstalledIn: anElement [
 
 	self type onSkinUninstalled: self in: anElement.
+	self removeLook: cursorLook.
 	super onSkinUninstalledIn: anElement
-
-
 ]
 
 { #category : #accessing }

src/Toplo/ToCheckLook.class.st

@@ -1,6 +1,6 @@
 Class {
 	#name : #ToCheckLook,
-	#superclass : #ToElementLook,
+	#superclass : #ToDefaultElementLook,
 	#instVars : [
 		'checkedImage',
 		'indeterminateImage',

src/Toplo/ToDefaultElementLook.class.st

@@ -0,0 +1,53 @@
+Class {
+	#name : #ToDefaultElementLook,
+	#superclass : #ToElementLook,
+	#category : #'Toplo-Core-Theme-Looks'
+}
+
+{ #category : #accessing }
+ToDefaultElementLook class >> next: aLook [
+
+	^ self new next: aLook
+]
+
+{ #category : #'event handling' }
+ToDefaultElementLook >> clickLookEvent: anEvent [
+
+
+]
+
+{ #category : #'event handling' }
+ToDefaultElementLook >> hoveredLookEvent: anEvent [
+
+
+]
+
+{ #category : #'event handling' }
+ToDefaultElementLook >> initialLookEvent: anEvent [
+
+
+]
+
+{ #category : #'event handling' }
+ToDefaultElementLook >> installLookEvent: anEvent [
+
+	super installLookEvent: anEvent
+]
+
+{ #category : #'event handling' }
+ToDefaultElementLook >> leavedLookEvent: anEvent [
+
+
+]
+
+{ #category : #'event handling' }
+ToDefaultElementLook >> pressedLookEvent: anEvent [
+
+
+]
+
+{ #category : #'event handling' }
+ToDefaultElementLook >> uninstallLookEvent: anEvent [
+
+	super uninstallLookEvent: anEvent
+]

src/Toplo/ToDividerDresser.class.st

@@ -1,6 +1,6 @@
 Class {
 	#name : #ToDividerDresser,
-	#superclass : #ToMouseHandlingDresser,
+	#superclass : #ToWidgetDresser,
 	#instVars : [
 		'dividerHandler',
 		'firstTargetPositionChangeHandler',
@@ -52,7 +52,6 @@ ToDividerDresser >> hover: anElement event: anEvent [
 { #category : #'api - install/uninstall  hook' }
 ToDividerDresser >> initialState: anElement [
 
-	super initialState: anElement.
 	anElement thickness: 4.
 	anElement geometry: (BlRoundedRectangleGeometry cornerRadius: 4).
 	anElement border: (BlBorder paint: self colorProvider defaultBorderColor).