add kwarg to rotate Toggle

CHANGELOG.md

@@ -2,6 +2,7 @@
 
 ## [Unreleased]
 
+- Add kwarg to rotate Toggle [#4445](https://github.com/MakieOrg/Makie.jl/pull/4445)
 - Allow plots to move between scenes in SpecApi [#4132](https://github.com/MakieOrg/Makie.jl/pull/4132).
 - Added empty constructor to all backends for `Screen` allowing `display(Makie.current_backend().Screen(), fig)` [#4561](https://github.com/MakieOrg/Makie.jl/pull/4561).
 - Added `subsup` and `left_subsup` functions that offer stacked sub- and superscripts for `rich` text which means this style can be used with arbitrary fonts and is not limited to fonts supported by MathTeXEngine.jl [#4489](https://github.com/MakieOrg/Makie.jl/pull/4489).

ReferenceTests/src/tests/figures_and_makielayout.jl

@@ -486,6 +486,14 @@ end
     tb = Textbox(gl[1, 3], bordercolor = :black, cornerradius = 20, 
         fontsize =10, textcolor = :red, boxcolor = :lightblue)
     Makie.set!(tb, "some string")
+end
 
+@reference_test "Toggle" begin
+    f = Figure()
+    scatter(f[1,1], [1,2,3], axis = (; height=200))
+    th = Makie.Toggle(f[1,2], valign=:top)
+    th.orientation[] = pi/2
+    tv = Makie.Toggle(f[1,3], valign=:top, orientation=pi/2)
+    tv.orientation[] = 0
     f
 end

src/makielayout/blocks/toggle.jl

@@ -2,25 +2,34 @@
 
     topscene = t.blockscene
 
-    markersize = lift(topscene, t.layoutobservables.computedbbox) do bbox
-        min(width(bbox), height(bbox))
+    onany(topscene, t.orientation, t.length, t.markersize) do or, len, ms
+        theta = or == :horizontal ? 0 : or == :vertical ? pi/2 : or
+        t.width[] = (len - ms) * cos(theta) + ms
+        t.height[] = (len - ms)  * sin(theta) + ms
     end
 
-    button_endpoint_inactive = lift(topscene, markersize) do ms
-        bbox = t.layoutobservables.computedbbox[]
+    button_endpoint_inactive = lift(topscene, t.markersize, t.layoutobservables.computedbbox) do ms, bbox
+
         Point2f(left(bbox) + ms / 2, bottom(bbox) + ms / 2)
     end
 
-    button_endpoint_active = lift(topscene, markersize) do ms
-        bbox = t.layoutobservables.computedbbox[]
-        Point2f(right(bbox) - ms / 2, bottom(bbox) + ms / 2)
+    button_endpoint_active = lift(topscene, t.markersize, t.layoutobservables.computedbbox) do ms, bbox
+        Point2f(right(bbox) - ms / 2, top(bbox) - ms / 2)
     end
 
-    buttonvertices = lift(topscene, markersize, t.cornersegments) do ms, cs
-        roundedrectvertices(t.layoutobservables.computedbbox[], ms * 0.499, cs)
+    buttonvertices = lift(topscene, t.length, t.markersize, t.cornersegments, t.orientation, t.layoutobservables.computedbbox) do len, ms, cs, or, bbox
+        rect0 = GeometryBasics.HyperRectangle(-ms/2, -ms/2, len, ms)
+        rrv = roundedrectvertices(rect0, ms * 0.499, cs)
+        theta = or == :horizontal ? 0 : or == :vertical ? pi/2 : or
+        costheta, sintheta = cos(theta), sin(theta)
+        rotmatrix = GeometryBasics.@SMatrix [costheta -sintheta
+                                             sintheta  costheta]
+        tranvector = Ref(GeometryBasics.@SVector [left(bbox)+ms/2, bottom(bbox)+ms/2])
+        Ref(rotmatrix) .* rrv .+ tranvector
     end
 
     # trigger bbox
+    notify(t.length)
     notify(t.layoutobservables.suggestedbbox)
 
     framecolor = Observable{Any}(t.active[] ? t.framecolor_active[] : t.framecolor_inactive[])
@@ -37,7 +46,7 @@
     end
 
     buttonfactor = Observable(1.0)
-    buttonsize = lift(topscene, markersize, t.rimfraction, buttonfactor) do ms, rf, bf
+    buttonsize = lift(topscene, t.markersize, t.rimfraction, buttonfactor) do ms, rf, bf
         ms * (1 - rf) * bf
     end
 

src/makielayout/types.jl

@@ -1152,16 +1152,37 @@ 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 = :vertical)
+t_diagonal = Toggle(fig[3, 1], orientation = pi/4)
+on(t_vertical.active) do switch_is_on
+    switch_is_on ? println("good morning!") : println("good night")
+end
+```
+
+"""
 @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."
-        width = 32
-        "The height of the toggle."
-        height = 18
+        "The width of the bounding box.  Use `length` and `markersize` to set the dimensions of the toggle."
+        width = Auto()
+        "The height of the bounding box.  Use `length` and `markersize` to set the dimensions of the toggle."
+        height = Auto()
         "Controls if the parent layout can adjust to this element's width"
         tellwidth = true
         "Controls if the parent layout can adjust to this element's height"
@@ -1185,6 +1206,12 @@ end
         rimfraction = 0.33
         "The align mode of the toggle in its parent GridLayout."
         alignmode = Inside()
+        "The orientation of the toggle.  Can be :horizontal, :vertical, or -pi to pi.  0 is horizontal with \"on\" being to the right."
+        orientation = :horizontal
+        "The length of the toggle."
+        length = 32
+        "The size of the button."
+        markersize = 18
     end
 end
 

test/makielayout.jl

@@ -547,3 +547,10 @@ end
     end
     @test isempty(limits.listeners)
 end
+
+@testset "Toggle" begin
+    f = Figure()
+    Toggle(f[1,1])
+    Toggle(f[2,1], orientation=:vertical)
+    Toggle(f[3,1], orientation=pi/4)
+end