Changeset 592 for trunk/LocalPlayer/CityScreen.pas

Timestamp:

Aug 10, 2024, 3:40:04 PM (6 weeks ago)

Author:

chronos

Message:

• Fixed: Avoided more GTK2 chrashes.
• Fixed: Build StdAI with O1 optimization level to avoid crash.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/CityScreen.pas (modified) (2 diffs)

trunk/LocalPlayer/CityScreen.pas

@@ -1472 +1472 @@
           IconKind := mikImp;
           IconIndex := NewProject and cpIndex;
+          Gtk2Fix;
           ShowModal;
           QueryOk := ModalResult = mrOK;
@@ -1512 +1513 @@
         (MyCity[cix].Size < 3) and
         ((MyModel[NewProject and cpIndex].Kind = mkSlaves) or
-        (NewProject and cpConscripts <> 0))) then
-        if SimpleQuery(mkYesNo, Phrases.Lookup('EMIGRATE'), 'MSG_DEFAULT') <> mrOK
-        then
-          NewProject := NewProject or cpDisbandCity;
+        (NewProject and cpConscripts <> 0))) then begin
+          Gtk2Fix;
+          if SimpleQuery(mkYesNo, Phrases.Lookup('EMIGRATE'), 'MSG_DEFAULT') <> mrOK then
+            NewProject := NewProject or cpDisbandCity;
+        end;
       Server(sSetCityProject, Me, cix, NewProject);
       C.Project := MyCity[cix].Project;