add kwarg to rotate Toggle

ReferenceTests/src/tests/figures_and_makielayout.jl

@@ -410,4 +410,13 @@ end
     Makie.Checkbox(f[2, 4], checked = false, checkboxcolor_unchecked = :yellow)
     Makie.Checkbox(f[2, 5], checked = true, checkboxcolor_checked = :orange)
     f
-end
+end
+
+@reference_test "Toggle" begin
+    f = Figure()
+    th = Makie.Toggle(f[1,1])
+    th.orientation[] = pi/2
+    tv = Makie.Toggle(f[2,1], orientation=pi/2)
+    tv.orientation[] = 0
+    f
+end

src/makielayout/blocks/toggle.jl

@@ -44,6 +44,14 @@ function initialize_block!(t::Toggle)
     button = scatter!(topscene, buttonpos, markersize = buttonsize,
         color = t.buttoncolor, strokewidth = 0, inspectable = false, marker = Circle)
 
+    onany(topscene, t.orientation, t.layoutobservables.computedbbox) do angle_rad, bbox
+        center = Vec3f(bbox.origin[1]+bbox.widths[1]/2, bbox.origin[2]+bbox.widths[2]/2, 0)
+        R = Makie.rotationmatrix_z(angle_rad)
+        T = Makie.translationmatrix(-center)
+        Tinv = Makie.translationmatrix(center)
+        topscene.transformation.model[] = Tinv * R * T
+    end
+
     mouseevents = addmouseevents!(topscene, t.layoutobservables.computedbbox)
 
     onmouseleftdown(mouseevents) do event

src/makielayout/types.jl

@@ -1152,15 +1152,32 @@ const CHECKMARK_BEZIER = scale(BezierPath(
     end
 end
 
+"""
+A switch with two states.
+
+## Constructors
+
+```julia
+Toggle(fig_or_scene; kwargs...)
+```
+
+## Examples
+
+```julia
+t_horizontal = Toggle(fig[1, 1])
+t_vertical = Toggle(fig[2, 1], orientation = pi/2)
+```
+
+"""
 @Block Toggle begin
     @attributes begin
         "The horizontal alignment of the toggle in its suggested bounding box."
         halign = :center
         "The vertical alignment of the toggle in its suggested bounding box."
         valign = :center
-        "The width of the toggle."
+        "The width (ie longitudinal length) of the toggle."
         width = 32
-        "The height of the toggle."
+        "The height (ie transverse length) of the toggle."
         height = 18
         "Controls if the parent layout can adjust to this element's width"
         tellwidth = true
@@ -1185,6 +1202,8 @@ end
         rimfraction = 0.33
         "The align mode of the toggle in its parent GridLayout."
         alignmode = Inside()
+        "The orientation of the toggle (-pi to pi; 0 is horizontal with \"on\" being to the right)."
+        orientation = 0
     end
 end
 

test/makielayout.jl

@@ -541,3 +541,9 @@ end
     end
     @test isempty(limits.listeners)
 end
+
+@testset "Toggle" begin
+    f = Figure()
+    Toggle(f[1,1])
+    Toggle(f[2,1], orientation=pi/2)
+end