From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,7adec3d566b49f10,start
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.224.180.205 with SMTP id bv13mr1462883qab.8.1343316755786;
        Thu, 26 Jul 2012 08:32:35 -0700 (PDT)
Received: by 10.66.85.164 with SMTP id i4mr1703368paz.21.1343316307972;
        Thu, 26 Jul 2012 08:25:07 -0700 (PDT)
Path: 
 a15ni113198934qag.0!nntp.google.com!q21no6628855qas.0!news-out.google.com!b9ni60415685pbl.0!nntp.google.com!npeer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nx01.iad01.newshosting.com!newshosting.com!novia!feeder3.cambriumusenet.nl!feed.tweaknews.nl!94.232.116.15.MISMATCH!ramfeed-1.ams.xsnews.nl!feed.xsnews.nl!border-1.ams.xsnews.nl!newsfeed.straub-nv.de!news.linkpendium.com!news.linkpendium.com!eternal-september.org!feeder.eternal-september.org!border3.nntp.ams.giganews.com!Xl.tags.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!local2.nntp.ams.giganews.com!nntp.brightview.co.uk!news.brightview.co.uk.POSTED!not-for-mail
NNTP-Posting-Date: Mon, 23 Jul 2012 14:40:06 -0500
Message-ID: <JFL9X9ABZaDQFwj2@plus.net>
Date: Mon, 23 Jul 2012 20:30:09 +0100
From: Jack Mitchell <jack@home9999.plus.com>
Newsgroups: comp.lang.ada
Subject: GTKADA gtk.extra.sheet.get_visible_range
MIME-Version: 1.0
User-Agent: Turnpike/6.06-U (<hgMUaN9JpB0bdLbasjjpJziuag>)
X-Usenet-Provider: http://www.giganews.com
X-Trace: 
 sv3-Gv7Q+NuHgIbYwQt1ACy47l/pUNQG+dQf7A6qDWAVMU3N0rx2ruhYqZEu3pLgCnK/RJeLRf9szhe7lYp!AAzcCGzwj91GHJYdZXaz1aqAHDpXGsz5xXcimfdU6vAHsWH4OVp2QdTKB4WoxXeKRReezxM=
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint
 properly
X-Postfilter: 1.3.40
X-Original-Bytes: 3121
X-Received-Bytes: 3542
Content-Type: text/plain;charset=us-ascii
Date: 2012-07-23T20:30:09+01:00
List-Id: <comp.lang.ada>

Has any-one else had problems with the Get_Visible_Range in
GTK.EXTRA.SHEET ?

The package body source is :-

   -----------------------
   -- Get_Visible_Range --
   -----------------------

   procedure Get_Visible_Range
     (Sheet     : access Gtk_Sheet_Record;
      The_Range : out Gtk_Sheet_Range)
   is
      procedure Internal
        (Sheet : System.Address; The_Range : access Gtk_Sheet_Range);
      pragma Import (C, Internal, "gtk_sheet_get_visible_range");

      R : aliased Gtk_Sheet_Range;

   begin
      Internal (Get_Object (Sheet), R'Access);
      The_Range := R;
   end Get_Visible_Range;

The problem is that gtk_sheet_Range is an access, not the data itself :-

   type Gtk_Sheet_Range_Record is record
      Row0, Col0 : Gint;  --  Upper-left cell
      Rowi, Coli : Gint;  --  Lower-Right cell
   end record;

   type Gtk_Sheet_Range is access all Gtk_Sheet_Range_Record;
   --  A range in the sheet.
   --  This is a part of the sheet represented by its upper-left cell
and
   --  its lower-right cell.
   --  Most operations below apply to such ranges.



The best fix appears to be change the interface :-

   procedure Get_Visible_Range
     (Sheet     : access Gtk_Sheet_Record;
      The_Range : out Gtk_Sheet_Range_Record)

However this would be incompatible (not a big problem since the current
code doesn't work)

OR change the implementation

   -----------------------
   -- Get_Visible_Range --
   -----------------------

   procedure Get_Visible_Range
     (Sheet     : access Gtk_Sheet_Record;
      The_Range : out Gtk_Sheet_Range)
   is
      procedure Internal
        (Sheet : System.Address; The_Range : access
Gtk_Sheet_Range_Record);
      pragma Import (C, Internal, "gtk_sheet_get_visible_range");

      R : aliased Gtk_Sheet_Range_Record;

   begin
      Internal (Get_Object (Sheet), R'Access);
      The_Range.All := R;
   end Get_Visible_Range;



This since the problem was found at work where Internet access is not
available, so this is being reported from memory.
However the change to the implementation does work at least under
windows.

N.B. Is any-one else using GTKADA ?


-- 
Jack Mitchell