hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Dump glade

Browse Source
This commit is contained in:
Julian Ospald 2016-07-28 21:14:31 +02:00
parent 868ac4a87a
commit cfb428a70e
3 changed files with 174 additions and 168 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CG2.cabal
View File

@ -86,7 +86,7 @@ executable Gtk
diagrams-contrib >= 1.3.0.0, diagrams-contrib >= 1.3.0.0,
directory >=1.2, directory >=1.2,
filepath >= 1.3.0.2, filepath >= 1.3.0.2,
glade >=0.12, glib >=0.13,
gtk >=0.12, gtk >=0.12,
safe >= 0.3.8, safe >= 0.3.8,
transformers >=0.4 transformers >=0.4

69
GUI/Gtk.hs
View File

@ -14,10 +14,11 @@ import Diagrams.Backend.Cairo.Internal
import Graphics.Diagram.Core (DiagProp(..)) import Graphics.Diagram.Core (DiagProp(..))
import Graphics.Diagram.Gtk import Graphics.Diagram.Gtk
import Graphics.UI.Gtk import Graphics.UI.Gtk
import Graphics.UI.Gtk.Glade import Graphics.UI.Gtk.Builder
import MyPrelude import MyPrelude
import System.Directory import System.Directory
import System.FilePath.Posix import System.FilePath.Posix
import System.Glib.UTFString
import Text.Read import Text.Read
@ -77,42 +78,38 @@ data MyGUI = MkMyGUI {
} }
-- |The glade file to load the UI from.
gladeFile :: FilePath
gladeFile = "GUI/gtk2.glade"
-- |Loads the glade file and creates the MyGUI object. -- |Loads the glade file and creates the MyGUI object.
makeMyGladeGUI :: IO MyGUI makeMyGladeGUI :: IO MyGUI
makeMyGladeGUI = do makeMyGladeGUI = do
-- load glade file -- load glade file
Just xml <- xmlNew gladeFile builder <- builderNew
builderAddFromFile builder "GUI/gtk2.xml"
MkMyGUI MkMyGUI
<$> xmlGetWidget xml castToWindow "window1" <$> builderGetObject builder castToWindow "window1"
<*> xmlGetWidget xml castToWindow "window2" <*> builderGetObject builder castToWindow "window2"
<*> xmlGetWidget xml castToButton "drawButton" <*> builderGetObject builder castToButton "drawButton"
<*> xmlGetWidget xml castToButton "saveButton" <*> builderGetObject builder castToButton "saveButton"
<*> xmlGetWidget xml castToButton "quitButton" <*> builderGetObject builder castToButton "quitButton"
<*> xmlGetWidget xml castToFileChooserButton "filechooserButton" <*> builderGetObject builder castToFileChooserButton "filechooserButton"
<*> xmlGetWidget xml castToDrawingArea "drawingarea" <*> builderGetObject builder castToDrawingArea "drawingarea"
<*> xmlGetWidget xml castToDrawingArea "treedrawingarea" <*> builderGetObject builder castToDrawingArea "treedrawingarea"
<*> xmlGetWidget xml castToHScale "hscale" <*> builderGetObject builder castToHScale "hscale"
<*> xmlGetWidget xml castToEntry "xlD" <*> builderGetObject builder castToEntry "xlD"
<*> xmlGetWidget xml castToEntry "xuD" <*> builderGetObject builder castToEntry "xuD"
<*> xmlGetWidget xml castToEntry "ylD" <*> builderGetObject builder castToEntry "ylD"
<*> xmlGetWidget xml castToEntry "yuD" <*> builderGetObject builder castToEntry "yuD"
<*> xmlGetWidget xml castToAboutDialog "aboutdialog" <*> builderGetObject builder castToAboutDialog "aboutdialog"
<*> xmlGetWidget xml castToComboBox "comboalgo" <*> builderGetObject builder castToComboBox "comboalgo"
<*> xmlGetWidget xml castToCheckButton "gridcheckbutton" <*> builderGetObject builder castToCheckButton "gridcheckbutton"
<*> xmlGetWidget xml castToCheckButton "coordcheckbutton" <*> builderGetObject builder castToCheckButton "coordcheckbutton"
<*> xmlGetWidget xml castToEntry "path" <*> builderGetObject builder castToEntry "path"
<*> xmlGetWidget xml castToBox "vbox7" <*> builderGetObject builder castToBox "vbox7"
<*> xmlGetWidget xml castToBox "vbox10" <*> builderGetObject builder castToBox "vbox10"
<*> xmlGetWidget xml castToEntry "rxMin" <*> builderGetObject builder castToEntry "rxMin"
<*> xmlGetWidget xml castToEntry "rxMax" <*> builderGetObject builder castToEntry "rxMax"
<*> xmlGetWidget xml castToEntry "ryMin" <*> builderGetObject builder castToEntry "ryMin"
<*> xmlGetWidget xml castToEntry "ryMax" <*> builderGetObject builder castToEntry "ryMax"
-- |Main entry point for the GTK GUI routines. -- |Main entry point for the GTK GUI routines.
@ -158,23 +155,23 @@ makeGUI startFile = do
-- hotkeys -- hotkeys
_ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do _ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do
[Control] <- eventModifier [Control] <- eventModifier
"q" <- eventKeyName "q" <- fmap glibToString eventKeyName
liftIO mainQuit liftIO mainQuit
_ <- treeWin mygui `on` keyPressEvent $ tryEvent $ do _ <- treeWin mygui `on` keyPressEvent $ tryEvent $ do
[Control] <- eventModifier [Control] <- eventModifier
"q" <- eventKeyName "q" <- fmap glibToString eventKeyName
liftIO (widgetHide $ treeWin mygui) liftIO (widgetHide $ treeWin mygui)
_ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do _ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do
[Control] <- eventModifier [Control] <- eventModifier
"s" <- eventKeyName "s" <- fmap glibToString eventKeyName
liftIO $ saveDiag mygui liftIO $ saveDiag mygui
_ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do _ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do
[Control] <- eventModifier [Control] <- eventModifier
"d" <- eventKeyName "d" <- fmap glibToString eventKeyName
liftIO $ drawDiag mygui liftIO $ drawDiag mygui
_ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do _ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do
[Control] <- eventModifier [Control] <- eventModifier
"a" <- eventKeyName "a" <- fmap glibToString eventKeyName
liftIO $ widgetShowAll (aboutDialog mygui) liftIO $ widgetShowAll (aboutDialog mygui)
-- draw widgets and start main loop -- draw widgets and start main loop

271
GUI/gtk2.glade → GUI/gtk2.xml
View File

@ -1,8 +1,8 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<glade-interface> <interface>
<!-- interface-requires gtk+ 2.24 --> <requires lib="gtk+" version="2.24"/>
<!-- interface-naming-policy project-wide --> <!-- interface-naming-policy project-wide -->
<widget class="GtkAboutDialog" id="aboutdialog"> <object class="GtkAboutDialog" id="aboutdialog">
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="border_width">5</property> <property name="border_width">5</property>
<property name="type_hint">dialog</property> <property name="type_hint">dialog</property>
@ -353,16 +353,16 @@ Public License instead of this License.
</property> </property>
<property name="authors">Julian Ospald &lt;hasufell@hasufell.de&gt;</property> <property name="authors">Julian Ospald &lt;hasufell@hasufell.de&gt;</property>
<child internal-child="vbox"> <child internal-child="vbox">
<widget class="GtkVBox" id="dialog-vbox1"> <object class="GtkVBox" id="dialog-vbox1">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="spacing">2</property> <property name="spacing">2</property>
<child internal-child="action_area"> <child internal-child="action_area">
<widget class="GtkHButtonBox" id="dialog-action_area1"> <object class="GtkHButtonBox" id="dialog-action_area1">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="layout_style">end</property> <property name="layout_style">end</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -372,10 +372,16 @@ Public License instead of this License.
<child> <child>
<placeholder/> <placeholder/>
</child> </child>
</widget> </object>
</child> </child>
</widget> </object>
<widget class="GtkWindow" id="window1"> <object class="GtkAdjustment" id="adjustment1">
<property name="lower">0.10000000000000001</property>
<property name="upper">10</property>
<property name="step_increment">1</property>
<property name="page_increment">10</property>
</object>
<object class="GtkWindow" id="window1">
<property name="width_request">600</property> <property name="width_request">600</property>
<property name="height_request">750</property> <property name="height_request">750</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
@ -383,15 +389,15 @@ Public License instead of this License.
<property name="window_position">mouse</property> <property name="window_position">mouse</property>
<property name="type_hint">dialog</property> <property name="type_hint">dialog</property>
<child> <child>
<widget class="GtkVBox" id="vbox1"> <object class="GtkVBox" id="vbox1">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkFileChooserButton" id="filechooserButton"> <object class="GtkFileChooserButton" id="filechooserButton">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="create_folders">False</property> <property name="create_folders">False</property>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
@ -399,12 +405,12 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkDrawingArea" id="drawingarea"> <object class="GtkDrawingArea" id="drawingarea">
<property name="width_request">600</property> <property name="width_request">600</property>
<property name="height_request">600</property> <property name="height_request">600</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -412,16 +418,16 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkHBox" id="hbox1"> <object class="GtkHBox" id="hbox1">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkButton" id="drawButton"> <object class="GtkButton" id="drawButton">
<property name="label" translatable="yes">Draw</property> <property name="label" translatable="yes">Draw</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
<property name="receives_default">True</property> <property name="receives_default">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -429,12 +435,12 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkButton" id="saveButton"> <object class="GtkButton" id="saveButton">
<property name="label" translatable="yes">Save</property> <property name="label" translatable="yes">Save</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
<property name="receives_default">True</property> <property name="receives_default">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -442,19 +448,19 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkButton" id="quitButton"> <object class="GtkButton" id="quitButton">
<property name="label" translatable="yes">Quit</property> <property name="label" translatable="yes">Quit</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
<property name="receives_default">True</property> <property name="receives_default">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">2</property> <property name="position">2</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
@ -462,10 +468,10 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkHSeparator" id="hseparator2"> <object class="GtkHSeparator" id="hseparator2">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -474,23 +480,23 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkHBox" id="hbox2"> <object class="GtkHBox" id="hbox2">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkHBox" id="hbox3"> <object class="GtkHBox" id="hbox3">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkVBox" id="vbox2"> <object class="GtkVBox" id="vbox2">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label1"> <object class="GtkLabel" id="label1">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">X min</property> <property name="label" translatable="yes">X min</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -498,7 +504,7 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkEntry" id="xlD"> <object class="GtkEntry" id="xlD">
<property name="width_request">5</property> <property name="width_request">5</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
@ -509,14 +515,14 @@ Public License instead of this License.
<property name="secondary_icon_activatable">False</property> <property name="secondary_icon_activatable">False</property>
<property name="primary_icon_sensitive">True</property> <property name="primary_icon_sensitive">True</property>
<property name="secondary_icon_sensitive">True</property> <property name="secondary_icon_sensitive">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -524,15 +530,15 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox3"> <object class="GtkVBox" id="vbox3">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label2"> <object class="GtkLabel" id="label2">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">X max</property> <property name="label" translatable="yes">X max</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -540,7 +546,7 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkEntry" id="xuD"> <object class="GtkEntry" id="xuD">
<property name="width_request">5</property> <property name="width_request">5</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
@ -551,21 +557,21 @@ Public License instead of this License.
<property name="secondary_icon_activatable">False</property> <property name="secondary_icon_activatable">False</property>
<property name="primary_icon_sensitive">True</property> <property name="primary_icon_sensitive">True</property>
<property name="secondary_icon_sensitive">True</property> <property name="secondary_icon_sensitive">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -573,19 +579,19 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkHBox" id="hbox4"> <object class="GtkHBox" id="hbox4">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkVBox" id="vbox4"> <object class="GtkVBox" id="vbox4">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label3"> <object class="GtkLabel" id="label3">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">Y min</property> <property name="label" translatable="yes">Y min</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -593,7 +599,7 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkEntry" id="ylD"> <object class="GtkEntry" id="ylD">
<property name="width_request">5</property> <property name="width_request">5</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
@ -604,14 +610,14 @@ Public License instead of this License.
<property name="secondary_icon_activatable">False</property> <property name="secondary_icon_activatable">False</property>
<property name="primary_icon_sensitive">True</property> <property name="primary_icon_sensitive">True</property>
<property name="secondary_icon_sensitive">True</property> <property name="secondary_icon_sensitive">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -619,15 +625,15 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox5"> <object class="GtkVBox" id="vbox5">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label4"> <object class="GtkLabel" id="label4">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">Y max</property> <property name="label" translatable="yes">Y max</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -635,7 +641,7 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkEntry" id="yuD"> <object class="GtkEntry" id="yuD">
<property name="width_request">5</property> <property name="width_request">5</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
@ -646,21 +652,21 @@ Public License instead of this License.
<property name="secondary_icon_activatable">False</property> <property name="secondary_icon_activatable">False</property>
<property name="primary_icon_sensitive">True</property> <property name="primary_icon_sensitive">True</property>
<property name="secondary_icon_sensitive">True</property> <property name="secondary_icon_sensitive">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -668,15 +674,15 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox6"> <object class="GtkVBox" id="vbox6">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label5"> <object class="GtkLabel" id="label5">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">point thickness</property> <property name="label" translatable="yes">point thickness</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -684,20 +690,21 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkHScale" id="hscale"> <object class="GtkHScale" id="hscale">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
<property name="adjustment">2 0.10000000000000001 10 0.5 0.5 0</property> <property name="adjustment">adjustment1</property>
<property name="fill_level">999999999999999</property>
<property name="round_digits">1</property> <property name="round_digits">1</property>
<property name="value_pos">left</property> <property name="value_pos">left</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -705,15 +712,15 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox8"> <object class="GtkVBox" id="vbox8">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label6"> <object class="GtkLabel" id="label6">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">options</property> <property name="label" translatable="yes">options</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -721,17 +728,17 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkHBox" id="hbox6"> <object class="GtkHBox" id="hbox6">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkCheckButton" id="gridcheckbutton"> <object class="GtkCheckButton" id="gridcheckbutton">
<property name="label" translatable="yes">grid</property> <property name="label" translatable="yes">grid</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
<property name="receives_default">False</property> <property name="receives_default">False</property>
<property name="draw_indicator">True</property> <property name="draw_indicator">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
@ -739,34 +746,34 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkCheckButton" id="coordcheckbutton"> <object class="GtkCheckButton" id="coordcheckbutton">
<property name="label" translatable="yes">coord</property> <property name="label" translatable="yes">coord</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
<property name="receives_default">False</property> <property name="receives_default">False</property>
<property name="draw_indicator">True</property> <property name="draw_indicator">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
<property name="position">3</property> <property name="position">3</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
@ -774,10 +781,10 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkHSeparator" id="hseparator1"> <object class="GtkHSeparator" id="hseparator1">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -786,19 +793,19 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox7"> <object class="GtkVBox" id="vbox7">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkHBox" id="hbox5"> <object class="GtkHBox" id="hbox5">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="pathlabel"> <object class="GtkLabel" id="pathlabel">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">QuadTree Path</property> <property name="label" translatable="yes">QuadTree Path</property>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
@ -807,7 +814,7 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkEntry" id="path"> <object class="GtkEntry" id="path">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
<property name="invisible_char">●</property> <property name="invisible_char">●</property>
@ -815,14 +822,14 @@ Public License instead of this License.
<property name="secondary_icon_activatable">False</property> <property name="secondary_icon_activatable">False</property>
<property name="primary_icon_sensitive">True</property> <property name="primary_icon_sensitive">True</property>
<property name="secondary_icon_sensitive">True</property> <property name="secondary_icon_sensitive">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -830,10 +837,10 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkHSeparator" id="hseparator3"> <object class="GtkHSeparator" id="hseparator3">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -841,7 +848,7 @@ Public License instead of this License.
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
@ -849,19 +856,19 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox10"> <object class="GtkVBox" id="vbox10">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkHBox" id="hbox7"> <object class="GtkHBox" id="hbox7">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label11"> <object class="GtkLabel" id="label11">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">Range search</property> <property name="label" translatable="yes">Range search</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -870,15 +877,15 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox11"> <object class="GtkVBox" id="vbox11">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label7"> <object class="GtkLabel" id="label7">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">X min</property> <property name="label" translatable="yes">X min</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -886,7 +893,7 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkEntry" id="rxMin"> <object class="GtkEntry" id="rxMin">
<property name="width_request">5</property> <property name="width_request">5</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
@ -895,14 +902,14 @@ Public License instead of this License.
<property name="secondary_icon_activatable">False</property> <property name="secondary_icon_activatable">False</property>
<property name="primary_icon_sensitive">True</property> <property name="primary_icon_sensitive">True</property>
<property name="secondary_icon_sensitive">True</property> <property name="secondary_icon_sensitive">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -910,15 +917,15 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox12"> <object class="GtkVBox" id="vbox12">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label8"> <object class="GtkLabel" id="label8">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">X max</property> <property name="label" translatable="yes">X max</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -926,7 +933,7 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkEntry" id="rxMax"> <object class="GtkEntry" id="rxMax">
<property name="width_request">5</property> <property name="width_request">5</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
@ -935,14 +942,14 @@ Public License instead of this License.
<property name="secondary_icon_activatable">False</property> <property name="secondary_icon_activatable">False</property>
<property name="primary_icon_sensitive">True</property> <property name="primary_icon_sensitive">True</property>
<property name="secondary_icon_sensitive">True</property> <property name="secondary_icon_sensitive">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -950,15 +957,15 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox13"> <object class="GtkVBox" id="vbox13">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label9"> <object class="GtkLabel" id="label9">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">Y min</property> <property name="label" translatable="yes">Y min</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -966,7 +973,7 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkEntry" id="ryMin"> <object class="GtkEntry" id="ryMin">
<property name="width_request">5</property> <property name="width_request">5</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
@ -975,14 +982,14 @@ Public License instead of this License.
<property name="secondary_icon_activatable">False</property> <property name="secondary_icon_activatable">False</property>
<property name="primary_icon_sensitive">True</property> <property name="primary_icon_sensitive">True</property>
<property name="secondary_icon_sensitive">True</property> <property name="secondary_icon_sensitive">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -990,15 +997,15 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkVBox" id="vbox14"> <object class="GtkVBox" id="vbox14">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<child> <child>
<widget class="GtkLabel" id="label10"> <object class="GtkLabel" id="label10">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="label" translatable="yes">Y max</property> <property name="label" translatable="yes">Y max</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
@ -1006,7 +1013,7 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkEntry" id="ryMax"> <object class="GtkEntry" id="ryMax">
<property name="width_request">5</property> <property name="width_request">5</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
@ -1015,21 +1022,21 @@ Public License instead of this License.
<property name="secondary_icon_activatable">False</property> <property name="secondary_icon_activatable">False</property>
<property name="primary_icon_sensitive">True</property> <property name="primary_icon_sensitive">True</property>
<property name="secondary_icon_sensitive">True</property> <property name="secondary_icon_sensitive">True</property>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">True</property> <property name="expand">True</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">4</property> <property name="position">4</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
@ -1037,17 +1044,17 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkHSeparator" id="hseparator4"> <object class="GtkHSeparator" id="hseparator4">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">True</property> <property name="fill">True</property>
<property name="position">1</property> <property name="position">1</property>
</packing> </packing>
</child> </child>
</widget> </object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
@ -1055,37 +1062,39 @@ Public License instead of this License.
</packing> </packing>
</child> </child>
<child> <child>
<widget class="GtkComboBox" id="comboalgo"> <object class="GtkComboBoxText" id="comboalgo">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="items" translatable="yes">Show points <items>
Show convex hull <item>Show points</item>
Show polygons <item>Show convex hull</item>
Show polygons intersection <item>Show polygons</item>
Show quad tree squares <item>Show polygons intersection</item>
Show kd tree squares <item>Show quad tree squares</item>
Polygon Triangulation</property> <item>Show kd tree squares</item>
</widget> <item>Polygon Triangulation</item>
</items>
</object>
<packing> <packing>
<property name="expand">False</property> <property name="expand">False</property>
<property name="fill">False</property> <property name="fill">False</property>
<property name="position">8</property> <property name="position">8</property>
</packing> </packing>
</child> </child>
</widget> </object>
</child> </child>
</widget> </object>
<widget class="GtkWindow" id="window2"> <object class="GtkWindow" id="window2">
<property name="width_request">800</property> <property name="width_request">800</property>
<property name="height_request">500</property> <property name="height_request">500</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
<property name="title" translatable="yes">Tree</property> <property name="title" translatable="yes">Tree</property>
<property name="type_hint">dialog</property> <property name="type_hint">dialog</property>
<child> <child>
<widget class="GtkDrawingArea" id="treedrawingarea"> <object class="GtkDrawingArea" id="treedrawingarea">
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">False</property> <property name="can_focus">False</property>
</widget> </object>
</child> </child>
</widget> </object>
</glade-interface> </interface>