22 lines
892 B
Text
22 lines
892 B
Text
$NetBSD: patch-ah,v 1.1 2011/07/19 18:32:14 drochner Exp $
|
|
|
|
--- prj_editor/src/project_properties.adb.orig 2010-12-14 22:30:31.000000000 +0000
|
|
+++ prj_editor/src/project_properties.adb
|
|
@@ -4925,7 +4925,7 @@ package body Project_Properties is
|
|
then
|
|
-- Some pages might not be visible though...
|
|
P := Get_Nth_Project_Editor_Page
|
|
- (Ed.Kernel, Page - Pages_From_XML_Count);
|
|
+ (Ed.Kernel, Page - Pages_From_XML_Count + 1);
|
|
end if;
|
|
|
|
if P /= null then
|
|
@@ -4934,7 +4934,7 @@ package body Project_Properties is
|
|
begin
|
|
Refresh
|
|
(Page => P,
|
|
- Widget => Ed.Pages (Page - Pages_From_XML_Count),
|
|
+ Widget => Ed.Pages (Page - Pages_From_XML_Count + 1),
|
|
Project => Ed.Project,
|
|
Languages => Languages.all);
|
|
Free (Languages);
|