Switch button doesn't light up

-The switch button doesn't light up, in red, when it's in the “on” position, whereas it does with the equivalent C code.
-In fact, its behavior is random: under certain circumstances, it lights up, but this behavior cannot be linked to any event.
Thanks
mark

AMD Ryzen 7 1700 Eight-Core Processor. RAM 16MB. AB350M-Gaming 3-CF
Ubuntu 24.04.2
GNAT 13.3.0
gtkada_25.0.1_d3787772 installed by Alire.

`
---------------
-- glade_9.adb
---------------
-- units from Gtk
with Gtk.Main;
with Glib.Error;     use Glib.Error;
with Gtk.Widget;     use Gtk.Widget;
with Gtk.Builder;    use Gtk.Builder;
with Gtkada.Builder; use Gtkada.Builder;

-- Ada predefined units
with Ada.Text_IO;    use Ada.Text_IO;
with Ada.Exceptions;

-- Application specific units
with Window_Callbacks; use Window_Callbacks;

procedure Glade_9 is

  Builder       : Gtkada_Builder;
  Error         : aliased Glib.Error.GError;
  FileName      : constant String := "gtkada_issues";
  GladeFileName : constant String := FileName & ".glade";
  use type Glib.Guint;
     
  begin
    -- Appelé dans toutes les applications GtkAda.
    -- Arguments ligne de commande sont analysés & retournés à l'application.
    Gtk.Main.Init;

    -- Etape 1 : créer un Builder 
    --         & lui donner accès à la fenetre maitre du fichier XML.
    Gtk_New (Builder);
    -- C'est le test qui provoqe le chargement du fichier xml (*.glade) par le builder.
    if Add_From_File (Gtk_Builder(Builder), GladeFileName, Error'Access) = 0 then
      Put_Line ("Error : " & Get_Message (Error));
      Error_Free (Error);
      return;
    end if;
    Put_Line (FileName & " : loading of builder OK ");
   
    -- Etape 2 : créer les handlers ("poignées") des events
    --             (de façon à préparer les callback).
    Register_Handler (Builder, "on_delete_event",          On_Delete_Event'Access);
    Register_Handler (Builder, "on_destroy",               On_Destroy'Access);

    Register_Handler (Builder, "on_switch1_state_set",     On_Switch1_State_Set'Access);

    Register_Handler (Builder, "on_font1_font_set",        On_Font1_Font_Set'Access);

    Register_Handler (Builder, "on_volume1_value_changed", On_Volume1_Value_Changed'Access);

    Register_Handler (Builder, "on_scroll1_value_changed", On_Volume1_Value_Changed'Access);
    Register_Handler (Builder, "adjustment2",              On_Adjustment2'Access);
    
    -- Etape 3 : Do_Connect connecte tous les handlers enregistrés en une fois.
    Do_Connect (Builder);
    Put_Line ("Booleen du Switch : " & boolean'Image (On_Switch1_State_Set (Builder)));

    -- Etape 4 : Afficher la fenetre avec ses dépendances
    Show_All (Gtk_Widget (Get_Object (GTK_Builder (Builder), "window")));

    -- Etape 5 : Lancer la boucle infinie.
    Gtk.Main.Main;

    -- Etape 6 : appeler Unref quand l'application se termine
    --             pour libérer la memoire associée au Builder.
    Unref (Builder);
    Put_Line ("Program " & FileName & " is finished !");

  exception
    when Error : others =>
      Ada.Text_IO.Put_Line (Ada.Exceptions.Exception_Information (Error));
  end Glade_9;
 
 
-------------------------
-- windows_callbacks.ads
-------------------------
with Gtkada.Builder; use Gtkada.Builder;

package Window_Callbacks is

  function  On_Delete_Event (Builder : access Gtkada_Builder_Record'Class) return Boolean;
  procedure On_Destroy (Builder : access Gtkada_Builder_Record'Class);

--Autant de procedures que d'events
 
  function On_Switch1_State_Set    (Builder : access Gtkada_Builder_Record'Class) return boolean;
  
  procedure On_Font1_Font_Set      (Builder : access Gtkada_Builder_Record'Class);
  
  procedure On_Volume1_Value_Changed (Builder : access Gtkada_Builder_Record'Class);

  procedure On_Scroll1_Value_Changed (Builder : access Gtkada_Builder_Record'Class);
  procedure On_Adjustment2           (Builder : access Gtkada_Builder_Record'Class);

end Window_Callbacks;


 ------------------------- 
-- windows_callbacks.adb
--------------------------
-- units from GtkAda
with Gtk.Main;

-- units from GtkAda
with Gtk.Label;	               use Gtk.Label;
with Gtk.Switch;               use Gtk.Switch;
with Gtk.Font_Button;          use Gtk.Font_Button;
with Gtk.Scale_Button;         use Gtk.Scale_Button;
with Gtk.GRange;               use Gtk.GRange;

-- units from Glib
with Glib;              use Glib;
with Glib.Object;       use Glib.Object;

-- Ada predefined units
with Ada.Text_IO;            use Ada.Text_IO;

package body Window_Callbacks  is
  -----------------------------------------------
  -- On_Window1_Delete_Event
  -----------------------------------------------
  function On_Delete_Event
                 (Builder : access Gtkada_Builder_Record'Class) return Boolean is
    pragma Unreferenced (Builder);
    begin
      put_line("Delete event");
      return False;
    end On_Delete_Event;

  -----------------------------------------------
  -- Callback to destroy a widget
  -----------------------------------------------
  procedure On_Destroy (Builder : access Gtkada_Builder_Record'Class) is
    pragma Unreferenced (Builder);
    begin
      Put_Line ("quitting");
      Gtk.Main.Main_Quit;
    end On_Destroy;
 
  -----------------------------------------------
  -- On_Switch1_Activate
  -----------------------------------------------
  Function On_Switch1_State_Set (Builder : access Gtkada_Builder_Record'Class) return boolean is
    begin
      if Gtk_Switch (Get_Object (Builder, "switch1")).Get_Active then
          -- Pas de contrôles des "fontes".
        --Gtk.Label.Set_Text (Gtk_Label (Get_Object (Builder, "label1")), "Switch 1 Active");

          -- Contrôle des "fontes". NB : seul "size" est actif, cause inconnue..
          Set_Markup (Gtk_Label (Get_Object (Builder, "label1")),
                  "<span weight=""ultrabold"" color=""#FF6600"" size=""x-large"">Switch 1 Active</span>");
        else
          Gtk.Label.Set_Text (Gtk_Label (Get_Object (Builder, "label1")), "Switch 1 Not Active");
      end if;
      return (Gtk_Switch (Get_Object (Builder, "switch1")).Get_Active);
    end On_Switch1_State_Set;

  ---------------------------------
  -- On_Font_Font_Set
  ---------------------------------
  procedure On_Font1_Font_Set (Builder : access Gtkada_Builder_Record'Class) is
    Button : access Gtk_Font_Button_Record;
    begin
      -- Get the font chooser button
      Button := Gtk_Font_Button (Get_Object(Builder, "font1"));
      declare
        Font_Name   : constant string := Get_Font (Button);
      --Font_Name   : constant string := Get_Font_Name (Button); --Deprecated since 3.22
      --Font_Name   : constant string := Get_Font (Button); --Ne marche pas (comme en C).
      --Font_Name   : constant string := Get_Font_Features (Button); --Ne marche pas
      --Font_Size   : constant Gint   := Get_Font_Size (Button); --Ne marche pas.
        begin
          --Afficher l'entry du selecteur de fontes
          Gtk.Label.Set_Text (Gtk_Label (Get_Object (Builder, "label2")), "Ne marche pas, ni en GtkAda, ni en C..");
          Ada.Text_IO.Put_Line ("Font selected : "    & Font_Name & "  Ne marche pas, ni en GtkAda, ni en C..");
          --Deprecated since: 3.22
          --Use the GtkFontChooser::font property instead.
          --Ada.Text_IO.Put_Line ("Size selected : " & GInt'Image (Font_Size));
        end;
    end On_Font1_Font_Set;

  ---------------------------------
  -- On_Volume_Value_Changed
  ---------------------------------
  procedure On_Volume1_Value_Changed (Builder : access Gtkada_Builder_Record'Class) is
    Button : access Gtk_Scale_Button_Record;
    begin
      Button := Gtk_Scale_Button (Get_Object(Builder, "volume1"));
      declare
        -- Gtk.Scale_Button.Set_Value
        --   can be used to set the volume control to a particular value.
        Volume_Value : constant GDouble := (Gtk.Scale_Button.Get_Value (Button));
        begin
          Ada.Text_IO.Put_Line ("Volume scale : " & GDouble'Image (Volume_Value));
        end;
    end On_Volume1_Value_Changed;

  ---------------------------------
  -- On_Scroll_Value_Changed
  ---------------------------------
  procedure On_Scroll1_Value_Changed (Builder : access Gtkada_Builder_Record'Class) is  --Ajout
    Button : access Gtk_Range_Record;
    begin
      Button := Gtk_Range (Get_Object(Builder, "scroll1"));
      declare
        Range_Value : constant GDouble := (Gtk.GRange.Get_Value (Button));
        Range_Value_Integer : constant integer := integer (Range_Value);
        begin
          Ada.Text_IO.Put_Line ("Scroll : " & integer'Image (Range_Value_Integer));
        end;
    end On_Scroll1_Value_Changed;
  
  -- Attaché au scroll précédent (On_Scroll_Value_Changed)
  procedure On_Adjustment2 (Builder : access Gtkada_Builder_Record'Class) is  --Ajout
    begin
      null;
    end On_Adjustment2;

end Window_Callbacks;


-------------------------
-- gtkada_issues.glade
-------------------------
<?xml version="1.0" encoding="UTF-8"?>

<interface>
  <requires lib="gtk+" version="3.20"/>
  <object class="GtkAdjustment" id="adjustment2">
    <property name="upper">1000</property>
    <property name="step-increment">1</property>
    <property name="page-increment">10</property>
  </object>
  <object class="GtkWindow" id="window">
    <property name="width-request">38</property>
    <property name="can-focus">False</property>
    <signal name="delete-event" handler="on_delete_event" swapped="no"/>
    <signal name="destroy" handler="on_destroy" swapped="no"/>
    <child>
      <object class="GtkFixed" id="fixed1">
        <property name="width-request">399</property>
        <property name="height-request">272</property>
        <property name="visible">True</property>
        <property name="can-focus">False</property>
        <child>
          <object class="GtkLabel" id="label1">
            <property name="width-request">205</property>
            <property name="visible">True</property>
            <property name="can-focus">False</property>
            <property name="tooltip-text" translatable="yes">I am a label hiding here.</property>
            <property name="label" translatable="yes">label 1</property>
            <attributes>
              <attribute name="font-desc" value="Sans Bold Italic 10"/>
              <attribute name="foreground" value="#efef29292929"/>
            </attributes>
          </object>
          <packing>
            <property name="x">150</property>
            <property name="y">216</property>
          </packing>
        </child>
        <child>
          <object class="GtkLabel" id="label2">
            <property name="width-request">205</property>
            <property name="visible">True</property>
            <property name="can-focus">False</property>
            <property name="label" translatable="yes">label2</property>
          </object>
          <packing>
            <property name="x">150</property>
            <property name="y">238</property>
          </packing>
        </child>
        <child>
          <object class="GtkSwitch" id="switch1">
            <property name="use-action-appearance">False</property>
            <property name="visible">True</property>
            <property name="can-focus">True</property>
            <property name="tooltip-text" translatable="yes">Switch!</property>
            <signal name="state-set" handler="on_switch1_state_set" swapped="no"/>
          </object>
          <packing>
            <property name="x">10</property>
            <property name="y">126</property>
          </packing>
        </child>
        <child>
          <object class="GtkFontButton" id="font1">
            <property name="width-request">141</property>
            <property name="height-request">51</property>
            <property name="visible">True</property>
            <property name="can-focus">True</property>
            <property name="receives-default">True</property>
            <property name="margin-top">2</property>
            <property name="margin-bottom">1</property>
            <property name="font">Sans 12</property>
            <property name="preview-text"/>
            <signal name="font-set" handler="on_font1_font_set" swapped="no"/>
          </object>
          <packing>
            <property name="x">140</property>
            <property name="y">114</property>
          </packing>
        </child>
        <child>
          <object class="GtkVolumeButton" id="volume1">
            <property name="visible">True</property>
            <property name="can-focus">True</property>
            <property name="focus-on-click">False</property>
            <property name="receives-default">True</property>
            <property name="relief">none</property>
            <property name="orientation">vertical</property>
            <property name="icons">audio-volume-muted-symbolic
audio-volume-high-symbolic
audio-volume-low-symbolic
audio-volume-medium-symbolic</property>
            <signal name="value-changed" handler="on_volume1_value_changed" swapped="no"/>
            <child internal-child="plus_button">
              <object class="GtkButton">
                <property name="can-focus">True</property>
                <property name="receives-default">True</property>
                <property name="halign">center</property>
                <property name="valign">center</property>
                <property name="relief">none</property>
              </object>
            </child>
            <child internal-child="minus_button">
              <object class="GtkButton">
                <property name="can-focus">True</property>
                <property name="receives-default">True</property>
                <property name="halign">center</property>
                <property name="valign">center</property>
                <property name="relief">none</property>
              </object>
            </child>
          </object>
          <packing>
            <property name="x">185</property>
            <property name="y">63</property>
          </packing>
        </child>
        <child>
          <object class="GtkScrollbar" id="scroll1">
            <property name="width-request">16</property>
            <property name="height-request">244</property>
            <property name="visible">True</property>
            <property name="can-focus">False</property>
            <property name="orientation">vertical</property>
            <property name="adjustment">adjustment2</property>
            <signal name="value-changed" handler="on_scroll1_value_changed" swapped="no"/>
          </object>
          <packing>
            <property name="x">321</property>
            <property name="y">15</property>
          </packing>
        </child>
      </object>
    </child>
  </object>
</interface>
`

`/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#+
#+     Glade / Gtk Programming
#+
#+     Copyright (C) 2019 by Kevin C. O'Kane
#+
#+     Kevin C. O'Kane
#+     kc.okane@gmail.com
#+     https://www.cs.uni.edu/~okane
#+     http://threadsafebooks.com/
#+
#+ This program is free software; you can redistribute it and/or modify
#+ it under the terms of the GNU General Public License as published by
#+ the Free Software Foundation; either version 2 of the License, or
#+ (at your option) any later version.
#+
#+ This program is distributed in the hope that it will be useful,
#+ but WITHOUT ANY WARRANTY; without even the implied warranty of
#+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#+ GNU General Public License for more details.
#+
#+ You should have received a copy of the GNU General Public License
#+ along with this program; if not, write to the Free Software
#+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#+
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/

#include <stdlib.h>
#include <sys/types.h>
#include <signal.h>
#include <unistd.h>
#include <string.h>
#include <gtk/gtk.h>
#include <gtk/gtkx.h>
#include <math.h>
#include <ctype.h>

// Make them global

GtkWidget	*window;
GtkWidget	*fixed1;
GtkWidget	*label1;
GtkWidget	*label2;
GtkWidget	*switch1;
GtkWidget	*font1;
GtkWidget	*volume1;
GtkWidget	*scroll1;
GtkBuilder	*builder; 

GtkAdjustment	*adjustment2;

int main(int argc, char *argv[]) {

	gtk_init(&argc, &argv); // init Gtk

//---------------------------------------------------------------------
// establish contact with xml code used to adjust widget settings
//---------------------------------------------------------------------
 
	builder = gtk_builder_new_from_file ("glade_9-c.glade");
 
	window = GTK_WIDGET(gtk_builder_get_object(builder, "window"));

	g_signal_connect(window, "destroy", G_CALLBACK(gtk_main_quit), NULL);

        gtk_builder_connect_signals(builder, NULL);

	fixed1  = GTK_WIDGET(gtk_builder_get_object(builder, "fixed1"));
	label1  = GTK_WIDGET(gtk_builder_get_object(builder, "label1"));
	label2  = GTK_WIDGET(gtk_builder_get_object(builder, "label2"));
	switch1 = GTK_WIDGET(gtk_builder_get_object(builder, "switch1"));
	font1   = GTK_WIDGET(gtk_builder_get_object(builder, "font1"));
	volume1 = GTK_WIDGET(gtk_builder_get_object(builder, "volume1"));
	scroll1 = GTK_WIDGET(gtk_builder_get_object(builder, "scroll1"));

	adjustment2 = GTK_ADJUSTMENT(gtk_builder_get_object(builder, "adjustment2"));

	/*******************
	struct GtkAdjustment {
                    gdouble lower,
                    gdouble upper,
                    gdouble step_increment,
                    gdouble page_increment,
                    gdouble page_size};
	****************************/

	/* alter the range of the scroll bar */

//        gtk_range_set_range (GTK_RANGE(scroll1), 0, 100);

	gtk_widget_show(window);

	gtk_main();

	return EXIT_SUCCESS;
	}

void	on_switch1_state_set (GtkSwitch *s) {
	gboolean T = gtk_switch_get_active(s);
	if (T) gtk_label_set_text (GTK_LABEL(label1), (const gchar* ) "Switch 1 Active");
	else gtk_label_set_text (GTK_LABEL(label1), (const gchar* ) "Switch 1 Not Active");
	}

void	on_font1_font_set(GtkFontButton *f1) {
	printf("font name = %s\n", gtk_font_button_get_font_name (f1) );
	}

void	on_volume1_value_changed (GtkVolumeButton *v1) {

	/*******************************************************************
	The function:
		void gtk_scale_button_set_value (GtkScaleButton *, gdouble)
	can be used to set the volume control to a particular value.
	********************************************************************/

	printf("volume scale = %f\n", gtk_scale_button_get_value(GTK_SCALE_BUTTON(v1)) );
	}

void    on_scroll1_value_changed(GtkRange *r) {
        gdouble x = gtk_range_get_value (r);
	printf("scroll = %d\n", (int) x );
        }


/*    glade_9-c.glade    */

<?xml version="1.0" encoding="UTF-8"?>

<interface>
  <requires lib="gtk+" version="3.20"/>
  <object class="GtkAdjustment" id="adjustment2">
    <property name="upper">1000</property>
    <property name="step-increment">1</property>
    <property name="page-increment">10</property>
  </object>
  <object class="GtkWindow" id="window">
    <property name="can-focus">False</property>
    <child>
      <object class="GtkFixed" id="fixed1">
        <property name="visible">True</property>
        <property name="can-focus">False</property>
        <child>
          <object class="GtkLabel" id="label1">
            <property name="width-request">205</property>
            <property name="visible">True</property>
            <property name="can-focus">False</property>
            <property name="tooltip-text" translatable="yes">I am a label hiding here.</property>
            <property name="label" translatable="yes">label 1</property>
            <attributes>
              <attribute name="font-desc" value="Sans Bold Italic 10"/>
              <attribute name="foreground" value="#efef29292929"/>
            </attributes>
          </object>
          <packing>
            <property name="x">220</property>
            <property name="y">282</property>
          </packing>
        </child>
        <child>
          <object class="GtkLabel" id="label2">
            <property name="width-request">205</property>
            <property name="visible">True</property>
            <property name="can-focus">False</property>
            <property name="label" translatable="yes">label2</property>
          </object>
          <packing>
            <property name="x">220</property>
            <property name="y">306</property>
          </packing>
        </child>
        <child>
          <object class="GtkSwitch" id="switch1">
            <property name="visible">True</property>
            <property name="can-focus">True</property>
            <property name="tooltip-text" translatable="yes">Switch!</property>
            <signal name="state-set" handler="on_switch1_state_set" swapped="no"/>
          </object>
          <packing>
            <property name="x">10</property>
            <property name="y">231</property>
          </packing>
        </child>
        <child>
          <object class="GtkFontButton" id="font1">
            <property name="visible">True</property>
            <property name="can-focus">True</property>
            <property name="receives-default">True</property>
            <property name="font">Sans 12</property>
            <property name="preview-text"/>
            <signal name="font-set" handler="on_font1_font_set" swapped="no"/>
          </object>
          <packing>
            <property name="x">115</property>
            <property name="y">197</property>
          </packing>
        </child>
        <child>
          <object class="GtkVolumeButton" id="volume1">
            <property name="visible">True</property>
            <property name="can-focus">True</property>
            <property name="focus-on-click">False</property>
            <property name="receives-default">True</property>
            <property name="orientation">vertical</property>
            <property name="size">invalid</property>
            <property name="adjustment">adjustment2</property>
            <property name="icons">audio-volume-muted-symbolic
audio-volume-high-symbolic
audio-volume-low-symbolic
audio-volume-medium-symbolic</property>
            <signal name="value-changed" handler="on_volume1_value_changed" swapped="no"/>
            <child internal-child="plus_button">
              <object class="GtkButton">
                <property name="can-focus">True</property>
                <property name="receives-default">True</property>
                <property name="halign">center</property>
                <property name="valign">center</property>
                <property name="relief">none</property>
              </object>
            </child>
            <child internal-child="minus_button">
              <object class="GtkButton">
                <property name="can-focus">True</property>
                <property name="receives-default">True</property>
                <property name="halign">center</property>
                <property name="valign">center</property>
                <property name="relief">none</property>
              </object>
            </child>
          </object>
          <packing>
            <property name="x">145</property>
            <property name="y">151</property>
          </packing>
        </child>
        <child>
          <object class="GtkScrollbar" id="scroll1">
            <property name="width-request">16</property>
            <property name="height-request">244</property>
            <property name="visible">True</property>
            <property name="can-focus">False</property>
            <property name="orientation">vertical</property>
            <property name="adjustment">adjustment2</property>
            <signal name="value-changed" handler="on_scroll1_value_changed" swapped="no"/>
          </object>
          <packing>
            <property name="x">421</property>
            <property name="y">75</property>
          </packing>
        </child>
      </object>
    </child>
  </object>
</interface>
`

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Switch button doesn't light up #65

`

-- glade_9.adb

-- windows_callbacks.ads

-- windows_callbacks.adb

package body Window_Callbacks is

-- On_Window1_Delete_Event

-- Callback to destroy a widget

-- On_Switch1_Activate

-- On_Font_Font_Set

-- On_Volume_Value_Changed

-- On_Scroll_Value_Changed

-- gtkada_issues.glade

Metadata

Assignees

Labels

Type

Projects

Milestone

Relationships

Development

Switch button doesn't light up #65

Description

`

-- glade_9.adb

-- windows_callbacks.ads

-- windows_callbacks.adb

package body Window_Callbacks is

-- On_Window1_Delete_Event

-- Callback to destroy a widget

-- On_Switch1_Activate

-- On_Font_Font_Set

-- On_Volume_Value_Changed

-- On_Scroll_Value_Changed

-- gtkada_issues.glade

Metadata

Metadata

Assignees

Labels

Type

Projects

Milestone

Relationships

Development

Issue actions