Help language development. Donate to The Perl Foundation

Gnome::Gtk3 cpan:MARTIMM last updated on 2020-09-23

t/Grid.t
use v6;
#use lib '../gnome-glib/lib';
use NativeCall;
use Test;

use Gnome::Glib::List;
use Gnome::Gtk3::Container;
use Gnome::Gtk3::Grid;
use Gnome::Gtk3::Button;
use Gnome::Gtk3::Label;
use Gnome::Gtk3::Enums;

#-------------------------------------------------------------------------------
my Gnome::Gtk3::Grid $g;
my Gnome::Glib::List $gl;
#-------------------------------------------------------------------------------
subtest 'ISA test', {
  $g .= new;
  isa-ok $g, Gnome::Gtk3::Grid, ".new";
}

#-------------------------------------------------------------------------------
subtest 'Manipulations', {

  my Gnome::Gtk3::Button $button .= new(:label('press here'));
  $g.gtk-grid-attach( $button, 0, 0, 1, 1);
  $gl .= new(:native-object($g.get-children));
  is $gl.g-list-length, 1, '.gtk-grid-attach()';
  $gl.clear-object;

  $g.remove-row(0);
  nok $g.get-children, '.remove-row()';
#  $gl .= new(:native-object($g.get-children));
#  is $gl.g-list-length, 0, '.remove-row()';

  $button .= new(:label('press here'));
  $g.grid-attach( $button, 0, 0, 1, 1);
  $gl .= new(:native-object($g.get-children));
  is $gl.g-list-length, 1, '.grid-attach() testing _fallback()';
  $gl.clear-object;
  $g.remove-row(0);
  $button .= new(:label('press here'));
  $g.attach( $button, 0, 0, 1, 1);

  $g.remove-column(0);
  $button .= new(:label('press here'));
  $g.attach( $button, 0, 0, 1, 1);
  $gl .= new(:native-object($g.get-children));
  is $gl.g-list-length, 1, '.attach() testing _fallback()';
  $gl.clear-object;

  my Gnome::Gtk3::Label $label .= new(:text('note'));
  $g.attach-next-to( $label, $button, GTK_POS_RIGHT, 1, 1);
  $gl .= new(:native-object($g.get-children));
  is $gl.g-list-length, 2, '.attach-next-to()';
  $gl.clear-object;

  my Gnome::Gtk3::Label $label-widget .= new(:native-object($g.get-child-at( 1, 0)));
  is $label-widget.get-text, 'note', '.get-child-at()';

  # insert a column. label moves a place to the right
  $g.insert-next-to( $button, GTK_POS_RIGHT);
  $label-widget .= new(:native-object($g.get-child-at( 2, 0)));
  is $label-widget.get-text, 'note', '.insert-next-to()';

  $g.set-row-spacing(2);
  is $g.get-row-spacing, 2, '.set-row-spacing() / .get-row-spacing()';

  $g.set-column-spacing(3);
  is $g.get-column-spacing, 3, '.set-column-spacing() / .get-column-spacing()';
}

#-------------------------------------------------------------------------------
subtest 'Inherit from Container', {

  $gl .= new(:native-object($g.get-children));
  is $gl.g-list-length, 2, '.get-children()';

#note $gl.nth-data(1);
  my Gnome::Gtk3::Label $label-widget .= new(:native-object($gl.nth-data(0)));
  is $label-widget.get-text, 'note', 'text from label';

  $gl.clear-object;
  $gl = Gnome::Glib::List;
}

#`{{
#-------------------------------------------------------------------------------
subtest 'Interface ...', {
}

#-------------------------------------------------------------------------------
subtest 'Properties ...', {
}

#-------------------------------------------------------------------------------
subtest 'Themes ...', {
}

#-------------------------------------------------------------------------------
subtest 'Signals ...', {
}
}}

#-------------------------------------------------------------------------------
done-testing;