// mingaswing.php
<?
/********************************************************************************
* @ File: mingaswing.php
* @ Original date: August 2006 @ www16.brinkster.com/gazb/ming/
* @ Version: 1.1
* @ Summary: ming + aswing components - code.google.com/p/aswing/ & www.aswing.org/?p=214
* @ Updated:  small improvements and summary text
* @ Copyright (c) 2003-2007, www.gazbming.com - all rights reserved.
* @ Author: gazb.ming [[@]] gmail.com - www.gazbming.com 
* @ Released under GNU Lesser General Public License - http://www.gnu.org/licenses/lgpl.html
********************************************************************************/
// some typical movie variables
$useLoadMovie=true;
Ming_setScale(20.0000000);
ming_useswfversion(7);
$movie = new SWFMovie();
$movie->setDimension(600, 500);
$movie->setBackground(rand(0,0xFF),rand(0,0xFF),rand(0,0xFF));
$movie->setRate(31);
$movie->nextFrame();

// download AsWingLib-7.swf from code.google.com/p/aswing/ our build your own with mtasc
if(!$useLoadMovie){
// include compiled aswing classes
$compiled_aswing_classes= new SWFPrebuiltClip(fopen("./AsWingLib-7.swf", "rb"));
$movie->add($compiled_aswing_classes);
}else{
// load compiled aswing classes
$strAction = join("", file("preloader.as"));
$movie->add(new SWFAction($strAction));
}
$movie->nextFrame();

$strAction = join("", file("mingaswing.as"));
$movie->add(new SWFAction($strAction));
$movie->nextFrame();
// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>
//////////////////////////////////////////////////////
// mingaswing.as
trace('mingaswing.as');
stop();
// no import in AS1 but we can make shortcuts that work similar
var JPanel = _global.org.aswing.JPanel;
var JFrame = _global.org.aswing.JFrame;
var JWindow = _global.org.aswing.JWindow;
var JButton = _global.org.aswing.JButton;
var ASColor = _global.org.aswing.ASColor;
var JColorChooser = _global.org.aswing.JColorChooser;
var JPieChart = _global.org.aswing.JPieChart;
var JTextArea = _global.org.aswing.JTextArea;
var JScrollPane = _global.org.aswing.JScrollPane;
var Delegate = _global.org.aswing.util.Delegate;
// 
var canvasPanel = new JPanel();
canvasPanel.setBackground( new ASColor( 0xff4926, 100 ) );
//
var window = new JWindow();
window.setContentPane(canvasPanel);
window.setBackground( new ASColor( 0x5B7876, 100 ) );
window.setSize(600, 500);
window.show();
//
var dataSet = [123, 234, 345];
var colorSet = [0x468966, 0xFFB03B, 0x8E2800];
var pieTest = new JPieChart ("JPieChart", dataSet, colorSet);
pieTest.setBackground( new ASColor( 0xcffccc, 100 ) );
pieTest.setSize(200, 200);
canvasPanel.append(pieTest);
//
var myText = "<span class='basictext'>Three of the components in AS2 ASWing : JPieChart, JTextArea, JColorChooser and maybe all of ASWing is working. It can make available to Ming using loadMovie or SWFPrebuiltClip. The same method can work to bring other AS2 libraries into ming example <a href='http://www.mosessupposes.com/Fuse/'><u>Fuse Kit</u></a> + <a href='http://www.flashsandy.org'><u>Sandy 3D</u></a> + <a href='http://code.google.com/p/aswing/'><u>ASWing</u></a> + other AS2 libraries too...</span>";
var mycss=' .basictext { color: #8E2800; margin-left: 5px; margin-right: 5px; margin-top: 5px; margin-bottom: 5px; font-size: 14px; font-family: Verdana, _sans; font-weight: normal;  }';
myStyleSheet = new TextField.StyleSheet(); 
myStyleSheet.parseCSS(mycss); 

var textArea = new JTextArea( "txt", 8, 30 );
textArea.setWordWrap( true );
textArea.setHtml( true ); 
textArea.setText( myText ); 
textArea.setCSS( myStyleSheet ); 

var scrollpane = new JScrollPane(textArea); 
canvasPanel.append(scrollpane);
//
var chooserDialog = JColorChooser.createDialog (new JColorChooser (), "color", false, _traceColor );
chooserDialog.show();
chooserDialog.setX(200);
chooserDialog.setY(200);
function _traceColor(col){
trace('_changeColor'+col);
};
$strAction = join("", file("preloader.as"));
$movie->add(new SWFAction($strAction));
}
$movie->nextFrame();

$strAction = join("", file("mingaswing.as"));
$movie->add(new SWFAction($strAction));
$movie->nextFrame();
// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>
//////////////////////////////////////////////////////
//preloader.as
// very basic preloader
trace('loadMovie aswing');
stop();
_root.createEmptyMovieClip('aswing', 8888);
loadMovie("AsWingLib-7.swf",aswing);
var s=this.createEmptyMovieClip("stat",777);
var w=200; var h=10; s._x=50; s._y=50;
s.lineStyle(0,0xFFFFFF);
s.lineTo(w,0); s.lineTo(w,h);
s.lineTo(0,h); s.lineTo(0,0);
var b = s.createEmptyMovieClip("bar",777);
b.beginFill(0xCCCCCC);
b.lineTo(w,0); b.lineTo(w,h);
b.lineTo(0,h); b.lineTo(0,0);
b.endFill(); b._x+=0.5; b._y+=0.5;
s.onEnterFrame=function(){
var l = _root.aswing.getBytesLoaded();
var t = _root.aswing.getBytesTotal();
if (l>1000 && l>= t) {
this.onEnterFrame=null;
_root.gotoAndPlay(_root._currentframe + 1);
this.unloadMovie(); this.removeMovieClip();
}else{
var p = (l/t) * 200; this.bar._width=p;
} };

//////////////////////////////////////////////////////
// fin