arcadia 0.1.0

data/lib/tk/al-tk.res.rb

@@ -0,0 +1,217 @@
+AGTKLISTBOX_GIF=<<EOS
+R0lGODlhGwAYAMIGAAAAe3t7e72cvb29vd7e3v8AAP///////ywAAAAAGwAY
+AAADkDikvN7wyUinWyzozXn5oBUQZGmWRTkUCraMBCDPM5lqq3juNvGtrYFC
+AKPRUEJhKgLjmUCgYIZkPPoeS0nTaWuwSEICkVoFoLCicvWr+LoGARlXls0x
+1Ua2T/oiV88MdQ5bXFA/YFMxaj1gggqETik/bmFwfkZnOI4EkDwsSZQZhqOk
+mxWnEm8WqKyrrg0LCQA7
+EOS
+
+AGTKBUTTON_GIF=<<EOS
+R0lGODlhGAAYAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8EAg
+AGAgAIAgAKAgAMAgAOAgAABAACBAAEBAAGBAAIBAAKBAAMBAAOBAAABgACBg
+AEBgAGBgAIBgAKBgAMBgAOBgAACAACCAAECAAGCAAICAAKCAAMCAAOCAAACg
+ACCgAECgAGCgAICgAKCgAMCgAOCgAADAACDAAEDAAGDAAIDAAKDAAMDAAODA
+AADgACDgAEDgAGDgAIDgAKDgAMDgAODgAAAAQCAAQEAAQGAAQIAAQKAAQMAA
+QOAAQAAgQCAgQEAgQGAgQIAgQKAgQMAgQOAgQABAQCBAQEBAQGBAQIBAQKBA
+QMBAQOBAQABgQCBgQEBgQGBgQIBgQKBgQMBgQOBgQACAQCCAQECAQGCAQICA
+QKCAQMCAQOCAQACgQCCgQECgQGCgQICgQKCgQMCgQOCgQADAQCDAQEDAQGDA
+QIDAQKDAQMDAQODAQADgQCDgQEDgQGDgQIDgQKDgQMDgQODgQAAAgCAAgEAA
+gGAAgIAAgKAAgMAAgOAAgAAggCAggEAggGAggIAggKAggMAggOAggABAgCBA
+gEBAgGBAgIBAgKBAgMBAgOBAgABggCBggEBggGBggIBggKBggMBggOBggACA
+gCCAgECAgGCAgICAgKCAgMCAgOCAgACggCCggECggGCggICggKCggMCggOCg
+gADAgCDAgEDAgGDAgIDAgKDAgMDAgODAgADggCDggEDggGDggIDggKDggMDg
+gODggAAAwCAAwEAAwGAAwIAAwKAAwMAAwOAAwAAgwCAgwEAgwGAgwIAgwKAg
+wMAgwOAgwABAwCBAwEBAwGBAwIBAwKBAwMBAwOBAwABgwCBgwEBgwGBgwIBg
+wKBgwMBgwOBgwACAwCCAwECAwGCAwICAwKCAwMCAwOCAwACgwCCgwECgwGCg
+wICgwKCgwMCgwOCgwADAwCDAwEDAwGDAwIDAwKDAwP/78KCgpICAgP8AAAD/
+AP//AAAA//8A/wD//////yH5BAEAAP0ALAAAAAAYABgAAAh9APsJHEiwoMGD
+CBMqXMiwocOHEBMCmEixosWLAAQC+Mexo8ePHzP223igpMmTKE2SEknyJIGX
+JQnEPLlS4z+XJmXqRFlz5M2cQGHyZPlz5syXMmkSxXn0QFKVS10KTfr0QM+W
+KbNCtUmqq9evYL+yxEj2YsSzaNOqXcu2YEAAOw==
+EOS
+
+AGTKCHECKBUTTON_GIF=<<EOS
+R0lGODlhGAAYAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8EAg
+AGAgAIAgAKAgAMAgAOAgAABAACBAAEBAAGBAAIBAAKBAAMBAAOBAAABgACBg
+AEBgAGBgAIBgAKBgAMBgAOBgAACAACCAAECAAGCAAICAAKCAAMCAAOCAAACg
+ACCgAECgAGCgAICgAKCgAMCgAOCgAADAACDAAEDAAGDAAIDAAKDAAMDAAODA
+AADgACDgAEDgAGDgAIDgAKDgAMDgAODgAAAAQCAAQEAAQGAAQIAAQKAAQMAA
+QOAAQAAgQCAgQEAgQGAgQIAgQKAgQMAgQOAgQABAQCBAQEBAQGBAQIBAQKBA
+QMBAQOBAQABgQCBgQEBgQGBgQIBgQKBgQMBgQOBgQACAQCCAQECAQGCAQICA
+QKCAQMCAQOCAQACgQCCgQECgQGCgQICgQKCgQMCgQOCgQADAQCDAQEDAQGDA
+QIDAQKDAQMDAQODAQADgQCDgQEDgQGDgQIDgQKDgQMDgQODgQAAAgCAAgEAA
+gGAAgIAAgKAAgMAAgOAAgAAggCAggEAggGAggIAggKAggMAggOAggABAgCBA
+gEBAgGBAgIBAgKBAgMBAgOBAgABggCBggEBggGBggIBggKBggMBggOBggACA
+gCCAgECAgGCAgICAgKCAgMCAgOCAgACggCCggECggGCggICggKCggMCggOCg
+gADAgCDAgEDAgGDAgIDAgKDAgMDAgODAgADggCDggEDggGDggIDggKDggMDg
+gODggAAAwCAAwEAAwGAAwIAAwKAAwMAAwOAAwAAgwCAgwEAgwGAgwIAgwKAg
+wMAgwOAgwABAwCBAwEBAwGBAwIBAwKBAwMBAwOBAwABgwCBgwEBgwGBgwIBg
+wKBgwMBgwOBgwACAwCCAwECAwGCAwICAwKCAwMCAwOCAwACgwCCgwECgwGCg
+wICgwKCgwMCgwOCgwADAwCDAwEDAwGDAwIDAwKDAwP/78KCgpICAgP8AAAD/
+AP//AAAA//8A/wD//////yH5BAEAAP0ALAAAAAAYABgAAAhyAPsJHEiwoMGD
+CBMqXMiwocOHECNCBECxokWHAEhp3KgRAEZS/0KKPODRYEmCGf8BCLmS5MGT
+A1OqXPnPpUCKN3HGBDkzpM2Y/UqeTEmz5dCgSJMG5SmyJkycFVEemEp1KkyF
+FrNelci1q9evYMOKJRgQADs=
+EOS
+
+AGTKENTRY_GIF=<<EOS
+R0lGODlhGAAYAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8EAg
+AGAgAIAgAKAgAMAgAOAgAABAACBAAEBAAGBAAIBAAKBAAMBAAOBAAABgACBg
+AEBgAGBgAIBgAKBgAMBgAOBgAACAACCAAECAAGCAAICAAKCAAMCAAOCAAACg
+ACCgAECgAGCgAICgAKCgAMCgAOCgAADAACDAAEDAAGDAAIDAAKDAAMDAAODA
+AADgACDgAEDgAGDgAIDgAKDgAMDgAODgAAAAQCAAQEAAQGAAQIAAQKAAQMAA
+QOAAQAAgQCAgQEAgQGAgQIAgQKAgQMAgQOAgQABAQCBAQEBAQGBAQIBAQKBA
+QMBAQOBAQABgQCBgQEBgQGBgQIBgQKBgQMBgQOBgQACAQCCAQECAQGCAQICA
+QKCAQMCAQOCAQACgQCCgQECgQGCgQICgQKCgQMCgQOCgQADAQCDAQEDAQGDA
+QIDAQKDAQMDAQODAQADgQCDgQEDgQGDgQIDgQKDgQMDgQODgQAAAgCAAgEAA
+gGAAgIAAgKAAgMAAgOAAgAAggCAggEAggGAggIAggKAggMAggOAggABAgCBA
+gEBAgGBAgIBAgKBAgMBAgOBAgABggCBggEBggGBggIBggKBggMBggOBggACA
+gCCAgECAgGCAgICAgKCAgMCAgOCAgACggCCggECggGCggICggKCggMCggOCg
+gADAgCDAgEDAgGDAgIDAgKDAgMDAgODAgADggCDggEDggGDggIDggKDggMDg
+gODggAAAwCAAwEAAwGAAwIAAwKAAwMAAwOAAwAAgwCAgwEAgwGAgwIAgwKAg
+wMAgwOAgwABAwCBAwEBAwGBAwIBAwKBAwMBAwOBAwABgwCBgwEBgwGBgwIBg
+wKBgwMBgwOBgwACAwCCAwECAwGCAwICAwKCAwMCAwOCAwACgwCCgwECgwGCg
+wICgwKCgwMCgwOCgwADAwCDAwEDAwGDAwIDAwKDAwP/78KCgpICAgP8AAAD/
+AP//AAAA//8A/wD//////yH5BAEAAP0ALAAAAAAYABgAAAh8APsJHEiwoMGD
+CBMqXMiwocOHEBMCmEixosWLAAQCIMWxo8ePHzP22/ivpMmTKE0eEEkyJYCU
+J1dqJAXzJcySMkfSLDmRZ0+fKlnuNPnSZlGUOVv+O2p0KVKhJ3tSJGrzX9Kh
+N2FePcC1q9evXlliHHsxotmzaNOqXVswIAA7
+EOS
+
+AGTKFRAME_GIF=<<EOS
+R0lGODlhFgAWAKEDAKyomezp2P7+/v///yH+FUNyZWF0ZWQgd2l0aCBUaGUg
+R0lNUAAsAAAAABYAFgAAAjuMj6kG7Q8hE7TaW4MIYK/PbR34jSOpmB6KqGzi
+vkcsh3ZtnzUt86/PAqKEJCLIWBKteiJO5PnwYKbTAgA7
+EOS
+
+AGTKLABEL_GIF=<<EOS
+R0lGODlhGAAYAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8EAg
+AGAgAIAgAKAgAMAgAOAgAABAACBAAEBAAGBAAIBAAKBAAMBAAOBAAABgACBg
+AEBgAGBgAIBgAKBgAMBgAOBgAACAACCAAECAAGCAAICAAKCAAMCAAOCAAACg
+ACCgAECgAGCgAICgAKCgAMCgAOCgAADAACDAAEDAAGDAAIDAAKDAAMDAAODA
+AADgACDgAEDgAGDgAIDgAKDgAMDgAODgAAAAQCAAQEAAQGAAQIAAQKAAQMAA
+QOAAQAAgQCAgQEAgQGAgQIAgQKAgQMAgQOAgQABAQCBAQEBAQGBAQIBAQKBA
+QMBAQOBAQABgQCBgQEBgQGBgQIBgQKBgQMBgQOBgQACAQCCAQECAQGCAQICA
+QKCAQMCAQOCAQACgQCCgQECgQGCgQICgQKCgQMCgQOCgQADAQCDAQEDAQGDA
+QIDAQKDAQMDAQODAQADgQCDgQEDgQGDgQIDgQKDgQMDgQODgQAAAgCAAgEAA
+gGAAgIAAgKAAgMAAgOAAgAAggCAggEAggGAggIAggKAggMAggOAggABAgCBA
+gEBAgGBAgIBAgKBAgMBAgOBAgABggCBggEBggGBggIBggKBggMBggOBggACA
+gCCAgECAgGCAgICAgKCAgMCAgOCAgACggCCggECggGCggICggKCggMCggOCg
+gADAgCDAgEDAgGDAgIDAgKDAgMDAgODAgADggCDggEDggGDggIDggKDggMDg
+gODggAAAwCAAwEAAwGAAwIAAwKAAwMAAwOAAwAAgwCAgwEAgwGAgwIAgwKAg
+wMAgwOAgwABAwCBAwEBAwGBAwIBAwKBAwMBAwOBAwABgwCBgwEBgwGBgwIBg
+wKBgwMBgwOBgwACAwCCAwECAwGCAwICAwKCAwMCAwOCAwACgwCCgwECgwGCg
+wICgwKCgwMCgwOCgwADAwCDAwEDAwGDAwIDAwKDAwP/78KCgpICAgP8AAAD/
+AP//AAAA//8A/wD//////yH5BAEAAP0ALAAAAAAYABgAAAhuAPsJHEiwoMGD
+CBMqXMiwocOHECNCJEWxosWLGEkJJPWvo8ePIEFq7McRQMh/Jk+aHFlS5UmU
+/1jC7AggZc2UM1dunOnRpE2YPmPuxBn0J1GhJFHWpOlzKVOYMl9K7cgyo1WM
+ErNq3cq1q1euAQEAOw==
+EOS
+
+AGTKSCROLLBAR_GIF=<<EOS
+R0lGODlhGAAYAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8EAg
+AGAgAIAgAKAgAMAgAOAgAABAACBAAEBAAGBAAIBAAKBAAMBAAOBAAABgACBg
+AEBgAGBgAIBgAKBgAMBgAOBgAACAACCAAECAAGCAAICAAKCAAMCAAOCAAACg
+ACCgAECgAGCgAICgAKCgAMCgAOCgAADAACDAAEDAAGDAAIDAAKDAAMDAAODA
+AADgACDgAEDgAGDgAIDgAKDgAMDgAODgAAAAQCAAQEAAQGAAQIAAQKAAQMAA
+QOAAQAAgQCAgQEAgQGAgQIAgQKAgQMAgQOAgQABAQCBAQEBAQGBAQIBAQKBA
+QMBAQOBAQABgQCBgQEBgQGBgQIBgQKBgQMBgQOBgQACAQCCAQECAQGCAQICA
+QKCAQMCAQOCAQACgQCCgQECgQGCgQICgQKCgQMCgQOCgQADAQCDAQEDAQGDA
+QIDAQKDAQMDAQODAQADgQCDgQEDgQGDgQIDgQKDgQMDgQODgQAAAgCAAgEAA
+gGAAgIAAgKAAgMAAgOAAgAAggCAggEAggGAggIAggKAggMAggOAggABAgCBA
+gEBAgGBAgIBAgKBAgMBAgOBAgABggCBggEBggGBggIBggKBggMBggOBggACA
+gCCAgECAgGCAgICAgKCAgMCAgOCAgACggCCggECggGCggICggKCggMCggOCg
+gADAgCDAgEDAgGDAgIDAgKDAgMDAgODAgADggCDggEDggGDggIDggKDggMDg
+gODggAAAwCAAwEAAwGAAwIAAwKAAwMAAwOAAwAAgwCAgwEAgwGAgwIAgwKAg
+wMAgwOAgwABAwCBAwEBAwGBAwIBAwKBAwMBAwOBAwABgwCBgwEBgwGBgwIBg
+wKBgwMBgwOBgwACAwCCAwECAwGCAwICAwKCAwMCAwOCAwACgwCCgwECgwGCg
+wICgwKCgwMCgwOCgwADAwCDAwEDAwGDAwIDAwKDAwP/78KCgpICAgP8AAAD/
+AP//AAAA//8A/wD//////yH5BAEAAP0ALAAAAAAYABgAAAh1APsJHEiwoMGD
+CBMqXJgQgMOHECNCLAjgn8WLGP9V1GgRAMWMICs+1PgRJEaJHgluNNkxY8qB
+K1nGJKmS5cWZLwXODOmypE2cPmX2rGmT48mgJoES/TkUZlGjN5GGlCjVpUaH
+NJ0W3ciVIsqvDxmKHUu2LMGAADs=
+EOS
+
+AGTKTEXT_GIF=<<EOS
+R0lGODlhGAAYAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8EAg
+AGAgAIAgAKAgAMAgAOAgAABAACBAAEBAAGBAAIBAAKBAAMBAAOBAAABgACBg
+AEBgAGBgAIBgAKBgAMBgAOBgAACAACCAAECAAGCAAICAAKCAAMCAAOCAAACg
+ACCgAECgAGCgAICgAKCgAMCgAOCgAADAACDAAEDAAGDAAIDAAKDAAMDAAODA
+AADgACDgAEDgAGDgAIDgAKDgAMDgAODgAAAAQCAAQEAAQGAAQIAAQKAAQMAA
+QOAAQAAgQCAgQEAgQGAgQIAgQKAgQMAgQOAgQABAQCBAQEBAQGBAQIBAQKBA
+QMBAQOBAQABgQCBgQEBgQGBgQIBgQKBgQMBgQOBgQACAQCCAQECAQGCAQICA
+QKCAQMCAQOCAQACgQCCgQECgQGCgQICgQKCgQMCgQOCgQADAQCDAQEDAQGDA
+QIDAQKDAQMDAQODAQADgQCDgQEDgQGDgQIDgQKDgQMDgQODgQAAAgCAAgEAA
+gGAAgIAAgKAAgMAAgOAAgAAggCAggEAggGAggIAggKAggMAggOAggABAgCBA
+gEBAgGBAgIBAgKBAgMBAgOBAgABggCBggEBggGBggIBggKBggMBggOBggACA
+gCCAgECAgGCAgICAgKCAgMCAgOCAgACggCCggECggGCggICggKCggMCggOCg
+gADAgCDAgEDAgGDAgIDAgKDAgMDAgODAgADggCDggEDggGDggIDggKDggMDg
+gODggAAAwCAAwEAAwGAAwIAAwKAAwMAAwOAAwAAgwCAgwEAgwGAgwIAgwKAg
+wMAgwOAgwABAwCBAwEBAwGBAwIBAwKBAwMBAwOBAwABgwCBgwEBgwGBgwIBg
+wKBgwMBgwOBgwACAwCCAwECAwGCAwICAwKCAwMCAwOCAwACgwCCgwECgwGCg
+wICgwKCgwMCgwOCgwADAwCDAwEDAwGDAwIDAwKDAwP/78KCgpICAgP8AAAD/
+AP//AAAA//8A/wD//////yH5BAEAAP0ALAAAAAAYABgAAAhqAPsJHEiwoMGD
+CBMqXMiwocOHBAFInEixIgCEAP5p3MiR48WDGUmJHCmy40eDGTuq1HiyYEiS
+MEmxxLhyZcuI/2LapFnTJM2YJT3y7Lnx5sCXI2saFZiS6EyQTotitEhVIsSr
+WLNq3dowIAA7
+EOS
+
+AGTKTOPLEVEL_GIF=<<EOS
+R0lGODlhEgARAOf/AAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8EAg
+AGAgAIAgAKAgAMAgAOAgAABAACBAAEBAAGBAAIBAAKBAAMBAAOBAAABgACBg
+AEBgAGBgAIBgAKBgAMBgAOBgAACAACCAAECAAGCAAICAAKCAAMCAAOCAAACg
+ACCgAECgAGCgAICgAKCgAMCgAOCgAADAACDAAEDAAGDAAIDAAKDAAMDAAODA
+AADgACDgAEDgAGDgAIDgAKDgAMDgAODgAAAAQCAAQEAAQGAAQIAAQKAAQMAA
+QOAAQAAgQCAgQEAgQGAgQIAgQKAgQMAgQOAgQABAQCBAQEBAQGBAQIBAQKBA
+QMBAQOBAQABgQCBgQEBgQGBgQIBgQKBgQMBgQOBgQACAQCCAQECAQGCAQICA
+QKCAQMCAQOCAQACgQCCgQECgQGCgQICgQKCgQMCgQOCgQADAQCDAQEDAQGDA
+QIDAQKDAQMDAQODAQADgQCDgQEDgQGDgQIDgQKDgQMDgQODgQAAAgCAAgEAA
+gGAAgIAAgKAAgMAAgOAAgAAggCAggEAggGAggIAggKAggMAggOAggABAgCBA
+gEBAgGBAgIBAgKBAgMBAgOBAgABggCBggEBggGBggIBggKBggMBggOBggACA
+gCCAgECAgGCAgICAgKCAgMCAgOCAgACggCCggECggGCggICggKCggMCggOCg
+gADAgCDAgEDAgGDAgIDAgKDAgMDAgODAgADggCDggEDggGDggIDggKDggMDg
+gODggAAAwCAAwEAAwGAAwIAAwKAAwMAAwOAAwAAgwCAgwEAgwGAgwIAgwKAg
+wMAgwOAgwABAwCBAwEBAwGBAwIBAwKBAwMBAwOBAwABgwCBgwEBgwGBgwIBg
+wKBgwMBgwOBgwACAwCCAwECAwGCAwICAwKCAwMCAwOCAwACgwCCgwECgwGCg
+wICgwKCgwMCgwOCgwADAwCDAwEDAwGDAwIDAwKDAwP/78KCgpICAgP8AAAD/
+AP//AAAA//8A/wD//////yH5BAEAAP8ALAAAAAASABEAAAhBAAMIHEiwoMGD
+CA8oXMiwocOHECNKbBhAYcWJFjNiHHjg4sWIHjtutPhRYsiSEE9urBgSo8uX
+MBmSmkmzpk2aAQEAOw==
+EOS
+
+AGTKSCALE_GIF=<<EOS
+R0lGODlhEAAQAIQcADdMYc9AQOfp7M7T2F1uf/P09tre4r8AAGl5iURXa8sw
+MFBidXaEk/PQ0I+bpoKPnOOQkLS8xKixutdgYOegoJumsMHIzvfg4NtwcO/A
+wN+AgAAAAP///////////////yH5BAEAAB8ALAAAAAAQABAAAAVM4CeOZLmV
+KHmm6cqa5PB+LsGIwlfIMj1KFhFAmBi5ECODkGAcDYUfguHpm6k+F2vDp7EG
+uKJud/T9njCZzESdTisyiqpVtKnb7/h6CAA7
+EOS
+
+AGTKMENUBUTTON_GIF=<<EOS
+R0lGODlhFgAVAOMAAP///wAAAGCgwDBQYIbg//8AAAAAv8zMzP//ALu7u3d3
+d////////////////////ywAAAAAFgAVAAAEUvDISau9OMvAu/9cFSBkaSIj
+GYgoyKHlSqWnScuTq4cz4P9AAM4SCBqHIqFOmCkagciZYUqtGqK56XOK3Vi/
+3YPz6QsXd0zMmGzedTTwuHwejwAAOw==
+EOS
+
+AGTKLABELFRAME_GIF=<<EOS
+R0lGODlhGQAZALMAAAAAgKyomezp2P7+/gAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAACwAAAAAGQAZAAAET1DISau9OOvNJfjg1wlBIIQh
+Wa5mFQwnKg50LcDUO0p6jo+9SbAzJP2IR+NO6VsWi5tnMpqEaqTO6vSqzbq2
+GezuqWKZz9Oaes0GL9/weAQAOw==
+EOS
+
+AGTKMENUBAR_GIF=<<EOS
+R0lGODlhGQAZALMAAAAAAAAAgKyomezp2P7+/gAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAACwAAAAAGQAZAAAEYXDISau9OOvNhf9gGFYCEZwn
+oa6sKpDmGpgpPRMCAKN1y74kUQhALAJhPpWOMyjxboRlJ6lkNm3QqLVElW6c
+vJVXw02OM4In74wp+9gXcE/LdLfgllxxT7T6/4CBgoN/EQAAOw==
+EOS
+
+AGTKMENU_GIF=<<EOS
+R0lGODlhGQAZALMAAAAAAAAAgKyomezp2P7+/gAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAACwAAAAAGQAZAAAEYHDISau9OGvBuxcaJRBkWQLh
+NAYse6bSaJoovLY0PMgzWac3nE8naBlZv1BxBgAEkpvjk9AkEo6Aoa2X1Sqb
+4GZOR+m+yBLzmawOo9voSVZMjQ+qXSjsl7fLvX5VfiERAAA7
+EOS
+

data/lib/tk/al-tkarcadia.rb

@@ -0,0 +1,26 @@
+#
+#   al-tkarcadia.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'lib/tk/al-tk'
+require 'base/a-utils'
+
+class WAGTkVSplittedFrames < AGTkFrame
+  def WAGTkVSplittedFrames.class_wrapped
+    AGTkVSplittedFrames
+  end
+  def new_object
+    @obj = AGTkVSplittedFrames.new(@ag_parent.obj)
+  end
+
+  def properties
+    super()
+  end
+end
+
+class ArcadiaLibArcadiaTk < ArcadiaLib
+  def register_classes
+    self.add_class(WAGTkVSplittedFrames)
+  end
+end

data/lib/tk/al-tkcustom.rb

@@ -0,0 +1,70 @@
+#
+#   al-tkcustom.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'lib/tk/al-tk'
+
+class TkLabelWatch < TkLabel
+  def show(_format="%I:%M:%S %p")
+    t = Time.now
+    configure('text'=>t.strftime(_format))
+  end
+
+  def start
+    @active = true
+    @t_clock = Thread.new {
+      loop {
+        show
+        sleep 1
+      }
+    }
+  end
+  def stop
+    @active = false
+    @t_clock.exit if defined? @t_clock
+  end
+  def active?
+    @active
+  end
+end
+
+class AGTkLabelWatch < AGTkLabel
+  def AGTkLabelWatch.class_wrapped
+    TkLabelWatch
+  end
+
+  def new_object
+    @obj = TkLabelWatch.new(@ag_parent.obj)
+    @obj.show
+  end
+  
+  def properties
+    super()
+    mod_publish('property','name'=>'text','default'=> nil)
+    publish('property','name'=>'active',
+    'get'=> proc{ @obj.active? },
+    'set'=> proc{|_val|
+      if _val
+        @obj.start
+      else
+        @obj.stop
+      end
+    },
+    'def'=> proc{|value|
+      if value
+        return "start"
+      else
+        return ""
+      end
+    },
+    'type'=> TkType::TkagBool
+    )
+  end
+end
+
+class ArcadiaLibTkCustom < ArcadiaLib
+  def register_classes
+    self.add_class(AGTkLabelWatch)
+  end
+end

data/lib/tkext/al-bwidget.rb

@@ -0,0 +1,194 @@
+#
+#   al-bwidget.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'lib/tk/al-tk'
+require 'tkextlib/bwidget'
+require "base/a-libs"
+
+class AGBWidgetMainFrame < AGTkContainer
+
+  def AGBWidgetMainFrame.class_wrapped
+    Tk::BWidget::MainFrame
+  end
+  
+  def properties
+    super()
+#    publish_del('property','visual')
+#    publish_del('property','container')
+#    publish_del('property','class')
+    publish_del('property','cursor')
+  end
+  
+end
+
+class AGBWidgetComboBox < AGTkBase
+
+  def initialize(_ag_parent = nil, _object = nil)
+    super(_ag_parent, _object)
+    ppress = proc{@l_manager.deactivate;@obj.callback_break}
+    prelease = proc{@l_manager.activate;@obj.callback_break}
+    @obj.e.bind("ButtonPress-1", proc{|e| 
+        @l_manager.place_manager.do_press_obj(e.x, e.y)
+        @obj.callback_break
+      }
+    )
+    @obj.e.bind_append("ButtonPress-1", ppress)
+    @obj.e.bind("ButtonRelease-1", prelease)
+    @obj.e.bind("B1-Motion", proc{|x, y| @l_manager.place_manager.do_mov_obj(x,y); @obj.callback_break},"%x %y")
+  end
+  
+  def AGBWidgetComboBox.class_wrapped
+    Tk::BWidget::ComboBox
+  end
+
+  def new_object
+    super
+    initobj
+  end
+  
+  def  initobj
+    def @obj.e
+      TkWinfo.children(self)[0]
+    end
+
+    def @obj.b
+      TkWinfo.children(self)[1]
+    end
+  
+  end
+  
+  def passedobject(_obj)
+    super
+    initobj
+  end
+
+  def properties
+    super()
+
+    publish_mod('place','name'=>'width',
+      'get'=> proc{if TkWinfo.mapped?(@obj)
+          TkWinfo.width(@obj.e)+ TkWinfo.width(@obj.b)
+        else
+          TkWinfo.reqwidth(@obj.e)+ TkWinfo.reqwidth(@obj.b)
+        end
+      }
+    )
+
+    publish_mod('place','name'=>'height',
+        'get'=> proc{ if TkWinfo.mapped?(@obj)
+          TkWinfo.height(@obj)
+        else
+          TkWinfo.reqheight(@obj.b)
+        end
+      }
+    )
+  
+    publish('property','name'=>'entry-background',
+      'get'=> proc{@obj.e.cget('background')},
+      'set'=> proc{|background| @obj.e.configure('background'=>background)},
+      'def'=> proc{|x| "TkWinfo.children(self)[0].configure('background'=>#{x})"},
+      'type'=> TkType::TkagColor
+    )
+    publish('property','name'=>'button-background',
+      'get'=> proc{@obj.b.cget('background')},
+      'set'=> proc{|background| @obj.b.configure('background'=>background)},
+      'def'=> proc{|x| "TkWinfo.children(self)[1].configure('background'=>#{x})"},
+      'type'=> TkType::TkagColor
+    )
+    publish('property','name'=>'values',
+      'get'=> proc{@obj.cget('values')},
+      'set'=> proc{|v| @obj.configure('values'=>v)},
+      'def'=> ""
+    )
+  end
+end
+
+class AGTkBwProgressBar < AGTkBase
+  def AGTkBwProgressBar.class_wrapped
+    Tk::BWidget::ProgressBar
+  end
+  
+  def properties
+    super()
+    publish('property','name'=>'variable',
+      'get'=> proc{@obj.cget('variable')},
+      'set'=> proc{|variable| @obj.configure('variable'=>variable)},
+      'def'=> ''
+    )
+  end
+end
+
+class AGTkBwButton < AGTkButton
+  def AGTkBwButton.class_wrapped
+   Tk::BWidget::Button
+  end
+  def properties
+    super()
+    publish('property','name'=>'helptype',
+    'get'=> proc{@obj.cget('helptype')},
+    'set'=> proc{|v| @obj.configure('helptype'=>v)},
+    'def'=> "",
+    'type'=> EnumType.new('balloon','variable')
+    )
+    publish('property','name'=>'helptext',
+    'get'=> proc{@obj.cget('helptext')},
+    'set'=> proc{|v| @obj.configure('helptext'=>v)},
+    'def'=> ""
+    )
+  end
+end
+
+class AGTkBwSeparator < AGTkBase
+  def new_object
+    @obj = Tk::BWidget::Separator.new(@ag_parent.obj)
+  end
+end
+
+class AGTkBwPanedWindow < AGTkFrame
+  def new_object
+    @obj = Tk::BWidget::PanedWindow.new(@ag_parent.obj)
+  end
+end
+
+class AGTkBwNoteBook < AGTkBwPanedWindow
+  def new_object
+    @obj = Tk::BWidget::NoteBook.new(@ag_parent.obj)
+  end
+
+  def AGTkBwNoteBook.class_wrapped
+    Tk::BWidget::NoteBook
+  end
+
+  
+  def properties
+    super
+    publish('property','name'=>'background',
+    'get'=> proc{@obj.cget('background')},
+    'set'=> proc{|background| @obj.configure('background'=>background)},
+    'def'=> '',
+    'type'=> TkType::TkagColor
+    )
+  end
+end
+
+class AGTkBwTree < AGTkBase
+  def new_object
+    @obj = Tk::BWidget::Tree.new(@ag_parent.obj)
+  end
+end
+
+
+class ArcadiaLibBWidget < ArcadiaLib
+  def register_classes
+    self.add_class(AGBWidgetMainFrame)
+    self.add_class(AGBWidgetComboBox)
+    self.add_class(AGTkBwProgressBar)
+    self.add_class(AGTkBwSeparator)
+    self.add_class(AGTkBwPanedWindow)
+    self.add_class(AGTkBwNoteBook)
+    self.add_class(AGTkBwTree)
+    self.add_class(AGTkBwButton)
+  end
+end