arcadia 0.6.0 → 0.7.0

data/README

@@ -1,8 +1,8 @@
 = Arcadia Ruby Ide
-version 0.6.0
+version 0.7.0
 
 by Antonio Galeone
-on Feb 21, 2009
+on Jul 22, 2009
 
 
 == About
@@ -17,8 +17,28 @@ Some of Arcadia ruby ide project features include:
 * Highly extensibility architecture.
 
 == In this release
-* [new] - Dynamic layout capability added: now you can change at run-time the frames's position and create new frames.
-	      
+[New extensions]
+	- project drawer 
+
+[Improvements]
+	ae-file-history :
+       - tree "auto expand" if it only has one child
+       - describe better what "sync" means, somehow.
+
+	ae-search-in-files : 
+        - make it so that you don't have to click on one of the search 
+           entries to be able to use the mouse scrollwheel to scroll up and down.
+
+	ae-editor :
+       - auto completion of current word based on words within the current window also
+            like textmate's hitting escape.
+       - added "ctrl +o" shortcut that opens the filesystem dialog 
+         in the directory that file you’re on is.
+      
+  commons : 
+       - make "do you want to exit" optional
+
+
 
 
 == How to install
@@ -75,11 +95,16 @@ These are same editor short-cut:
 
 - Double-Click on line number set or unset a debug breakpoint
 
+==== Project drawer
+It is a navigational tree: 
+- open or create dir as project
+- make commons file system activity (by contextual menu)
+
 ==== File history
 The last used files are organizing in tree so you can reopen them or there  
 directory by clicking on the tree node.
 
-==== Rad Palette
+==== Rad Palette (instable)
 It contain the wrapper components for the tk gui building. 
 It is in very unstabled and incomplete state. 
 The first component is a TkTopLevel wrapper, when you click on it a new form is created and a 
@@ -91,7 +116,7 @@ On the palette there are also two button, one for deselect and other for copy fr
 created widget. The copy action copy also the code into the clipboard, so you can copy the
 code rapresenting the gui into the embedded editor or into external editor.
 
-==== Rad Object Inspector
+==== Rad Object Inspector  (instable)
 It is for modify the widget property at runtime
 
 ==== Debug
@@ -111,7 +136,8 @@ under ~/.arcadia  directory. The format of property definition are:
 I include into distribution also the BWidget lib (under tcl directory) so
 are require realy only the standard tcl tk lib (tested on tcl tk 8.4 & tcl tk 8.5).
 I have tested arcadia with ruby 1.8.4, 1.8.5, 1.8.6, 1.8.7 on 
-* Archlinux
+* Archlinux
+* Ubuntu
 * FreeBsd6.x, FreeBsd7.x, 
 * Vector linux 5.*,
 * Windows 2000/XP, 
@@ -119,8 +145,8 @@ I have tested arcadia with ruby 1.8.4, 1.8.5, 1.8.6, 1.8.7 on
   by ash.exe exec "/bin/rebaseall"). 
 If you will test arcadia on other operating system sends me an e-mail.
 
-==Developers information
-Released on arcadia web site (http://arcadia.rubyforge.org) a first drawing of "How to extend arcadia". 
+==Developers e general information
+Released on arcadia web site (http://arcadia.rubyforge.org) 
 
 
  
@@ -128,6 +154,9 @@ Released on arcadia web site (http://arcadia.rubyforge.org) a first drawing of "
 Arcadia is released under the Ruby License
 
 == Contacts
-For questions:
+For all questions:
 antonio-galeone@rubyforge.org
-For bugs, support request, features request http://rubyforge.org/projects/arcadia
+
+For bugs, support request, features request:
+http://groups.google.it/group/arcadia-ruby-ide
+http://rubyforge.org/projects/arcadia

data/conf/arcadia.conf

@@ -11,10 +11,11 @@ arm::layout.splitter.length=10
 #layout.split.1=0.0r70% 
 #layout.split.2=0.0c20%
 
-layout.split=1,2
+layout.split=1,2,3,4
 layout.split.1=0.0c20%
 layout.split.2=0.1r70%
-
+layout.split.3=0.1c60%
+layout.split.4=0.0r60%
 
 #layout.split=1,2,3
 #layout.split.1=0.0c20%
@@ -22,6 +23,7 @@ layout.split.2=0.1r70%
 #layout.split.3=0.1r70%
 
 #:::::::::::::::: layout    ::::::::::::::::::::::<end>
+confirm-on-exit=no
 #:::::::::::::::::::::::::::::::::::::::::::::::::<begin>
 font.h1=
 font.h2=
@@ -102,7 +104,7 @@ tabpanel.borderwidth=1
 tabpanel.font=>>>font
 
 titletabpanel.=>>>tabpanel
-titletabpanel.borderwidth=2
+titletabpanel.borderwidth=1
 titletabpanel.font=>>>font.h3+++ bold
 titletabpanel.arcradius=0 
 
@@ -167,6 +169,14 @@ edit.insertbackground=#ff8000
 edit.relief=flat
 edit.borderwidth=0
 
+text.=>>>edit
+text.insertbackground=#000000
+text.insertborderwidth=0
+#text.insertofftime=200
+#text.insertontime=200
+text.insertofftime=0
+text.insertontime=0
+text.insertwidth=3
 
 combobox.=>>>edit
 combobox.background=>>>panel.background
@@ -222,6 +232,35 @@ hightlight.16.background=#b3c1d9
 hightlight.16.borderwidth=2
 hightlight.16.relief=groove
 
+#:::::::::::::::::::::::::::::::::::::::::::::::::<end>
+#:::::::::::::::::::: menu  ::::::::::::::::::::::<begin>
+#user_menu.contexts=File2
+#user_menu.File2.context_path=/
+#user_menu.File2=open,new,save,quit
+
+#user_menu.File2.open.name=open
+#user_menu.File2.open.hint=Open
+#user_menu.File2.open.caption=Open
+#user_menu.File2.open.image_data=OPEN_GIF
+#user_menu.File2.open.event_class=OpenBufferEvent
+
+#user_menu.File2.new.name=new
+#user_menu.File2.new.hint=New
+#user_menu.File2.new.caption=New
+#user_menu.File2.new.image_data=NEW_GIF
+#user_menu.File2.new.event_class=NewBufferEvent
+#
+#user_menu.File2.save.name=save
+#user_menu.File2.save.hint=Save
+#user_menu.File2.save.caption=Save
+#user_menu.File2.save.image_data=BACKUP_GIF
+#user_menu.File2.save.event_class=SaveBufferEvent
+#
+#user_menu.File2.quit.name=quit
+#user_menu.File2.quit.hint=Quit
+#user_menu.File2.quit.caption=Quit
+#user_menu.File2.quit.image_data=EXIT_STORY_GIF
+#user_menu.File2.quit.event_class=QuitEvent
 #:::::::::::::::::::::::::::::::::::::::::::::::::<end>
 #:::::::::::::::: toolbar    ::::::::::::::::::::::<begin>
 user_toolbar.contexts=file,run,debug
@@ -293,6 +332,7 @@ user_toolbar_show=yes
 
 #:::::::::::::::: splash group    ::::::::::::::::::::::<begin>
 splash.show=yes
+#splash.show=no
 splash.title.font=Courier 28 bold
 splash.subtitle.font=Courier 10 bold
 splash.version.font=Courier 9

data/conf/arcadia.res.rb

@@ -76,6 +76,153 @@ eOrchFJmU6gkxRpkIilUqp9T1RGFM9WdNrmZqipdyjaYWYcF9Xo1aRfw3qN/
 Ww6O27drYcOJiYLkKjWy5MmUIxQAADs=
 EOS
 
+ARCADIA_RING_GIF=<<EOS
+R0lGODlhfAB8AOf/AAABAAIABQYAAAQABgACAAcAAAABDgUAFAADBgkBAAAB
+HQACFAUCBwEEAAMBGQYDCQIFAQsBEA4BCQoDAREAEAQHAwkFCwwFAwAJAgoJ
+ABEHAAcKBhAJBwUNAA0KDwoMCA0MAAsNChILFg8OAw4QDBURAA8TABgQBRAS
+DxMVEhoVABIYABYXACEXDRcZFxgcABwbABscGiMfABoiAB4hACUgCSMgEB8h
+Hh4nACQmACglACQrACkrADArAC8vACkxADYwAjk0ADM2AC05ADs6ADU9ADdB
+AUE/BD5CAEU8MkVCADxBJjxGAEJPAFFLAEdOAEtNA09MCU5NFldVAFFXAE1a
+AFhXC1hXHFhYFVpXJFNgAGBeAFlbPVxhAGRhEmBrAGVpBmhoHmptA25sG3Bu
+L2Z2AHVwF211AnR2AnN3HHR3JXN9AHZ7L3+AA3yCAH6AHnmGCIGAN3uIAH+F
+F4OICYiELH6II4SHLoeHW4aEf4WGeIaTAIuMTZOREpOQPo+SOJiVCJCaAJGW
+M5CZG5CZLZWiBJejGZucU6KkD56iN5upAJ6iP6GlSaGoLKCoNKCrHKmkTqGu
+CKGgmKypNquqSKesQbKvPqq0K7OxSK6xV66yT627Dq26HrG3TK+7MLe5PrG6
+RrG7P7eysbbIIr3AXbjHM8HEWcLIOsjHOb7JRr6+tbrPHcfDdcfISsHJVMDO
+LMrOL8TLaMPRPsTExcjVRc3XVdTXTM7WaNDaO9LOv87gP9LbZc/hNNnYdtPa
+dNPgS+DccdbhXdfY1dnoP9rnSNroad3pW+DnbOjkeOfpTeLpeurpZuPtV9/x
+Q+bsZ9/wWOLuaODxUefvUertX+vph+Lk4efucObueObxY+3udej2TPHxfOf3
+YOf6R+32Yej5Wejr5+z3aev3cO71fOf8UvL5U/L3cvP7Xe3v7O/+X+7+ZvH/
+V+3+bvr8Z/X+aPDy7/r5m/P+f/X/cP/8cfv+cfn9jfP18v/+ev//gv7/l/b4
+9Pn79/r8+fv9+v3//P///yH5BAEKAP8ALAAAAAB8AHwAAAj+AP8JHEiwoMGD
+CBMqHMhixQoTL2bM0LOwosWLGDNqVGijh5IwfjJlInVL2TZrx45Z2+WqE6U/
+YaLoKLGxps2bG31QCbSJ2Ddv2KBBO7bLlCZKIjNBIuXrmrlw0r5Je3bKTRFJ
+OLNqtZmjC6hr4qINexVJjpYiOHbQAAGiglu3bDusGPJlz6NSxqBdU6YpDQwV
+WwMLJrijzCty6op1UoPEh4m3FSBMSJBAg+ULBdhOYAuCMogSOaD8iaVs3D1b
+bYAMXn0TSiV234ZxKvOjQ4UCuHPj5sBhgm4OICDkHhAhwoACCUB06PDjSx9U
+97ZBimKDtfWKX2i5YxdKDI7IBBL+3B5AvjwH3egzgyCAGwILAgRMmIAAoYKG
+Hl4wmaN3ag3W6wAKxIUYqbQTzR5GdMBWAuThNoABED5YXoMFwMfgcRUSAAF8
+FaxHQIe5bWbEHr+wc4saFAXI2hy40GMLHT5UgBlxBxhwHAETkgfhjjxGSB58
+QOKoI4TGZVafEHMYww0tX9SgolYUhZGKO7/QkQNbGhTwoI8DCJnjlz1+OWGY
+CIAHwQo4yGHMPZgokcSTOFXyDDZ/BDHBBFlmlkCQXnbJ55/wSTghoPDRh8AA
+CGyI2wVA1JHNPIDAAOdGXdxSTCpP3FYAB+QlkKGGgfpJ6J9iisonBLYhAJ8F
+FhwgQQH+F0zRyjStKMHCpBcZ0k06cIyQwAggPuiAjaaOOuqYPP4YJH3LhToA
+ByckMIEKdVADTxxO4poQF6CQw8sPILQwQAXwfSCCAQukS6yxfObo7JbEmkqu
+hhWUZwFuC4JARC/IUKKEtgdVYYwxjXTgmwQ1eqAqAR8cOmiQX6anG3wSl7ej
+BV9aoCEII3gIAQiI1APMFAATVEY0z6zRmQQUFFcjoh+U6+67E0qMG6AObrkA
+scWVB2qQBnwMwhbAILNFyf8M0o4uP7AwgAMH3CgkqcoC+SW7x5ZadbvhqTCB
+EsG4QwfAjoTjCRMrEHCAAlFj7fbbcLO7aQGWFXGKN4Pg2kj+PK7QAB58EMIN
+wQcfoAD3vDGTS/gHFcQcN8V0U5ZAEK3I08g//wE4CDehdJAAZhpCIGHcKTDs
+uOOEbrjhB6qDinrcuYFQwKsjhOKOISomIo4rHUBwwXH1bbh16m8RQAIBN7wO
+6OuG3xDkvI8TYMFtFdx7QgmeaHP5dXDIc8sKmjUYfeOsbxik8s+j7gLDjTce
+PY4iDPCBliJEkMAOskSTN2tlkFOKD5U5Dwi2VCx2tQ8++3iHPxa4jwU68IH8
+0IcD9zEvcpnvcQ9aAPvIc4EKvGAYw/jCaprwDV0wQTjkGYGWDjCsD7ltcORy
+oD4k+MAaLpAf/GCgP/jBMBLQ533+BLTaACZQgSZowxhIEAwNaKGOIaxAOBOw
+WISMxbjChc5477DHPhLoDxra0Ib7mCE/Yna8C8JtZuxBDgio4I1fSGoroGCH
+GJ4IpAIY4GUPOxX0UsA6AryjH/1YYCAD+UUwzvAd+iAcuaAXt0MtDD6+KcAI
+zuCNT2zlC+14xAA1aD4DDMtPw6OXGRnmj3egY5BbLOQXwyhBcBDufYE6FQEi
+cAA1NuIeZ8gKE5qxih0kYG0fEl7UuuQzPrllWR/Yoj1U+UVATnCGDeTH6v52
+RkB5cgDBycEp7lEEnICCHk3AzAFe1q48AumYHyABChjXj2Vq0R76eMcWG9hM
+QvpjnjP+9EfjRnnGLgkPQh7YTQW2cA1NLMEmc8CHG15woSAKMZRXPOcCwZFA
+QtKTmQ/cRw7vec9F8lNuoyMAuhaGnATA4A7wyOVGhhCOVFxAAxKQgBBxdrM/
+Ka4C+xCGDjPKUYzyQ6P+sIcC/dGP9+VsAQpQgAEIgIEPzQ85QNgFLZ6wkUtg
+AwwaGAAF/Cm8AuZmeQwjwALlaUMF2gOQaE0rIH+qjwaaFRz+ABQ1aaolpCrA
+n43DzecSQAV8XEIjTGCGJiqgQogKDj5tdWYN4ZrFLsKTnvHkIQkq4I9qBHKZ
+/oBr64D00SDlbIqeDVEmvtEEjJTgbkfYU1se+bj6JG6nPPX+Bzqc18AtmtUf
+jOMQA+0B132ggwAxOF+5YOnZBCghHZvAyBTo0Qj7FMCC7xvcK8XqxcXaw3EQ
+kGAY7wmf4BLukGFMZVwZ1lniIucCjwgHVS0SCmcIQQO+gY/h3veWmMH1iwqs
+AAnSSTjGUnSdxyvdB3RoSn8Ig4+rOydx60i3IhQjFBZ5wjk+AYKs/qi87KLP
+4LZbQ97qI5jwKR047jte19n3HWRV4HCBdLwFQy45leAGEyryiHVMQXYSIA/6
+BOe+UlbXgTwEkuNu0EUJthgFPgTSDX+Kjg/HQMMuDi18kZCORyzEB8/gRIUL
+4AHysLa1jVsgZm/YRX70o8Xn/AD+ivuBDlcubrj6uO9Px7vjBe/muaVIxw8U
+AgZ5lEF2uLFAl7sMy/pgdqP0lGfMfihRRK8PSAIWKyIn+Ogoe/Y4m+kCNwiR
+kBnUIhgzYNBw1hU9CByPkPZMIDhuwEj4+JCscD3m8z7000CiI64kKJ2lgcSp
+AZSgA8WoRUKa8IxBdEBLGXIo1qD3w7GO+Z6BXHGhkFdKuMJTlvoVa5Mruus/
+aaktgnjGjA+yh3QUYWqBAq3bFgkkxT6wnQnmU8wcCA4JOu9Px4MrP8CxTF13
+W2aZQYI6AoGQVxBDQRcWko3eZ18u1nAfH/J3kG6gD35UQ4wEkLjptC3PfYDD
+hf9mGHn+2PILXLyRIEJQhyEqwKlPeSlu5lvnpDO6RcdB73iN20c/INvqV36g
+yTuMdsg51KAKDCIc/yrIG+5RBRS6WHG6ffZaBxdWZEJAhvKs+vkgQM99aPFn
+IS/6E8YxB4OQZAaaWvAFmy1eBlKw1RknpQIbuMx49zFmWlxgW+scZfJ0qAS9
+MEU1CPICawxWdhAr4AsLdbwIXrTi8XbhK2/7x36YmkMactxGGch3F4+8Pqyw
+Rh4IUoVzqKFeS50pcR3XxVszUNFUVyQpcdiP+1YjBa4dbgwq0NZS8sN9Qxf5
+vSYQB2lQgSBw6IYV7Jh6L9V03ed7ZQ5hDW3GzQsCpeui3u3+cesPk8u7G/I6
+UXe46OB/YAA7KwAWyrGG0QuEE83wQQEi0PzyPP9tG2ofueguZhkijpQJ5HEO
+tEycVS7ZRVTVUGJDtx4VgAAQUgA8UA6IQBC8wAsmMH/1RyGwRDjHM2AJ+A77
+Vlk6N1ayNXfLBFf59EfeRVmut0MfUmn/tkgOaACZQQywMBAqEA2jIDsP8lD3
+Fzdu4TgJSFH3lIAR9A7gkID9F14cBQ45VA3L5HALtHHBxyGHYgFEdArJ8Cb/
+AATSUAg8KCr253KLR3VCdk8J1Fbo8GwOFEgQV1nvMGBa1EDVcF9wZTwcYjhm
++G8OAxyI0A6q8Q9R4A1/piWg9CP+P2gsjJR/fSRW/NeCYMQw9xVD+TSCDPQh
+wLdoGAZLnQICaDANTiAQYeANVTAeyYaIZIh/NndFNHRRYBRXajaFkmZPOlQ6
+0DNfYMdo9LUqwDMF0+AFwvAPY2AMVVACwBMqkKN283I8SBZGQ1VD8QQOSDZD
+/bA+lkhPGzUvwbVdHNhinRc3mLYFy2AG/vAPd4ANTPA7NaUsiRg9Prc6GFVU
+jvhx1FVI9ME6DcRm+uRq0sWJfIIcR5ANdVCOjCAOOJAAEfAp7JiK78OMBLA+
+sWhD4LCGJEACjCWJXeSKLthj6FBbU1h+3wgow4McMrANiTAL/0AJzrAC86eQ
+ftKOiwf+XN2FiWGlQD9GgNq2j6mUj0CWeR/ghELldQRoOCEpkluDHCOwDZag
+Cv+ACStZALXkIQtZaECCAtYYVxuSArynfXoXbXIoTcn0R15ESK3DDwo0d+CQ
+X3D3NsVEMQlQAsgwCUxZCcfwAhMQlciYRsRFHzG0QLdGdVdXa12XQPaghMKQ
+Q71HQ4RUPgyzD0oIDjunD/1QlEZpKsehAnEpEJVgDTQAlQVgPlNZaMmkTMv0
+DiH2Ae2kdw0ETYhpVkPFk4QUhPCxQ9qnQLdGXG2JIwWgAtSwPYlgDS8wfxPg
+LBSjeKpIgmfFQ6ynUa1YW2fZDznEk7UWSNK0T2KVWTuUT9f+xYlVo1cloAyW
+IBCZUJcyQhzqZogwZ4B+FE82WWIfsHkaNXfahZ3xRGb3pF0hBgFmuXOy5UDv
+sIluMwA1UgATYALjcAgC4QfmUARsMQAKsDNiaFiAMkr3FEGy1UAg15h36Ecq
+9gEn2EVDdVnaB3xahIRNVnsS1HeelJAVMATiwAcCMQbhUIrzpy6igp6P04EN
+ZG1riKHJsyFjFX6ZhQI4laIDJk+RcUoQt09o2EAfAJGwCKDG8iAHwKJUEA5k
+IBBW4A1acBsW4CN1JKGydEHVRoIS9A5EyTD6sEyRIUHyyFHkwm9xhQJBZZp4
+l1k7xyGlk6aeZwAJeQFawAxXIBD+eJAOXzAeeQSTo2I+MeB6QBdZFccw6+OX
+H7JFRXV1mYU8c0cu8PQO2ZdAiPQBT1Z+u2Z/E/AF3yAFApEL6yAHIPA7GPOP
+DPk29rBMa+qYsoVZ3TVpiNVRBIAOOQSk8UQ4AkgA96VAGvdvhkigcpAORyAQ
+1aANmwACUWSZGAKEQpZM/rA6P9lKY4VdPxMZJOBW85ZZkUF1HPV15bKWLqYb
+ExAJ33Byw8AL1Co1zjeri1qA0+ZqIbp3/0c408Q+0kYAmHWHDvlvLxkisBAN
+AoGSm9AMLCAcCmkj+FpoboGdrlcBLkCq9eFqMWM4uoYCbSV+MZNO+hplCyOx
+CVAD0sD+CQSxB9+ABATwO1ZDsSFHPtQlQR/IMD/qVEIWVgO2U8GUe0MnsReQ
+AEeANwRBBerwBo0jhhRbsePjc87If/aAh7nFJ8cjQYVZSh9QOh1Lma2FG/Bl
+BuZwfAORA9AACraRgdfabfUBfNdZb/2QorIWJIaDaNwle1JqXrhRAZpgDTlQ
+EK4QDBfotooaXYoEtgRLVI4aYgJbOlx7pi7Ut55nAQmwArtwCwYhCOhoRz4o
+tY+Ds7p3nZk1fYgzb/xwa3c4OGhWhV1lP0/gDIJgEFTADXAAlQ8lpqWWtZhn
+PkQlnx9JVBEEDrZYZ5Z7Rn46AXSADSRTEDwQDZcwSxViiLz+G2Xm87Hw0Q9m
+xb06pEUdOKEnizVoZExd5muXwAwycBClQAw/EEWvYohiq3ZbJ5mrOVEQdzrJ
+mzWCUixPU0sEqgO/8AoIsQbpkAbCQWpVeLJUpzhXd6v9eWZV1G1DosCBogAO
+kBkTkAbhUAYIgQPX4AqdIaAGsFrXW2qcBbC61mJzd2uO+WH72ncENDxboh6u
+cAw0kBAFWQQy4gAahHrGGYOLBrZqxp9KSIAw6Hnlay+LwgTWULsJAQXpAIYF
+ED/PNQCxusCFEjOls7EEsKaT9g4J6Ftah5tLvDAIIDviMQjikEQKcRi+NEAh
+VbQpzDqKwzouHFQEQKfapUAQCUT+5pSXbgkCPBAMrgAYClEGvOI5AnoAWgxi
+mRdWXYlDZlhKwQuLgJybsQQkCJAZHWAH1wAGFbEEtPALB4kwQfxvwaNbvXeH
+XAyk+Sh0eqhHbqGLOKJuhHIcF6Acx9ALFyEG3bAGFdA2jwy0riaZSqoPHWg4
+5JICZ3lW49WB2itWOUQquPwnGhMeIOAG8cAGF8EFvEAOaiy6h7OorQNXgLSd
+VmSdHkqfshhxeNh/wAWa1/wn6wEBhZwKPIARa6AOiyAc50G/8sU6s+xUJktI
+6HBrJSt5BviTdUpD/MBHktxmZgmR/7RwhOJRFXAH9SAGGhEK8VAEmOEhVHkq
+/YhmMYD+hDdULovTiKDiAjTUZFBYDZA1VMiKi8rGJ2lML0FADaSQwxlhBcTg
+CSWQGXv5PCnQRe4TsgSwmjXn0uLb1L3ln5llm4gUw4KSy/GxHJQAD1FQE5Gw
+DmAgsbDUapjakS1WAVHYfQ4ct3M1XC4wVpC5hi6Mq/+ZPPOiyWgMHxjQAVqQ
+D4tgE0xADL8wAyVgHNGFTPUZZ/0XZzvXsa1zOq9jPvtXodwbSNaGyQ+Vyx/Q
+ARhQBLGwC0RwE3DwDK4AAeeBKInHNewiZtCMgqvZYvyUf6OCmvCESvUZyRpC
+TAzpATQYH4KQDx6NE4vQ0bJjHBxQs5f2JxekOFyEYvL0R0v+unousEWnNHPb
++Wj1khmJ6AH3kgBkMA2eoBVKEAvOgAS+kSXDCR+spSXs0mJBtZqHFnsKtqjz
+sj4QwJ9N+FtfCzFfxU8ASQ2o4ANbQQXjYAo6wDE4+o+p7GqziWIgSoRV17H5
+GiRJ7ZdhhJjrhDN/UiYEAAI0UAvOcDSBIQb5UAksIDvngn+zrSETRdWRkTgw
+93MJlEMbta6kks2hAgIm0AGh4A1usBqEQA+BUAEtsCmhVCx3e06MBqK16kqQ
+jDWOA6Xad4cocOVGaTWYmxzlBmGrsQKccA6C0BkYuGznalMxQ0P4CTccizq1
+6g98KpJChBwq4AbpIAsrYB08YAv+0uAGW+ZlxmLLxvQhk3a1Mo55WEPZhTNd
+6LMhrIUxuCEDdEAMu7Bn18EDv+ANb9AZ1fo27Mp3m7iJlNkgCaADW3AOthAE
+KkIEu4C7tiE6DV7MllYBybEGtDLaASIK/8ADskAOhmAb9RLrso5BGqMghJUI
+2FALSQcnPnAMw6AI4IN4VjPscIMA1m7t5LEAbdMWHWAI8hALgagtnrAOp4AD
+8kHO1J54E5LFsgPioCAP4400/7AI2tAMVUCtIpDuAbrufoIq6zEBTnAM4ZAI
+8j4QZzAMYuM16C7rGcNZfW0CdYAMzlB2BT8QTnAL1vAJTWMC+p7LFdzvOLAc
+Q9AJ9ID+Cs9b8QMhA5UgDtBwBrYBOQ+jNRhUvn0yho/RAS9gB74QD49A4Chv
+EF2wC/FQC0zgNxrAAWAqRVeT6OytI4DOIQ7wSQnAAUcbF1pQC/hwCiL08x8M
+B9CAD5NwBBWAJxxgAfHjZdduL6xSXtT0JRR+yxKAhZ+pHFDwCfhwDGgwuFyf
+ECtQBJngC9bQCAkiGXe0cB0CaMNB8xjzMMrzMeGRG2cyBIXADONQJyew9xZh
+BaYgDtjgCVTwGW2xJ0AyGZQxAbzRa/5LLCUF+ZGRGx1SHyAABY7A8qDgBZiv
+EV6w+bxUBSEPAZ7C3RiCHuxxyz5iMzkTARKwGTnwBaPgDtb+kAlZgMi3D1iP
+QA7r8AyOAAUloBl69VK0jh5Or1e/r1eWoQHSAhxZcAjHIA/E8AhoO/03AQNq
+4ArysA66wAln8APbPxndb/zSkhsAkYBDgQkVOgg54+mXPGuk4hD5F1HiRIoV
+LV7EmFHjRolCAg2T5qxerEx3oPAoUUHlygogXKrUMEFmCRlR1FDaZc5bNFx7
+mHAEGlTo0I1Awvyp9Uydum/DXm2KtKeMFqpVrK4ppIgTrGjn3Ik7ZmqRFyBE
+zZ5FKxRHkzKFRhHTpu1bOnXcwomTx4xbum/RdHEq9IXKj7SFDR/WKAOIlCxX
+okTBckWKDxb/VCDGnFnzZs4WAwIAOw==
+EOS
+
+
 A_WIDGET_GIF=<<EOS
 R0lGODlhGQAZAOcAAAABAAIABQACAAYAAAQABgABDgEEAAAEBwUCBwIBGQkA
 DwMGAQYDCQYBFQsDAg4CCgIJDAkGCwYJBQYHEgoEHxAAJQ4HBQ4EGwkMAA8H
@@ -1379,3 +1526,57 @@ vlID06U9MQIP8AJxzW5L50f6OwgwyG9SVz4fMN0nCQwLfAtACnhHXQEBTAQF
 gCgHQkMCjy55N5YFNymbnSgCAqCkpSghADs=
 EOS
 
+
+ICON_SYNC_GIF=<<EOS
+R0lGODlhEAAQAOdzAAGAxUWTygCV2Am07urs7AZ6vwFzwAByvDyJxZvK5gBs
+uAGN1QyBxfj5+tfn8wF1uhKV1DSRyTKJxl2u2wWU1ePw+QqFyWut1oK+3qfO
+6Orj4Di+5gl5vq3U6gmv6TKFwdjo9DqSzBR9v/v69QOS0+zh3lSh0QF6xdfo
+8gJ9xeTu+A59wgCKzQCS2O30+QJutgFptoS01kqm1/3+/gJxtiOEwzqPyuLu
+9gCP0f3+/AGGzQCFyvb6/MLd7mGq1QCU1uXl5Q+S0bnd7ju56Uyezp3T7QF8
+wUqdzfP5++Ts9gCAyQByugeb2gl8wjeGwgec2wpyuEmdygWT1e7v7uXv9tnm
+9DqKxgFxvwOZ1wp2vgB2vgJ6wQGOzwmv6geFyABvuwea3TSKxgBntQF2vAB0
+vQx7wQFwuQV5wezh4djk8Tu67Tm46gec3UaUyQ15vgp6wkmezwN3vwB0vv//
+//7+/v7//vDx8Pz8/fX19f///uzh4v7+/////fz8/Nrn8/f39+jq6v39/fr6
++/z9/vz9/f7///7//Pn8/OLu+Oft9wF3vyCIx/L3/AOU0w+KyCuVzACK1eLp
+8iSX0giHzOrn6tjm8gJwuqDS6zuk2I2/30OYxv79/Uiay/z++0iZzxiSzxuO
+yw2M0Ofp5wCCzUKPxASCyufw+Ah0vieIx3m44UaazS+Kxy6NzgZ/wwCY3ARx
+ufv9/0GWykOXzmq030WRzLDW7bfY7Pj5/TyLxvPz8/j4+l2h0gCJ0Ors63Ct
+0ujp6Ovq6sDe8AeIyabZ8Al+xjGOyRyCvjmFv9js9Nzt9Onp6JDN6Tq56/f8
+/jqIw8/m9DqNyHK02HW53X+53brg8zi76/Lz9+3i4O7j4djl8dvu+Nnm8Qx8
+xP/+/u7w7wNzvTSGxAFzuvP082ar2wN0ulidzMfe7zGMxxKBwdPp9VOp1gp1
+uQ12uk6x3IvC4ozL5gmt6UmezG+w1/7+/f/+/GOj0f/+/abX7vLq5fjs6DGl
+3fr8/RN/xLzc6+Lv8gd3wCwAAAAAEAAQAAAI/gAFCPwhYAGkFj8WLED4oyEO
+HAu4sND37t6wZe1w6IAokcWOIEWa8Zkz5xASapiU7NCxY4ejIkImyJhwqVOe
+HNpkAJCUopW6WcRSnNjSZAIPPnmQCal1gsEjI4rObIF6Rtqcbob2JFAU7ooZ
+OVq0xDnADwPJOS580FDVwUcNNy++vDJBhceMPc9WrctA8lYPeQ9oLGEXC0O/
+TKdEVMgzIw8KT2bIfCPzQsEYDgeIIN0zKAOMK+TGPCBnYAW6cO5ugMhTB0k0
+KGO0fIMS4YKxcERQsbqxZ86gBLIWRZhmy8SBf2YOhAvRg1GOOXn2HQKxS0EW
+N9zKlCHDYFyHdMmCGaVadKDJiiYWvHixAOAEgFKlAKQAIGy9hYAAOw==
+EOS
+
+
+ICON_SYNC_GIF2=<<EOS
+R0lGODlhEAAQAOZUAP/g0PuTQfvs1vnjx/94Mv/+/P57PPjlzP/k1/XQrf9u
+I/+MTfqgWf/k1vPhv/94Mf9zLf9zL//ezfqqXPqcVvfm0fv49P+ER/7+/fHn
+1f3x3/e/gfuaR/i/f/Pz7v93M/+LUvuOU/9yMP3w3P2IRPTjz/3s4/7+/P39
+/vqtZ/9wJ/39/fmuZfihZ/z47vz27P58Pf9wKPija/ijZ/TRr/quZf5/Nf3+
+//9wK/mtYfbmxv9uJfTRsf5+PfjBg/v37fbgxf/YwfyFQ//axPi/ffyGQv2M
+Lvi1eP9qKPz48f2PNP38+/9xLvz37f3w2/2PNvmvZfiiavz26v347////wAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAFQA
+LAAAAAAQABAAAAeegFSCg4SFhoeIJxo8Ph0JIwUWHoYHUD0EBAYTAw4bhBgV
+RUg2My1KKiQBC4QlIQopQFJTP0c4IiCEDBAULoIrGRwRHxeEDRImgygCQwAA
+CIQIzUECN4MmEg2EFx8RHBlLgk0UEAyEICJMOU5JLzo1CiElhAsBJDFPUTJG
+O0IVGIQbHAyYYODBAxgsDhjyYKHAiAREOtDQcAKRxYsWAwEAOw==
+EOS
+
+SYNCICON20_GIF=<<EOS
+R0lGODlhGwAUAIQeAAAAzgAA3gAA7wAA/wAxzgAx/zExzjEx/zFj/zGc/2Nj
+/2Oc/2PO/5yc/5zO/60AAL29vc4AAM4xMc5jMc5jY86cnM7Ozt7e3u/v7/+c
+AP/OAP/OnP/Ozv//AP///////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACwAAAAA
+GwAUAAAFjKAnjmRpnmiqrizKIEmCPi0TM3PEIgiudcCg5hGJaFY8keYX7BCL
+xxQPoTQwncWsRHdKKhGFX3Ys2XapysMBIB4Xy1zSNF2oL4nb4zYu5x3qgGwa
+EXkiZmd/BQMDdh1DRh4XRSoKBgKLbEJLHoR8JxoEjEtNm1krGgCZTUCDk6eC
+q0udLSdvrrS4ubghADs=
+EOS

data/ext/ae-dir-projects/ae-dir-projects.conf

@@ -0,0 +1,18 @@
+name=dir_projects
+frames=0.0
+frames.labels=Dir Projects
+frames.names=dir_projects
+active=yes
+require=ext/ae-dir-projects/ae-dir-projects
+class=DirProjects
+
+file.name=arcadia.projects
+length=35
+font=courier 11
+font.bold=courier 11 bold
+color.background=#ffffff
+color.foreground=#000000
+freebsd::font=courier 12 italic
+freebsd::font.bold=courier 12 bold
+win::font={Courier New} 9
+win::font.bold={Courier New} 9 bold

data/ext/ae-dir-projects/ae-dir-projects.rb

@@ -0,0 +1,880 @@
+#
+#   ae-dir-projects.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+#   §require_dir_ref=../..
+#   §require_omissis=conf/arcadia.init
+#   §require_omissis=lib/a-commons
+#   §require_omissis=lib/a-tkcommons
+#   §require_omissis=lib/a-core
+
+
+
+class Project
+  attr_accessor :dir 
+  attr_accessor :loaded 
+  attr_reader :cache_dirs
+  def initialize(_dir)
+    @dir = _dir
+    @loaded = false
+    @cache_dirs = Array.new
+  end
+end
+
+class DirProjects < ArcadiaExt
+  include Autils
+  attr_reader :htree
+
+  def sync_on
+    @sync = true
+    select_file_without_event(@last_file) if @last_file
+  end
+
+  def sync_off
+    @sync = false
+  end
+
+  def on_before_build(_event)
+    Arcadia.attach_listener(self, BufferRaisedEvent)
+    Arcadia.attach_listener(self, SaveAsBufferEvent)
+  end
+
+  def on_build(_event)
+    @projects = Hash.new
+    @node_parent = Hash.new
+    @num_childrens_of = Hash.new
+    @h_stack = Array.new
+    @opened_folder = Array.new
+    #--- button_box 
+    @button_box = Tk::BWidget::ButtonBox.new(self.frame.hinner_frame){
+      homogeneous true
+      spacing 0
+      padx 0
+      pady 0
+      background Arcadia.conf('panel.background')
+    }.place('x'=>32,'height'=> 28)
+
+    @button_box.add(Arcadia.style('toolbarbutton').update({
+      'name'=>'new_proj',
+      'anchor' => 'nw',
+      'command'=>proc{self.do_new_project},
+      'helptext'=>'New dir Project',
+      'image'=> TkPhotoImage.new('dat' => NEW_GIF)})
+    )
+
+    @button_box.add(Arcadia.style('toolbarbutton').update({
+      'name'=>'open_proj',
+      'anchor' => 'nw',
+      'command'=>proc{self.do_open_project},
+      'helptext'=>'Open dir as Project',
+      'image'=> TkPhotoImage.new('dat' => OPEN_GIF)})
+    )
+    #--- button_box
+    
+    @cb_sync = TkCheckButton.new(self.frame.hinner_frame, Arcadia.style('checkbox')){
+      text  'Sync'
+      justify  'left'
+      indicatoron 0
+      offrelief 'raised'
+      image TkPhotoImage.new('dat' => SYNCICON20_GIF)
+      #pack('anchor'=>'n')
+      place('x' => 0,'y' => 0,'height' => 26)
+    }
+
+    Tk::BWidget::DynamicHelp::add(@cb_sync, 
+      'text'=>'Link open editors with content in the Navigator')
+
+    do_check = proc {
+      if @cb_sync.cget('onvalue')==@cb_sync.cget('variable').value.to_i
+        sync_on
+      else
+        sync_off
+      end
+    }
+    @sync = false
+    @cb_sync.command(do_check)
+    @font =  Arcadia.conf('treeitem.font')
+    @font_b = "#{Arcadia.conf('treeitem.font')} bold"
+    @selecting_node = false    
+    do_select_item = proc{|_tree, _selected|
+      if File.exist?(node2file(_selected))
+        if File.ftype(node2file(_selected)) == 'file'
+          _sync_val = @sync
+          @sync = false
+          begin
+  	        Arcadia.process_event(OpenBufferTransientEvent.new(self,'file'=>node2file(_selected)))
+  	      ensure
+            @sync = _sync_val
+  	      end
+        elsif !_selected.nil? && @htree.open?(_selected)
+          @htree.close_tree(_selected)
+        elsif !_selected.nil?
+          @htree.open_tree(_selected,false) 
+        end
+      else
+        shure_delete_node(_selected)
+      end
+    }
+    
+    
+    do_open_folder_cmd = proc{|_node| do_open_folder(_node)}
+    do_close_folder_cmd = proc{|_node| do_close_folder(_node)}
+    
+#	  @htree = Tk::BWidget::Tree.new(self.frame.hinner_frame, Arcadia.style('treepanel')){
+	  @htree = Tk::BWidget::Tree.new(self.frame.hinner_frame, Arcadia.style('treepanel')){
+      showlines false
+      deltay 18
+      opencmd do_open_folder_cmd
+      closecmd do_close_folder_cmd
+      selectcommand do_select_item
+    }
+    
+    class << @htree
+      def open?(node)
+        bool(self.itemcget(tagid(node), 'open'))
+      end
+    
+      def areabind(context, *args)
+        if TkComm._callback_entry?(args[0]) || !block_given?
+          cmd = args.shift
+        else
+          cmd = Proc.new
+        end
+        _bind_for_event_class(Event_for_Items, [path, 'bindArea'], 
+                              context, cmd, *args)
+        self
+      end
+    
+      def areabind_append(context, *args)
+        if TkComm._callback_entry?(args[0]) || !block_given?
+          cmd = args.shift
+        else
+          cmd = Proc.new
+        end
+        _bind_append_for_event_class(Event_for_Items, [path, 'bindArea'], 
+                                     context, cmd, *args)
+        self
+      end
+    
+      def areabind_remove(*args)
+        _bind_remove_for_event_class(Event_for_Items, [path, 'bindArea'], *args)
+        self
+      end
+    
+      def areabindinfo(*args)
+        _bindinfo_for_event_class(Event_for_Items, [path, 'bindArea'], *args)
+      end
+    end
+    _wrapper = TkScrollWidget.new(@htree)  
+    _wrapper.show(0,26)
+    _wrapper.show_v_scroll
+    _wrapper.show_h_scroll
+    self.pop_up_menu_tree
+    @image_kdir = TkPhotoImage.new('dat' => BOOK_GIF)
+    @image_kdir_closed = TkPhotoImage.new('dat' => FOLDER_GIF)
+    @image_kfile_rb = TkPhotoImage.new('dat' => RUBY_DOCUMENT_GIF)
+    @image_kfile = TkPhotoImage.new('dat' => DOCUMENT_GIF)
+	  self.load_projects
+    @htree.areabind_append('KeyPress'){|e| key_press(e[1])}
+	end
+	
+	def key_press(_e)
+      case _e.keysym
+        when 'F5'
+        _selected = self.selected
+        do_refresh(_selected)
+      end
+	end
+
+	def on_after_build(_event)
+    self.frame.show
+	end
+
+  def node2file(_node)
+    if _node[0..0]=='{' && _node[-1..-1]=='}'
+      return _node[1..-2]
+    else
+      return _node
+    end
+  end
+
+  def file2node(_file)
+    if _file.include?("\s")
+      return "{#{_file}}"
+    else
+      return _file
+    end
+  end  
+
+  def do_close_folder(_node, _close=false)
+    @opened_folder.delete(_node)
+    @htree.close_tree(_node) if _close
+  end
+
+  def do_open_folder(_node, _open=false)
+    proj  = @projects[_node]
+    if proj && !proj.loaded
+      n = load_tree_from_dir(_node)
+      proj.loaded = true
+    else
+      proj = project_of_node(_node)
+      if !proj.cache_dirs.include?(_node)
+        load_tree_from_dir(_node)
+        proj.cache_dirs << _node
+      end
+      if @num_childrens_of[_node] == 1
+        child = @htree.nodes(_node)[0]
+        if File.ftype(node2file(child)) == 'directory'
+          @htree.open_tree(child,false) 
+          @opened_folder << child if !@opened_folder.include?(child)
+        end
+#      elsif @num_childrens_of[_node] > 1
+#        @htree.nodes(_node).each{|child|
+#          if @opened_folder.include?(child)
+#            load_tree_from_dir(child)
+#            do_open_folder(child, true)
+#          end
+#        }
+      end
+    end
+    @opened_folder << _node if !@opened_folder.include?(_node)
+    @htree.open_tree(_node,false)  if _open
+  end
+
+  def load_tree_from_dir(_node, _reset = false)
+    @htree.delete(@htree.nodes(_node)) if _reset
+    if @htree.exist?(_node)
+      childrens = Dir.entries(node2file(_node))
+      childrens_dir = Array.new
+      childrens_file = Array.new
+      @num_childrens_of[_node] = childrens.length-2
+      childrens.sort.each{|c|
+        if c != '.' && c != '..'
+          child = File.join(node2file(_node),c)
+          fty = File.ftype(node2file(child))
+          if fty == "file"
+            childrens_file << child
+            #add_node(_node, child, fty)
+          elsif fty == "directory"
+            childrens_dir << child
+            #add_node(_node, child, fty)
+          end
+        end
+      }
+      childrens_dir.each{|child|
+        add_node(_node, child, "directory")
+      }
+      childrens_file.each{|child|
+        add_node(_node, child, "file")
+      }
+    end
+  end
+
+  def pop_up_menu_tree
+    @pop_up_tree = TkMenu.new(
+      :parent=>@htree,
+      :tearoff=>0,
+      :title => 'Menu tree'
+    )
+    @pop_up_tree.configure(Arcadia.style('menu'))
+    #----- new submenu
+    sub_new = TkMenu.new(
+      :parent=>@pop_up,
+      :tearoff=>0,
+      :title => 'New'
+    )
+    sub_new.configure(Arcadia.style('menu'))
+    sub_new.insert('end',
+      :command,
+      :label=>'New dir Project',
+      :hidemargin => false,
+      :command=> proc{do_new_project}
+    )
+
+    sub_new.insert('end',
+      :command,
+      :label=>'New folder',
+      :hidemargin => false,
+      :command=> proc{
+        _selected = self.selected
+        p _selected
+        if _selected
+          do_new_folder(_selected)
+        end
+      }
+    )
+
+    sub_new.insert('end',
+      :command,
+      :label=>'New file',
+      :hidemargin => false,
+      :command=> proc{
+        _selected = self.selected
+        if _selected
+          do_new_file(_selected)
+        end
+      }
+    )
+
+    @pop_up_tree.insert('end',
+      :cascade,
+      :label=>'New',
+      :menu=>sub_new,
+      :hidemargin => false
+    )
+    #-----------------
+    #----- refactor submenu
+    sub_ref = TkMenu.new(
+      :parent=>@pop_up,
+      :tearoff=>0,
+      :title => 'Ref'
+    )
+    sub_ref.configure(Arcadia.style('menu'))
+    sub_ref.insert('end',
+      :command,
+      :label=>'Rename',
+      :hidemargin => false,
+      :command=> proc{
+        _selected = self.selected
+        if _selected
+          do_rename(_selected)
+        end
+      }
+    )
+    sub_ref.insert('end',
+      :command,
+      :label=>'Move',
+      :hidemargin => false,
+      :command=> proc{
+        _selected = self.selected
+        if _selected
+          _idir = File.split(_selected)[0]
+          _dir=Tk.chooseDirectory('initialdir'=>_idir,'mustexist'=>true) 
+          do_move(_selected, _dir) if _dir && File.exists?(_dir)
+        end
+      }
+    )
+    @pop_up_tree.insert('end',
+      :cascade,
+      :label=>'Refactor',
+      :menu=>sub_ref,
+      :hidemargin => false
+    )
+    
+    
+    #-----------------
+    
+    @pop_up_tree.insert('end',
+      :command,
+      :label=>'Open dir as Project',
+      :hidemargin => false,
+      :command=> proc{do_open_project}
+    )
+    @pop_up_tree.insert('end',
+      :command,
+      :label=>'Close Project',
+      :hidemargin => false,
+      :command=> proc{
+        _selected = self.selected
+        if _selected
+          #p _selected
+          do_close_project(_selected)
+        end
+      }
+    )
+    @pop_up_tree.insert('end',
+      :command,
+      :label=>'Refresh',
+      :hidemargin => false,
+      :command=> proc{
+        _selected = self.selected
+        do_refresh(_selected)
+      }
+    )
+    @pop_up_tree.insert('end',
+      :command,
+      :label=>'Delete',
+      :hidemargin => false,
+      :command=> proc{
+        _selected = self.selected
+        if _selected
+          do_delete(_selected)
+        end
+      }
+    )
+    @htree.areabind_append("Button-3",
+      proc{|x,y|
+        _x = TkWinfo.pointerx(@htree)
+        _y = TkWinfo.pointery(@htree)
+        @pop_up_tree.popup(_x,_y)
+      },
+    "%x %y")
+  end
+
+  def selected
+    if @htree.selection_get[0].length >0
+     	_selected = ""
+      @htree.selection_get[0].each{|_block|
+        _selected = _selected + _block.to_s + "\s" 
+      }
+      _selected = _selected.strip
+    else
+      _selected = @htree.selection_get[0]
+    end
+    return _selected
+  end
+
+  def do_new_project(_parent_folder_node=nil)
+    if _parent_folder_node.nil?
+      _parent_folder_node=Tk.chooseDirectory 
+    end
+    if _parent_folder_node && File.exists?(node2file(_parent_folder_node)) && File.ftype(node2file(_parent_folder_node)) == 'directory'
+      tmp_node_name = "#{node2file(_parent_folder_node)}#{File::SEPARATOR}_new_project_"
+      tree_parent = _parent_folder_node
+      add_temp_node('root',tmp_node_name,'project')
+      _verify_cmd = proc{|_text|
+        _ret = 0
+        begin
+          new_dir_name = "#{_parent_folder_node}#{File::SEPARATOR}#{_text}"
+          if !File.exists?(new_dir_name)
+            Dir.mkdir(new_dir_name)
+            add_project(new_dir_name)
+          end
+          _ret = 1
+        ensure
+          @htree.delete(file2node(tmp_node_name))
+        end
+        return _ret
+      }
+#      @htree.textbind('KeyPress', proc{|e| 
+#      p 'pippo'})
+      @htree.edit(tmp_node_name, tmp_node_name.split(File::SEPARATOR)[-1], _verify_cmd, 1)
+    end
+
+  end
+  
+  def do_open_project(_proj_name=nil)
+    if _proj_name.nil?
+      _proj_name=Tk.chooseDirectory 
+      add_project(_proj_name) if _proj_name && File.exists?(_proj_name)
+    end
+  end
+
+  def do_close_project(_proj_name)
+    if _proj_name 
+      del_project(_proj_name)
+    end
+  end
+
+  def do_new_folder(_parent_folder_node)
+    if File.exists?(node2file(_parent_folder_node)) && File.ftype(node2file(_parent_folder_node)) == 'directory'
+      tmp_node_name = "#{node2file(_parent_folder_node)}#{File::SEPARATOR}_new_folder_"
+      add_temp_node(_parent_folder_node,tmp_node_name,'directory')
+      @htree.open_tree(_parent_folder_node,false)
+      _verify_cmd = proc{|_text|
+        _ret = 0
+        begin
+          new_dir_name = "#{node2file(_parent_folder_node)}#{File::SEPARATOR}#{_text}"
+          if !File.exists?(new_dir_name)
+            Dir.mkdir(new_dir_name)
+            add_node(_parent_folder_node,new_dir_name,'directory')
+          end
+          _ret = 1
+        ensure
+          @htree.delete(file2node(tmp_node_name))
+          shure_select_node(new_dir_name)
+        end
+        return _ret
+      }
+      @htree.edit(tmp_node_name, tmp_node_name.split(File::SEPARATOR)[-1], _verify_cmd, 1)
+    end
+  end
+
+  def do_new_file(_parent_folder_node)
+    if File.exists?(node2file(_parent_folder_node)) && File.ftype(node2file(_parent_folder_node)) == 'directory'
+      tmp_node_name = "#{node2file(_parent_folder_node)}#{File::SEPARATOR}_new_file_"
+      add_temp_node(_parent_folder_node,tmp_node_name,"file")
+      @htree.open_tree(_parent_folder_node,false)
+      _verify_cmd = proc{|_text|
+        _ret = 0
+        begin
+          new_file_name = "#{node2file(_parent_folder_node)}#{File::SEPARATOR}#{_text}"
+          if !File.exists?(new_file_name)
+            File.new(new_file_name, "w").close
+            add_node(_parent_folder_node,new_file_name,"file")
+            #Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_node))
+          end
+          _ret = 1
+        ensure
+          @htree.delete(file2node(tmp_node_name))
+        end
+        return _ret
+      }
+      @htree.edit(tmp_node_name, tmp_node_name.split(File::SEPARATOR)[-1], _verify_cmd, 1)
+    end
+  end
+
+  def do_refresh(_node)
+    if _node.nil?
+      @projects.keys.each{|proj|
+        if !File.exists?(proj)
+          del_project(proj)
+        else
+          do_refresh(proj)
+        end
+      }
+    elsif @htree.exist?(_node)
+      opened = @opened_folder.include?(_node)
+      @htree.close_tree(_node)
+      nodes = @htree.nodes(_node)
+      shure_delete_node(nodes) if nodes
+      proj  = @projects[_node]
+      if proj && proj.loaded
+        proj.loaded = false
+        proj.cache_dirs.clear
+      else
+        proj = project_of_node(_node)
+        if proj
+          proj.cache_dirs.delete(_node)
+        end
+      end
+      do_open_folder(_node, opened) if opened
+      nodes.each{|n|
+        if File.exists?(n) && File.ftype(node2file(n)) == 'directory'
+          do_refresh(n)
+        end
+      }
+    end
+  end
+
+  def do_move(_source, _destination, _interactive = true)
+    _msg = "Move #{_source} to #{_destination}?"
+    if !_interactive || Arcadia.dialog(self,'type'=>'yes_no', 'level'=>'warning','title' => 'Confirm move', 'msg'=>_msg)=='yes'
+      if File.exists?(_source) 
+        type = File.ftype(node2file(_source))
+        source_basename = _source.split(File::SEPARATOR)[-1]
+        if type == 'directory'
+          des_path = File.join(_destination,source_basename)
+          if File.exists?(des_path)  || Dir.mkdir(des_path)
+            entries = Dir.entries(_source)
+            entries.delete('.')
+            entries.delete('..')
+            entries.each{|en|
+              full_en = File.join(_source,en)
+              do_move(full_en, des_path, false)
+            }
+            Dir.delete(_source)
+            if @projects[_source]
+              del_project(_source)
+            end
+          end
+        else
+          new_file = File.join(_destination,source_basename)
+          if File.rename(_source, new_file)
+            # evento
+            Arcadia.process_event(MoveBufferEvent.new(self,'old_file'=>_source,'new_file'=>new_file))
+          end
+        end
+        if _interactive
+          do_refresh(File.split(_source)[0])
+          do_refresh(_destination)
+        end
+      end
+    end
+  end
+
+  def do_rename(_source)
+    old_file_name = node2file(_source)
+    if File.exists?(old_file_name) 
+      source_dir = File.split(old_file_name)[0]
+      _verify_cmd = proc{|_text|
+        _ret = 0
+        begin
+          new_file_name = "#{source_dir}#{File::SEPARATOR}#{_text}"
+          #p "new_file_name=#{new_file_name}"
+          #p "old_file_name=#{old_file_name}"
+          if !File.exists?(new_file_name)
+            if File.rename(old_file_name, new_file_name)
+              # evento
+              Arcadia.process_event(MoveBufferEvent.new(self,'old_file'=>old_file_name,'new_file'=>new_file_name))
+            end
+          end
+          _ret = 1
+        ensure
+          shure_delete_node(_source)
+          do_refresh(source_dir)
+        end
+        return _ret
+      }
+      @htree.edit(_source, _source.split(File::SEPARATOR)[-1], _verify_cmd, 1)
+    end
+  end
+
+  def do_delete(_node, _interactive = true)
+    if File.exists?(node2file(_node)) 
+      type = File.ftype(node2file(_node))
+      if type == 'directory'
+        _msg = "Delete #{_node} directory ?"
+      else
+        _msg = "Delete #{_node} file ?"
+      end
+      if !_interactive || Arcadia.dialog(self,'type'=>'yes_no', 'level'=>'warning','title' => 'Confirm delete', 'msg'=>_msg)=='yes'
+        delete_node = true
+        if type == 'directory'
+          entries = Dir.entries(node2file(_node))
+          entries.delete('.')
+          entries.delete('..')
+          is_project = @htree.exist?(_node) && @htree.parent(_node)=='root'
+          if entries.length > 0
+            _msg2 = "#{_node} isn't empty. Shure to delete all sub entries ?"
+            entries.each{|en|
+              _msg2 = "#{_msg2}\n#{en}"
+            }
+            if !_interactive || Arcadia.dialog(self,'type'=>'yes_no', 'level'=>'warning','title' => 'Confirm deletion', 'msg'=>_msg2)=='yes'
+              entries.each{|en|
+                do_delete(File.join(node2file(_node),en),false)
+              }
+              Dir.delete(node2file(_node))
+            else
+              delete_node = false
+            end
+          else
+            Dir.delete(node2file(_node))
+          end
+          if  is_project && delete_node
+            delete_node = false
+            del_project(_node)
+          end
+        else
+          Arcadia.process_event(CloseBufferEvent.new(self,'file'=>node2file(_node)))
+          File.delete(node2file(_node))
+        end
+        shure_delete_node(_node) if delete_node
+      end
+    end
+  end
+
+  def project_of_node(_node)
+    project = _node
+    while !@node_parent[project].nil? && @node_parent[project] != 'root'
+      project = @node_parent[project]
+    end
+    return @projects[project]
+  end
+
+  def add_node(_parent, _node, _kind)
+    return if @htree.exist?(_node)
+    @node_parent[_node] = _parent
+    _name = _node.split(File::SEPARATOR)[-1]
+    _drawcross = 'auto'
+    if _kind == "project" || _kind == "directory"
+      num = Dir.entries(_node).length-2
+      if num > 0
+        _drawcross = 'always'
+      end
+    end
+    @htree.insert('end', _parent ,_node, {
+      'text' =>  _name ,
+      'helptext' => _node,
+      'drawcross'=>_drawcross,
+      'deltax'=>-1,
+      'image'=> image(_kind, _node)
+    }.update(Arcadia.style('treeitem'))
+    )
+    if _kind == "project" || _kind == "directory"
+      if @opened_folder.include?(_node)
+        do_open_folder(_node, true)
+      end
+    end
+  end
+
+  def add_temp_node(_parent, _node, _kind)
+    return if @htree.exist?(_node)
+    _name = _node.split(File::SEPARATOR)[-1]
+    _drawcross = 'auto'
+    @htree.insert('end', _parent ,_node, {
+      'text' =>  _name ,
+      'helptext' => _node,
+      'drawcross'=>_drawcross,
+      'deltax'=>-1,
+      'image'=> image(_kind, _node)
+    }.update(Arcadia.style('treeitem'))
+    )
+  end
+
+  def add_project(_dir)
+    add_node('root', _dir, "project")
+    @projects[_dir] = Project.new(_dir)
+    add_project_to_file(_dir) 
+  end
+
+  def shure_delete_node(_node)
+    if _node.length>1 || @htree.exist?(_node)
+      _sc = @htree.cget('selectcommand')
+      begin
+        @htree.configure('selectcommand'=>nil)
+        @htree.delete(_node)
+      ensure
+        @htree.configure('selectcommand'=>_sc)
+      end
+    end
+  end
+
+  def shure_select_node(_node)
+    return if @selecting_node
+    @selecting_node = true
+    _proc = @htree.selectcommand
+    @htree.selectcommand(nil)
+    begin
+      @htree.selection_clear
+      @htree.selection_add(_node)
+      @htree.see(_node)
+    ensure
+      @htree.selectcommand(_proc)
+      @selecting_node = false
+    end
+  end
+
+  def del_project(_dir)
+      shure_delete_node(file2node(_dir))
+      @projects.delete(_dir)
+      del_project_from_file(_dir) 
+  end
+
+
+  def load_projects
+    f = File::open(projects_file,'r')
+    begin
+      _lines = f.readlines.collect!{| line | line.chomp}
+    ensure
+      f.close unless f.nil?
+    end
+    _lines.each{|_line|
+      if _line.length > 0 && _line[0] != '#' && FileTest.directory?(_line)
+        add_project(_line)
+      end
+    }
+  end
+	
+	def add_project_to_file(_project)
+    f = File::open(projects_file,'r')
+    begin
+      _lines = f.readlines.collect!{| line | line.chomp}
+    ensure
+      f.close unless f.nil?
+    end
+    if !_lines.include?(_project)
+      f = File.new(projects_file, "w")
+      begin
+        _lines.each{|_line|
+          f.syswrite(_line+"\n")
+        }
+        f.syswrite(_project+"\n")
+      ensure
+        f.close unless f.nil?
+      end
+    end	
+	end
+
+	def del_project_from_file(_project)
+	 # p "del_project_from_file =>#{_project}"
+	 # p projects_file
+    f = File::open(projects_file,'r')
+    begin
+      _lines = f.readlines.collect!{| line | line.chomp}
+    ensure
+      f.close unless f.nil?
+    end
+    f = File.new(projects_file, "w")
+    begin
+      _lines.each{|_line|
+        if _line != _project
+        p _line
+          f.syswrite(_line+"\n")
+        end
+      }
+    ensure
+      f.close unless f.nil?
+    end
+	end
+
+	
+	def projects_file
+    if !defined?(@arcadia_projects_file)
+    		@arcadia_projects_file = @arcadia.local_dir+'/'+conf('file.name')
+    		if !File.exist?(@arcadia_projects_file)
+     			dir,fil =File.split(File.expand_path(@arcadia_projects_file))
+     			if !File.exist?(dir)
+     			  Dir.mkdir(dir)
+     			end
+        f = File.new(@arcadia_projects_file, "w+")
+        begin
+          f.syswrite("#Projects conf\n") if f
+        ensure
+          f.close unless f.nil?
+        end
+      end
+    		
+    end
+    return @arcadia_projects_file
+	end
+
+
+  def select_file_without_event(_file)
+    _file_node_rif = File.expand_path(_file)
+    steps = _file_node_rif.split(File::SEPARATOR)
+    j = 0
+    max = steps.length-1
+    path = ''
+    while j <  max
+      if path.strip.length > 0 && path.strip != File::SEPARATOR
+        path = path + File::SEPARATOR
+      end
+      if path.strip.length == 0 && _file_node_rif[0..0] == File::SEPARATOR
+        path = File::SEPARATOR
+      end
+      path = path + steps[j]
+      if @htree.exist?(path)
+        @htree.open_tree(path, false)
+      end
+      j=j+1
+    end
+    if @htree.exist?(_file_node_rif)
+      shure_select_node(_file_node_rif)
+    end
+  end
+		
+  def on_buffer_raised(_event)
+    return if _event.file.nil?
+    @last_file = _event.file
+    if @sync
+      select_file_without_event(_event.file)
+    end
+  end
+  
+  def on_before_save_as_buffer(_event)
+    _selected = self.selected
+    if _selected
+      tpy =  File.ftype(node2file(_selected))
+      if tpy == 'directory'
+        Dir.chdir(_selected)
+      elsif tpy == 'file'
+        Dir.chdir(File.dirname(_selected))
+      end      
+    end
+  end
+
+  def image(_kind, _label='.rb')
+      if _kind == 'directory'
+        return @image_kdir
+      elsif _kind == 'project'
+        return @image_kdir_closed
+      elsif _kind == 'file' && _label.include?('.rb')
+        return @image_kfile_rb
+      else
+        return @image_kfile
+      end
+  end
+
+
+end