fixes TToAnnulusCircularLayoutUser>>layoutRadius: to send #requestConfiguration

Author: plantec

src/Toplo-Examples/ToSandBox.class.st

@@ -1806,7 +1806,7 @@ ToSandBox class >> example_CircularContextMenu [
 
 	pane useCircularContextMenu.
 	pane contextMenuBuilder: [ :contextMenu :request |
-			contextMenu layoutRadius: 80.
+			
 			item := ToMenuItem new.
 			item icon: (iconProvider iconNamed: 'filled_checklist').
 			contextMenu addItem: item.
@@ -1849,12 +1849,10 @@ ToSandBox class >> example_CircularContextMenuWithSubmenus [
 	vpane contextMenuBuilder: [ :contextMenu :request |
 			| menuItems item subMenu |
 			menuItems := OrderedCollection new.
-			contextMenu layoutRadius: 80.
 			contextMenu localTheme: ToRawDarkTheme new.
 
 			1 to: 8 do: [ :i |
 					item := ToCircularMenu new.
-					item layoutRadius: 60.
 					item icon:
 						(ToMaterialDesignIconProvider iconNamed: 'outlined_settings').
 

src/Toplo-Widget-Circular/TToAnnulusCircularLayoutUser.trait.st

@@ -21,7 +21,8 @@ TToAnnulusCircularLayoutUser >> layoutRadius [
 { #category : #'t - annulus circular layout user' }
 TToAnnulusCircularLayoutUser >> layoutRadius: aNumber [
 
-	layoutRadius := aNumber
+	layoutRadius := aNumber.
+	self requestConfiguration
 ]
 
 { #category : #'t - annulus circular layout user' }

src/Toplo-Widget-Circular/ToCircularMenu.class.st

@@ -46,6 +46,12 @@ ToCircularMenu >> newItemList [
 	^ ToCircularMenuList new
 ]
 
+{ #category : #skin }
+ToCircularMenu >> newRawSkin [ 
+
+	^ ToCircularMenuSkin new
+]
+
 { #category : #'t - annulus sector layout user' }
 ToCircularMenu >> stateHolder [
 

src/Toplo-Widget-Circular/ToCircularMenuSkin.class.st

@@ -0,0 +1,12 @@
+Class {
+	#name : #ToCircularMenuSkin,
+	#superclass : #ToMenuSkin,
+	#category : #'Toplo-Widget-Circular-Menu'
+}
+
+{ #category : #'event handling' }
+ToCircularMenuSkin >> installSkinEvent: anEvent [
+
+	super installSkinEvent: anEvent.
+	anEvent elementDo: [ :e | e layoutRadius: 80 ]
+]

src/Toplo-Widget-Circular/ToCircularMenuWindowSkin.class.st

@@ -10,7 +10,8 @@ ToCircularMenuWindowSkin >> installSkinEvent: anEvent [
 	super installSkinEvent: anEvent.
 	" ***  notice that the background should be transparent. 
 	The background should be set in the node containers "
-	anEvent elementDo: [ :e | 
+	anEvent elementDo: [ :e |
+			e layoutRadius: 80.
 			e background: Color transparent.
 			e border: BlBorder empty.
 			e padding: BlInsets empty.