perlpanel-applet-howto - عبر الإنترنت في السحابة

برنامج:

اسم

perlpanel-applet-howto - يشرح كيفية كتابة التطبيقات الصغيرة لـ PerlPanel

مثال

# أعلن عن مجموعتنا:
حزمة PerlPanel :: Applet :: HelloWorld ؛

# البناء:
فرعية جديدة {
نفسي $ = {} ؛
$ self -> {package} = shift ؛
بارك ($ self، $ self -> {package})؛
العودة $ النفس؛
}

# بناء القطعة:
تكوين فرعي {
بلدي $ الذاتي = التحول ؛
$ self -> {widget} = Gtk2 :: Button-> new ('Click Me!')؛
$ self-> widget-> signal_connect (
"تم النقر عليها" ،
الفرعية {
PerlPanel :: تنبيه (
'مرحبا بالعالم!'
);
}
);
$ self-> widget-> show_all ؛
}

# عودة القطعة ؛
القطعة الفرعية {
إرجاع $ _ [0] -> {القطعة} ؛
}

# إرجاع التوسيع (1 أو 0) للتعبئة:
توسيع الفرعي {
0 العودة؛
}

# قم بإرجاع التعبئة (1 أو 0) للتعبئة:
تعبئة فرعية {
0 العودة؛
}

# إرجاع "بدء" أو "نهاية":
نهاية فرعية {
عودة "بدء" ؛
}

get_default_config فرعي {
تجزئة $ الخاصة بي = {
الاسم => "القيمة" ،
"foo" => "شريط" ،
"قائمة" => [1 ، 2 ، 3 ، 4 ، 5] ،
};
إرجاع $ hashref؛
}

1;

مقدمة

من السهل جدًا كتابة تطبيقات صغيرة لـ PerlPanel. التطبيقات الصغيرة هي كائنات Perl بسيطة ، و
يُسمح بفعل أي شيء قد يفعله برنامج Gtk2-Perl العادي.

يجب أن يكون اسم حزمة التطبيق الصغير بالشكل

PerlPanel :: Applet :: AppletName

ويجب أن يكون له اسم الملف

اسم التطبيق الصغير.pm

من أجل العمل بشكل صحيح مع PerlPanel ، يجب أن يكون لديهم واجهة PerlPanel
يمكن أن يفهم.

عندما يقوم بتحميل وحدة نمطية ، سيقوم PerlPanel بإنشاء مثيل جديد من التطبيق الصغير. بعد ذلك
استدعاء طرق مختلفة للكائن لمعرفة ما يجب فعله به.

هذه الأساليب موضحة أدناه.

التطبيق الصغير أنواع

منذ الإصدار 0.7.0 ، دعم PerlPanel نوعين من التطبيقات الصغيرة: عزباء موضوع. غير متزوجة
التطبيقات الصغيرة هي تمامًا مثل التطبيقات الصغيرة المطورة للإصدارات الأقدم من PerlPanel - إذا كان هناك أكثر من واحد
كان مثيل التطبيق الصغير على اللوحة ، ثم ستستخدم كل هذه الحالات نفس المجموعة
من بيانات التكوين.

متعدد التطبيقات الصغيرة مختلفة. يمكن أن يظهر التطبيق الصغير عدة مرات على اللوحة ، و
يمكن أن يكون لكل مثيل إعدادات التكوين الخاصة به.

CREATING A MULTI التطبيق الصغير

أول ما عليك فعله هو إنشاء متغير حزمة يسمى $ MULTI:

الحزمة PerlPanel :: Applet :: FooBar؛
استخدم vars qw ($ MULTI) ؛

مولتي دولار = 1 ؛

يجب أن تكون قيمة $ MULTI قيمة حقيقية (1 هي الأبسط).

عندما يقوم PerlPanel بتحميل التطبيق الصغير ، فإنه يتحقق من قيمة هذا المتغير وإذا كان صحيحًا ،
ثم تزود ID حجة لمنشئ الصغير. انظر أدناه للحصول على التفاصيل.

أخيرًا ، عندما تقوم بالاستعلام عن تجزئة التكوين ، يجب عليك توفير المعرف
المذكورة أعلاه في مكالمتك لـ "PerlPanel :: get_config ()". انظر أدناه لمزيد من التفاصيل.

مطلوبة طرق

$ صغير-> جديد

المنشئ. تختلف الوسائط المقدمة إلى المُنشئ ، اعتمادًا على ما إذا كان ملف
تم تعريف التطبيق الصغير على أنه أ موضوع صغير أم لا.

إذا لم يتم تعيين المتغير $ MULTI ، فسيبدو_ كالتالي:

_ = (الحزمة بالدولار) ؛

حيث $ package هو عدد قياسي يحتوي على اسم حزمة التطبيق الصغير ، على سبيل المثال
"PerlPanel :: Applet: FooBar". إذا كان المتغير $ MULTI صحيحًا ، فسيبدو_ كالتالي:

_ = ($ package، $ id)؛

حيث $ id هو عدد قياسي يحتوي على معرف المثيل. يجب عليك تخزين هذا المعرف واستخدامه
عندما تطلب بيانات التكوين.

applet-> تكوين

هذه المرحلة مخصصة لتحميل بيانات التكوين وإنشاء عناصر واجهة المستخدم وما إلى ذلك.

التطبيق الصغير-> القطعة

يجب أن تعيد هذه الطريقة أداة Gtk التي سيتم عرضها على اللوحة. يمكن أن يكون
أي نوع من أدوات Gtk بصرف النظر عن النافذة.

الصغير $> توسيع
applet-> ملء

تستخدم اللوحة مربع تعبئة أفقيًا لاحتواء عناصر واجهة المستخدم الصغيرة. هاتان الطريقتان
تُرجع قيم الأعداد الصحيحة للوسيطتين "expand" و "fill" إلى "pack_start ()".

التطبيق الصغير $-> get_default_config

تقوم هذه الطريقة بإرجاع مرجع إلى تجزئة تحتوي على بيانات التكوين الافتراضية. هذا
يتم استيراد البيانات إلى ملف تكوين المستخدم ويتم حفظها على القرص ويمكن بعد ذلك تعديلها
من قبل المستخدم حسب الحاجة. يتم استدعاؤه مرة واحدة فقط - في المرة الأولى التي يتم فيها تحميل التطبيق الصغير ، بعد ذلك
التي ستستخدم اللوحة البيانات من ملف التكوين الخاص بالمستخدم.

إذا عرضت هذه الطرق "undef" ، فستفترض اللوحة عدم وجود بيانات تهيئة.

ملحوظة: وظيفة "end ()" متوقفة الآن ولا تحتاج لاستخدامها في تطبيقات جديدة.

تاريخي نوت

تصف الأقسام التالية المتغيرات والوظائف التي توفرها PerlPanel
اجعل الكتابة الصغيرة أسهل. قبل الإصدار 0.4.0 ، تم الوصول إلى الوظائف أدناه
باستخدام النموذج

PerlPanel $ :: OBJECT_REF-> function_name

اعتبارًا من الإصدار 0.4.0 ، يكون بناء الجملة هو

PerlPanel :: function_name

تمت إزالة التوافق مع الصيغة القديمة في الإصدار 0.7.0.

مفيدة المتغيرات

يمكنك الوصول إلى المتغيرات التالية في التعليمات البرمجية الخاصة بك والتي تمنحك الوصول إلى الداخلي
أحشاء اللوحة:

$ PerlPanel :: OBJECT_REF

هذا إشارة إلى كائن اللوحة الرئيسية. يتوفر عدد من الطرق الخاصة بك
استخدام ، تم شرحها أدناه.

تضمين التغريدة

يحتوي هذا على مسارات الدليل التي ستستخدمها PerlPanel للبحث عن تطبيقات صغيرة. سوف في
تحتوي على الأقل على "$ PREFIX / lib / perlpanel / PerlPanel / Applet" و "$ HOME / .perlpanel / applet".

مفيدة وظائف

PerlPanel :: get_config ($ appletname، [$ id])

تقوم هذه الوظيفة بإرجاع مرجع يحتوي على بيانات التكوين الخاصة بالبرنامج الصغير. ال
ستكون بنية البيانات هي التي تحددها وظيفة "get_default_config".

إذا قمت بتوفير الوسيطة الثانية $ id ، فستقوم الدالة بإرجاع القيمة المناسبة
تكوين البيانات لمثيل التطبيق الصغير المحدد بواسطة $ id.

PerlPanel :: نصائح ()

يؤدي هذا إلى إرجاع كائن "Gtk2 :: Tooltips" جاهز للاستخدام. في الإصدارات السابقة لـ 0.4.0 ، كان هذا
الوصول إليها باستخدام $ PerlPanel :: TOOLTIPS_REF.

PerlPanel :: icon ()

يؤدي هذا إلى إرجاع كائن GdkPixbuf يحتوي على رمز PerlPanel. يجب عليك استخدام هذا pixbuf
لتعيين رمز أي نوافذ تقوم بإنشائها ، على سبيل المثال:

الحوار $-> set_icon (PerlPanel :: icon) ؛

لا تحتاج إلى تغيير حجم pixbuf ، يتم ذلك عندما يكون التطبيق (مدير النوافذ ،
أو قائمة المهام) تتطلب ذلك.

PerlPanel :: icon_size ()

حجم الرموز على اللوحة بالبكسل. يجب عليك استخدام هذا لتوسيع نطاق الأشياء بحيث
كل شيء يناسب بشكل جيد معا.

PerlPanel :: screen_width

PerlPanel :: screen_height

تقوم هاتان الطريقتان بإرجاع العرض والارتفاع (بالبكسل) للشاشة الافتراضية.
يحاول PerlPanel حل هذا الأمر إذا كان Gtk + للنظام حديثًا بدرجة كافية (أي بعد
2.2.0) ، وإلا فسيأخذها من إخراج com.xdpyinfo(1) برنامج.

PerlPanel :: position

يؤدي هذا إلى إرجاع الموضع المادي للوحة على الشاشة ، إما "أعلى" أو "أسفل". هذا هو
مفيد عندما تريد إظهار القوائم المنبثقة من تطبيقاتك الصغيرة (على سبيل المثال ، راجع ملف
BBMenu الصغير) ، وتحتاج إلى معرفة موضع اللوحة.

PerlPanel :: save_config

هذا يخبر اللوحة بحفظ بيانات التكوين الخاصة بها في ملف المورد.

PerlPanel :: shutdown

هذا يخبر اللوحة بحفظ ملف التكوين الخاص بها على القرص والخروج.

PerlPanel :: request_string ($ message، $ callback)

هذه نسخة من طريقة request_string من مكتبات Gnome ، لذا فإن PerlPanel ليست كذلك
تعتمد على تثبيت جنوم. يطالب المستخدم بإدخال سلسلة باستخدام $ message و
ينفذ استدعاء $ عندما يضغط المستخدم على "موافق" أو يضغط على مفتاح Enter. رد الاتصال $ _ [0]
سيحتوي على السلسلة المزودة.

PerlPanel :: request_password ($ message، $ callback)

على النحو الوارد أعلاه ، باستثناء عنصر واجهة المستخدم لن يعرض الأحرف التي تم إدخالها.

PerlPanel :: question ($ message، $ ok_callback،
Cancel_callback دولار)

يطالب هذا المستخدم بالإجابة على سؤال بنعم / لا. يتم تنفيذ $ ok_callback عندما يتم تنفيذ ملف
يضرب المستخدم "موافق". العمل على ما يحدث عندما ينقر المستخدم على "إلغاء" يتم تركه كملف
تمرين للقارئ.

PerlPanel :: error ($ message، $ ok_callback)

يؤدي هذا إلى ظهور مربع حوار به رمز خطأ ورسالة معينة. تم تنفيذ $ ok_callback
إذا ضغط المستخدم على الزر "موافق".

PerlPanel :: Warning ($ message، $ ok_callback)

يؤدي هذا إلى ظهور مربع حوار به رمز تحذير (أقل خطورة من الخطأ) والملف
رسالة. يتم تنفيذ $ ok_callback إذا ضغط المستخدم على الزر "موافق".

PerlPanel :: notify ($ message، $ ok_callback)

يؤدي هذا إلى ظهور مربع حوار به رمز معلومات ورسالة معينة. $ ok_callback هو
يتم تنفيذه إذا ضغط المستخدم على الزر "موافق".

PerlPanel :: get_widget_position (القطعة $)

يؤدي هذا إلى إرجاع رقمين يقابلان الموضع على الشاشة في الزاوية العلوية اليسرى من
القطعة $. هذا يعني أنه يجب أن يكون $ widget مرئيًا على الشاشة.

PerlPanel :: get_mouse_pointer

يؤدي هذا إلى إرجاع رقمين مطابقين لموضع مؤشر الماوس على الشاشة.

PerlPanel :: exec_wait ($ cmd، $ callback)

تتيح لك هذه الوظيفة تنفيذ الأمر والانتظار حتى ينتهي بدونه
مقاطعة حلقة Gtk الرئيسية ، وبدون إحداث حمل غير ضروري لوحدة المعالجة المركزية باستخدام ملف مخصص
"حائط اللوب. يتم فتح الأمر الموجود في $ cmd كملف ملف - لذا يتم استدعاء
لا ينصح بالتطبيقات التي تنفصل عن STDOUT. "exec_wait" ينشئ Glib
معالج وينتظر "eof" من المقبض. ثم يقوم بتنفيذ الوظيفة في رد الاتصال بالدولار.

توجد هذه الوظيفة بشكل أساسي لأن التطبيق الصغير "IconBar" يحتاج إلى طريقة لانتظار ملف
محرر إدخال سطح المكتب للإغلاق.

PerlPanel :: load_glade ($ name) ؛

يؤدي هذا إلى إرجاع كائن "Gtk2 :: GladeXML". يقوم PerlPanel بمسح دليلين بحثًا عن ملف
باسم "$ name.glade":

$ HOME / .local / share / perlpanel / glade
$ PREFIX / share / perlpanel / glade

أو تعيد undef إذا لم تجد أي شيء. هذه أداة توفير لوحة مفاتيح بلاستيكية
فقط ، ولا تفعل أي شيء آخر.

PerlPanel :: has_application_menu

ترجع قيمة حقيقية إذا كانت قائمة مشغل التطبيق (BBMenu على سبيل المثال) موجودة في
قائمة التطبيق الصغير للمستخدم.

PerlPanel :: has_action_menu

تُرجع قيمة حقيقية إذا كان برنامج ActionMenu الصغير موجودًا في قائمة تطبيقات المستخدم الصغيرة.

PerlPanel :: has_pager

ترجع قيمة حقيقية إذا كان تطبيق Pager الصغير موجودًا في قائمة التطبيقات الصغيرة للمستخدم.

PerlPanel :: lookup_icon ($ icon) ؛

هذه وظيفة ملائمة تغطي Gtk2 :: IconTheme. الوسيطة $ icon هي الاسم
من برنامج أو ما شابه. ستعيد هذه الوظيفة اسم ملف أو "undef" إذا لم تنجح.

PerlPanel :: remove_applet ($ appletname، $ id) ؛

هذه الطريقة مفيدة فقط لتطبيقات متعددة. يخبر PerlPanel بإزالة مثيل $ id
من التطبيق الصغير $ appletname من اللوحة. هذا مفيد عندما تريد تقديم ملف
خيار "إزالة" في قائمة السياق.

PerlPanel :: launch (الأمر $ ، إخطار $) ؛

يوفر هذا الأمر غلافًا لوظيفة "system ()" ، مع دعم إضافي لـ
مواصفات إخطار بدء التشغيل. عندما يتم تعريف الإعلام $ ، يكون المستخدم
بالنظر إلى التعليقات الواضحة التي تفيد بأن التطبيق قيد التشغيل. بمجرد أن يكون التطبيق
بدأت (وعرفت نفسها للجنة) ، أو انقضت فترة زمنية معينة ، و
تم إلغاء التعليقات.

تدويل الدعم

يدعم PerlPanel اللغات الأجنبية ، باستخدام وحدة "Locale :: gettext". PerlPanel
يوفر وظيفة خاصة لاسترداد ترجمة سلسلة:

$ مترجم = _ ($ original،٪ params)؛

الأصل $ الأصل هو السلسلة الأصلية التي يُفترض أنها باللغة الإنجليزية. أي تكرارات لمفاتيح
يتم استبدال٪ params بقيمها ، على سبيل المثال:

$ مترجم = _ (
"هناك {number} {type} {object}" ،
رقم => 6 ،
اكتب => "أحمر" ،
الكائن => "التفاح"
);

يتم تشجيع مؤلفي التطبيقات الصغيرة على لف جميع السلاسل التي يستخدمونها في تطبيقاتهم الصغيرة في "_ ()".

جاري الكتابة القائمة أبلتس

يوفر PerlPanel فئة قائمة أساسية سهلة الاستخدام لإنشاء تطبيقات قائمة. شاور
PerlPanel :: MenuBase لمزيد من المعلومات.

الإدارة المهلة

يتطلب استخدام مهلات Glib (كما هو موضح في Glib :: MainLoop) دراسة متأنية
لـ PerlPanel. يمكن إنشاء عناصر التطبيقات الصغيرة وعناصر واجهة المستخدم وتدميرها عدة مرات أثناء ذلك
عمر عملية PerlPanel. إذا كانت هذه التطبيقات الصغيرة تستفيد من المهلة ، وذاك
لا تتم إدارة المهلة بشكل صحيح ، ثم بمرور الوقت قد يتم استهلاك قدر كبير من وقت وحدة المعالجة المركزية
من خلال المهلات التي تم إنشاؤها بواسطة تطبيقات صغيرة لم تعد قيد الاستخدام.

يحتوي PerlPanel على نظام لتتبع المهلات التي تم إنشاؤها بواسطة التطبيقات الصغيرة ، وإزالتها عندما يكون ملف
يتم إعادة تحميل اللوحة ، أو عند إزالة تطبيق صغير معين من اللوحة. بدلا من استخدام ملفات
"Glib :: Timeout-> add ($ msec، $ callback)" لإعداد التطبيق الصغير الخاص بك ، استخدم الوظيفة التالية:

$ id = PerlPanel :: add_timeout ($ مللي ثانية ، رد الاتصال بالدولار) ؛

تتطابق الوسائط وقيم الإرجاع لهذه الوظيفة مع تلك الخاصة بـ
"Glib :: Timeout-> add ()". عند إعادة تحميل اللوحة ، تتم إزالة جميع التطبيقات الصغيرة وجديدة
منها ، لذلك ستقوم اللوحة تلقائيًا بتنظيف هذه المهلات.

عندما تريد إلغاء مهلة ، استخدم هذه الوظيفة:

PerlPanel :: remove_timeout ($ id) ؛

عند تنفيذ الكود الموجود في رد الاتصال بالدولار ، سيحصل على ملف مرجع إلى عددي يحتوي على
المعرف كأول عضو في_. لذلك إذا كنت تريد إلغاء المهلة من داخل ملف
رد الاتصال ، يمكنك الاتصال الكتابة مثل هذا:

PerlPanel :: remove_timeout ($ {shift ()}) ؛

PACKAGING بتحديث التطبيق الصغير

لإنشاء حزمة صغيرة يمكن للمستخدم تثبيتها دون الوصول إلى الجذر ، تحتاج إلى ذلك
إنشاء أرشيف tar بتنسيق gzipped ، باسم "AppletName- $ Version.tar.gz" ، يحتوي على
التخطيط التالي:

/
/applet.info
/ التطبيقات الصغيرة
/applets/AppletName.pm
/يشارك
/ حصة / أيقونات
/ حصة / أيقونات / hicolor
/ حصة / أيقونات / hicolor / 48x48
/ حصة / أيقونات / hicolor / 48x48 / تطبيقات
/share/icons/hicolor/48x48/apps/perlpanel-applet-appletname.png
/share/icons/hicolor/48x48/apps/perlpanel-applet-appletname-action-special-icon.png
/ حصة / perlpanel
/ حصة / بيرلبانيل / جليد
/share/perlpanel/glade/appletname.glade

يجب أن يحتوي ملف "applet.info" على سطر واحد من النموذج:

AppletName: وصف موجز لما يفعله التطبيق الصغير الخاص بك: الفئة

يتم إلحاق هذا السطر ببرنامج applet.registry الخاص بالمستخدم ، حتى يروا إدخالًا وصفيًا بتنسيق
مربع الحوار "إضافة التطبيق الصغير". يجب أن يتطابق الحقل الأول مع جزء "AppletName" من كرة القطران
الاسم.

يجب أن يحتوي جزء الإصدار $ من اسم الملف على أرقام ونقاط فقط. نسخة صالحة
تتضمن السلاسل: 1.00 (نمط Perl) ، 1.0.0 (نمط Kernel) ، وهكذا.

يجب أن ينتقل ملف .pm الذي يحتوي على التطبيق الصغير الخاص بك إلى "تطبيقات /". سيبحث المثبت
لملف يسمى "AppletName.pm" ، حيث يتم أخذ "AppletName" من جزء "AppletName"
من اسم tarball. سيقوم PerlPanel بوضع هذا الملف في "$ HOME / .perlpanel / applets".

يتم تثبيت الملفات الموجودة داخل الدليل الفرعي "share /" في "$ HOME / .local / share". هذا
هو دليل محدد بواسطة مواصفات الدليل الأساسي لـ Freedesktop.org باعتباره المكان الموجود في
ملفات البيانات الخاصة بالمستخدم التي يجب تخزينها. يمكنك استخدام هذا الدليل الفرعي للتثبيت
ملفات Glade (التي يمكن الوصول إليها باستخدام "load_glade ()" - انظر أعلاه) ، رمز التطبيق الصغير الخاص بك ،
وأي أيقونات داعمة قد تحتاجها. يعني استخدام هذا المسار أن المكالمات إلى "lookup_icon"
ستعمل كما لو كانت الرموز في "$ PREFIX / share / icons" ، ويمكن أيضًا أن تكون كذلك
تحت عنوان.

على سبيل المثال ، إذا كان التطبيق الصغير الخاص بك يتحكم في مشغل وسائط ، وتريد تضمين رموز لـ
الأزرار السابقة ، والأمامية ، والتشغيلية ، والإيقاف المؤقت ، يمكنك تضمين هذه الرموز مثل هذا:

/مشاركة/icons/hicolor/48x48/apps/perlpanel-applet-mediaplayer-previous.png
/مشاركة/icons/hicolor/48x48/apps/perlpanel-applet-mediaplayer-next.png
/مشاركة/icons/hicolor/48x48/apps/perlpanel-applet-mediaplayer-play.png
/مشاركة/icons/hicolor/48x48/apps/perlpanel-applet-mediaplayer-pause.png
/share/icons/hicolor/48x48/apps/perlpanel-applet-mediaplayer-stop.png

وبعد ذلك في رمز التطبيق الصغير الخاص بك ، يمكنك استرداد هذه الرموز باستخدام هذا:

my $ pbf = PerlPanel :: lookup_icon ('mediaplayer-previous'، PerlPanel :: icon_size)؛

بالإضافة إلى ذلك الاعتبارات

يرجى محاولة الحفاظ على التبعيات الخارجية من التطبيق الصغير الخاص بك إلى الحد الأدنى. تذكر ذلك
قد يتم تثبيت التطبيق الصغير الخاص بك على أنظمة لها مجموعة مختلفة جدًا من التطبيقات
مثبتة عليها. و ابدا أبدا مسارات التعليمات البرمجية الثابتة للملفات التي تعتمد عليها.

على سبيل المثال ، هذا سيء جدًا:

ملفي القابل للتنفيذ $ = '/ usr / bin / قابل للتنفيذ' ؛

إذا لم يكن لدى المستخدم البرنامج "القابل للتنفيذ" ، فيمكنه تثبيته من المصدر ، في
في أي حالة سينتهي الأمر على الأرجح في "/ البيرة / المحلية / بن"، وسوف ينكسر الصغير الخاص بك من أجل لا
السبب.

الحل الأفضل هو القيام بذلك:

chomp (ملفي القابل للتنفيذ $ = `الذي قابل للتنفيذ 2> / dev / null`) ؛
إذا (! -x $ قابل للتنفيذ) {
PerlPanel :: warning (_ ('Cannot find the {program} program!'، program => 'قابل للتنفيذ'))؛
}

سيسمح هذا بأن يكون "الملف القابل للتنفيذ" في أي مكان في مسار المستخدم ، وينبه المستخدم إذا
كان هناك مشكلة.

هناك مجال آخر يمكن أن يتسبب فيه ذلك في حدوث مشكلات وهو استخدام الملفات الخارجية المشتركة ، مثل
الرسومات والرموز. حيثما كان ذلك ممكنًا ، قم بحزم الملفات المشتركة في Tarball كما هو موضح في
"تعبئة التطبيق الخاص بك".

استخدم perlpanel-applet-howto عبر الإنترنت باستخدام خدمات onworks.net