TK :: مجردة قماش مع مركز مجردة، وتكبير، وطرق تدوير
التحميل الان

TK :: مجردة الترتيب والملخص

TK :: مجردة العلامات

الوحدة النمطية بيرل بيرل معتقدات اللوحة القماشية TK قماش. مجردة قماش

TK :: مجردة وصف

قماش مع مركز مجردة والتكبير والأساليب التدوير TK :: Abstractcanvas هو فئة قماش TK مع مركز مجردة، والتكبير، وأساليب تدوير .synopsis #! / USR / BIN / PERL -W استخدم صارما استخدام المعارف التقليدية استخدام TK :: مجردة بلدي $ mwin = tk :: Mainwindow-> جديد ()؛ بلدي $ acnv = $ mwin-> التزلج chactcanvas () -> حزمة ('-expand' => 1، '-fill' => 'كلاهما')؛ # $ acnv-> inverty (1)؛ # uncomment for مقلوب y-axis $ acnv-> controlnav (1)؛ # سوبر التحكم في الملاحة $ ACNV-> المستطيل (1)؛ # $ acnv-> ovaletopoly (1)؛ بلدي $ chect = $ acnv-> croaterecleangle (7، 8، 24، 23، '-ملء' => 'أحمر')؛ بلدي $ البيضاوي = $ acnv-> createoval (23، 24، 32، 27، '-ملء' => "الأخضر")؛ خطي $ = $ ACNV-> Createline (0، 1، 31، 32، '-ملء' => "Blue"، "-Arrow" => "الأخير")؛ بلدي Labl Labl = $ mwin-> التسمية ('- النص' => 'Hello Osgractcanvas! =)')؛ بلدي الرياح = $ acnv-> createwindow (15، 16، "-Window" => $ labl)؛ $ acnv-> canvasbind ('' => sub {$ ACNV-> Zoom (1.04)؛})؛ $ acnv-> canvasbind ('' => sub {$ acnv-> تدوير ($ rect، 5)؛ $ acnv-> تدوير ($ الرياح، 5)؛ # يجب أن تفعل شيئا لأنه لا يمكن ACNV-> تدوير ($ البيضاوي، -5)؛ # تدوير حول المركز $ ACNV-> تدوير ($ خط، -5)؛})؛ $ acnv-> canvasbind ('' => sub {$ acnv-> impoil (0.97)؛})؛ $ acnv-> viewall ()؛ Mainloop ()؛ يوفر التزلج Kanvas بديلا كائن TK :: قماش قماش ملخصات إحداثيات الكائنات المرسومة على قماش. يسمح ذلك بالتكبير أو التدوير بأكمله. قم بالتناوبين بتعديل الإحداثيات التي تم وضع الكائن الأصلي عليها ولكن تكبير القماش بأكمله لا يتم استخلاصها من الوحدات الممتازة TK :: WorldCanvas من قبل Joseph Skrovan (الذي كان يعتمد على إصدار Rudy Albachten) و TK :: Rotcanvas من قبل علاء القسية. متطلبات: perl.

TK :: مجردة برامج ذات صلة