Introduce support for disabling a `checkbox`

10 files changed, 81 insertions, 64 deletions

diff --git a/examples/checkbox/src/main.rs b/examples/checkbox/src/main.rs
index ef1a054d..314cb3fe 100644
--- a/examples/checkbox/src/main.rs
+++ b/examples/checkbox/src/main.rs
@@ -1,6 +1,7 @@
 use iced::executor;
 use iced::font::{self, Font};
-use iced::widget::{checkbox, column, container, text};
+use iced::theme::Checkbox;
+use iced::widget::{checkbox, column, container, row, text};
 use iced::{Application, Command, Element, Length, Settings, Theme};
 
 const ICON_FONT: Font = Font::with_name("icons");
@@ -13,12 +14,15 @@ pub fn main() -> iced::Result {
 struct Example {
     default_checkbox: bool,
     custom_checkbox: bool,
+    styled_checkbox_enabled: bool,
+    styled_checkbox_checked: bool,
 }
 
 #[derive(Debug, Clone, Copy)]
 enum Message {
     DefaultChecked(bool),
     CustomChecked(bool),
+    StyledChecked(bool),
     FontLoaded(Result<(), font::Error>),
 }
 
@@ -42,8 +46,14 @@ impl Application for Example {
 
     fn update(&mut self, message: Message) -> Command<Message> {
         match message {
-            Message::DefaultChecked(value) => self.default_checkbox = value,
+            Message::DefaultChecked(value) => {
+                self.default_checkbox = value;
+                self.styled_checkbox_enabled = value;
+            }
             Message::CustomChecked(value) => self.custom_checkbox = value,
+            Message::StyledChecked(value) => {
+                self.styled_checkbox_checked = value
+            }
             Message::FontLoaded(_) => (),
         }
 
@@ -51,19 +61,40 @@ impl Application for Example {
     }
 
     fn view(&self) -> Element<Message> {
-        let default_checkbox =
-            checkbox("Default", self.default_checkbox, Message::DefaultChecked);
-        let custom_checkbox =
-            checkbox("Custom", self.custom_checkbox, Message::CustomChecked)
-                .icon(checkbox::Icon {
-                    font: ICON_FONT,
-                    code_point: '\u{e901}',
-                    size: None,
-                    line_height: text::LineHeight::Relative(1.0),
-                    shaping: text::Shaping::Basic,
-                });
+        let default_checkbox = checkbox("Default", self.default_checkbox)
+            .on_toggle(Message::DefaultChecked);
 
-        let content = column![default_checkbox, custom_checkbox].spacing(22);
+        let checkboxes = [
+            ("Primary", Checkbox::Primary),
+            ("Secondary", Checkbox::Secondary),
+            ("Success", Checkbox::Success),
+            ("Danger", Checkbox::Danger),
+        ];
+
+        let checkboxes = row(checkboxes
+            .into_iter()
+            .map(|(label, style)| {
+                checkbox(label, self.styled_checkbox_checked)
+                    .on_toggle_maybe(
+                        self.default_checkbox.then(|| Message::StyledChecked),
+                    )
+                    .style(style)
+            })
+            .map(Element::from))
+        .spacing(10);
+
+        let custom_checkbox = checkbox("Custom", self.custom_checkbox)
+            .on_toggle(Message::CustomChecked)
+            .icon(checkbox::Icon {
+                font: ICON_FONT,
+                code_point: '\u{e901}',
+                size: None,
+                line_height: text::LineHeight::Relative(1.0),
+                shaping: text::Shaping::Basic,
+            });
+
+        let content =
+            column![default_checkbox, checkboxes, custom_checkbox,].spacing(22);
 
         container(content)
             .width(Length::Fill)
diff --git a/examples/custom_shader/src/main.rs b/examples/custom_shader/src/main.rs
index 78b2fbbb..9e8da3ba 100644
--- a/examples/custom_shader/src/main.rs
+++ b/examples/custom_shader/src/main.rs
@@ -89,11 +89,8 @@ impl Application for IcedCubes {
                     .step(0.01)
                     .width(100),
             ),
-            checkbox(
-                "Show Depth Buffer",
-                self.scene.show_depth_buffer,
-                Message::ShowDepthBuffer
-            ),
+            checkbox("Show Depth Buffer", self.scene.show_depth_buffer)
+                .on_toggle(Message::ShowDepthBuffer),
         ]
         .spacing(40);
 
diff --git a/examples/events/src/main.rs b/examples/events/src/main.rs
index fc51ac4a..d5d496c7 100644
--- a/examples/events/src/main.rs
+++ b/examples/events/src/main.rs
@@ -85,11 +85,8 @@ impl Application for Events {
                 .map(Element::from),
         );
 
-        let toggle = checkbox(
-            "Listen to runtime events",
-            self.enabled,
-            Message::Toggled,
-        );
+        let toggle = checkbox("Listen to runtime events", self.enabled)
+            .on_toggle(Message::Toggled);
 
         let exit = button(
             text("Exit")
diff --git a/examples/game_of_life/src/main.rs b/examples/game_of_life/src/main.rs
index 56f7afd5..b386b0cd 100644
--- a/examples/game_of_life/src/main.rs
+++ b/examples/game_of_life/src/main.rs
@@ -185,7 +185,8 @@ fn view_controls<'a>(
     row![
         playback_controls,
         speed_controls,
-        checkbox("Grid", is_grid_enabled, Message::ToggleGrid)
+        checkbox("Grid", is_grid_enabled)
+            .on_toggle(Message::ToggleGrid)
             .size(16)
             .spacing(5)
             .text_size(16),
diff --git a/examples/layout/src/main.rs b/examples/layout/src/main.rs
index 6cf0e570..b626c70d 100644
--- a/examples/layout/src/main.rs
+++ b/examples/layout/src/main.rs
@@ -86,7 +86,8 @@ impl Application for Layout {
         let header = row![
             text(self.example.title).size(20).font(Font::MONOSPACE),
             horizontal_space(Length::Fill),
-            checkbox("Explain", self.explain, Message::ExplainToggled),
+            checkbox("Explain", self.explain)
+                .on_toggle(Message::ExplainToggled),
             pick_list(
                 Theme::ALL,
                 Some(self.theme.clone()),
diff --git a/examples/styling/src/main.rs b/examples/styling/src/main.rs
index 10f3c79d..4718a123 100644
--- a/examples/styling/src/main.rs
+++ b/examples/styling/src/main.rs
@@ -115,11 +115,8 @@ impl Sandbox for Styling {
         .width(Length::Fill)
         .height(100);
 
-        let checkbox = checkbox(
-            "Check me!",
-            self.checkbox_value,
-            Message::CheckboxToggled,
-        );
+        let checkbox = checkbox("Check me!", self.checkbox_value)
+            .on_toggle(Message::CheckboxToggled);
 
         let toggler = toggler(
             String::from("Toggle me!"),
diff --git a/examples/svg/src/main.rs b/examples/svg/src/main.rs
index 3bf4960f..ba93007c 100644
--- a/examples/svg/src/main.rs
+++ b/examples/svg/src/main.rs
@@ -51,11 +51,9 @@ impl Sandbox for Tiger {
             },
         );
 
-        let apply_color_filter = checkbox(
-            "Apply a color filter",
-            self.apply_color_filter,
-            Message::ToggleColorFilter,
-        );
+        let apply_color_filter =
+            checkbox("Apply a color filter", self.apply_color_filter)
+                .on_toggle(Message::ToggleColorFilter);
 
         container(
             column![
diff --git a/examples/todos/src/main.rs b/examples/todos/src/main.rs
index 3d79f087..88c4c2b4 100644
--- a/examples/todos/src/main.rs
+++ b/examples/todos/src/main.rs
@@ -352,13 +352,10 @@ impl Task {
     fn view(&self, i: usize) -> Element<TaskMessage> {
         match &self.state {
             TaskState::Idle => {
-                let checkbox = checkbox(
-                    &self.description,
-                    self.completed,
-                    TaskMessage::Completed,
-                )
-                .width(Length::Fill)
-                .text_shaping(text::Shaping::Advanced);
+                let checkbox = checkbox(&self.description, self.completed)
+                    .on_toggle(TaskMessage::Completed)
+                    .width(Length::Fill)
+                    .text_shaping(text::Shaping::Advanced);
 
                 row![
                     checkbox,
diff --git a/examples/tour/src/main.rs b/examples/tour/src/main.rs
index b656289a..6d24b5ec 100644
--- a/examples/tour/src/main.rs
+++ b/examples/tour/src/main.rs
@@ -554,11 +554,13 @@ impl<'a> Step {
                     .width(Length::Fill)
                     .horizontal_alignment(alignment::Horizontal::Center),
             )
-            .push(checkbox(
-                "Use nearest interpolation",
-                filter_method == image::FilterMethod::Nearest,
-                StepMessage::ImageUseNearestToggled,
-            ))
+            .push(
+                checkbox(
+                    "Use nearest interpolation",
+                    filter_method == image::FilterMethod::Nearest,
+                )
+                .on_toggle(StepMessage::ImageUseNearestToggled),
+            )
             .align_items(Alignment::Center)
     }
 
@@ -616,16 +618,14 @@ impl<'a> Step {
             } else {
                 text_input
             })
-            .push(checkbox(
-                "Enable password mode",
-                is_secure,
-                StepMessage::ToggleSecureInput,
-            ))
-            .push(checkbox(
-                "Show icon",
-                is_showing_icon,
-                StepMessage::ToggleTextInputIcon,
-            ))
+            .push(
+                checkbox("Enable password mode", is_secure)
+                    .on_toggle(StepMessage::ToggleSecureInput),
+            )
+            .push(
+                checkbox("Show icon", is_showing_icon)
+                    .on_toggle(StepMessage::ToggleTextInputIcon),
+            )
             .push(
                 "A text input produces a message every time it changes. It is \
                  very easy to keep track of its contents:",
@@ -658,7 +658,8 @@ impl<'a> Step {
                         .horizontal_alignment(alignment::Horizontal::Center),
                 )
             } else {
-                checkbox("Explain layout", debug, StepMessage::DebugToggled)
+                checkbox("Explain layout", debug)
+                    .on_toggle(StepMessage::DebugToggled)
                     .into()
             })
             .push("Feel free to go back and take a look.")
diff --git a/examples/vectorial_text/src/main.rs b/examples/vectorial_text/src/main.rs
index d366b907..c2212b22 100644
--- a/examples/vectorial_text/src/main.rs
+++ b/examples/vectorial_text/src/main.rs
@@ -75,11 +75,8 @@ impl Sandbox for VectorialText {
         column![
             canvas(&self.state).width(Length::Fill).height(Length::Fill),
             column![
-                checkbox(
-                    "Use Japanese",
-                    self.state.use_japanese,
-                    Message::ToggleJapanese
-                ),
+                checkbox("Use Japanese", self.state.use_japanese,)
+                    .on_toggle(Message::ToggleJapanese),
                 row![
                     slider_with_label(
                         "Size",