VariablePanel.st
branchdelegated_gc_hg
changeset 5128 787b617a99e5
parent 5051 31e1457c036d
child 5261 ef0c874b4053
equal deleted inserted replaced
5085:52e9f87d45c8 5128:787b617a99e5
   766 ! !
   766 ! !
   767 
   767 
   768 !VariablePanel class methodsFor:'image specs'!
   768 !VariablePanel class methodsFor:'image specs'!
   769 
   769 
   770 snapIconDown
   770 snapIconDown
       
   771     <resource: #image>
   771     "This resource specification was automatically generated
   772     "This resource specification was automatically generated
   772      by the ImageEditor of ST/X."
   773      by the ImageEditor of ST/X."
   773 
       
   774     "Do not manually edit this!! If it is corrupted,
   774     "Do not manually edit this!! If it is corrupted,
   775      the ImageEditor may not be able to read the specification."
   775      the ImageEditor may not be able to read the specification."
   776 
       
   777     "
   776     "
   778      self snapIconDown inspect
   777      self snapIconDown inspect
   779      ImageEditor openOnClass:self andSelector:#snapIconDown
   778      ImageEditor openOnClass:self andSelector:#snapIconDown"
   780     "
   779     
   781 
   780     ^ Icon constantNamed:#'VariablePanel class snapIconDown'
       
   781         ifAbsentPut:[
       
   782             (Depth2Image new)
       
   783                 width:62;
       
   784                 height:5;
       
   785                 photometric:(#palette);
       
   786                 bitsPerSample:(#( 2 ));
       
   787                 samplesPerPixel:(1);
       
   788                 bits:(ByteArray 
       
   789                             fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@B(J *F(Z!!*F(Z!!*@@@@@@@!!BDHQ!!FDXQ!!FDXP@@H@@@EPUATEPUATEPUAT@@@@@@@@@@@@@@@@@@@@@@@@@b');
       
   790                 colorMapFromArray:#[ 0 0 0 68 68 68 255 255 255 ];
       
   791                 mask:((ImageMask new)
       
   792                             width:62;
       
   793                             height:5;
       
   794                             bits:(ByteArray 
       
   795                                         fromPackedString:'@@@@@@@@@@A?LX1#FLX3>C8)R%JT)R''0GA#FLX1#FN@H@@@@@@@@P@@a');
       
   796                             yourself);
       
   797                 yourself
       
   798         ]
       
   799 !
       
   800 
       
   801 snapIconLeft
   782     <resource: #image>
   802     <resource: #image>
   783 
       
   784     ^Icon
       
   785         constantNamed:#'VariablePanel class snapIconDown'
       
   786         ifAbsentPut:[(Depth2Image new) width: 62; height: 5; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@B(J *F(Z!!*F(Z!!*@@@@@@@!!BDHQ!!FDXQ!!FDXP@@H@@@EPUATEPUATEPUAT@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 68 68 68 255 255 255]; mask:((Depth1Image new) width: 62; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@A?LX1#FLX3>C8)R%JT)R''0GA#FLX1#FN@H@@@@@@@@P@@a') ; yourself); yourself]
       
   787 !
       
   788 
       
   789 snapIconLeft
       
   790     "This resource specification was automatically generated
   803     "This resource specification was automatically generated
   791      by the ImageEditor of ST/X."
   804      by the ImageEditor of ST/X."
   792 
       
   793     "Do not manually edit this!! If it is corrupted,
   805     "Do not manually edit this!! If it is corrupted,
   794      the ImageEditor may not be able to read the specification."
   806      the ImageEditor may not be able to read the specification."
   795 
       
   796     "
   807     "
   797      self snapIconLeft inspect
   808      self snapIconLeft inspect
   798      ImageEditor openOnClass:self andSelector:#snapIconLeft
   809      ImageEditor openOnClass:self andSelector:#snapIconLeft"
   799     "
   810     
   800 
   811     ^ Icon constantNamed:#'VariablePanel class snapIconLeft'
       
   812         ifAbsentPut:[
       
   813             (Depth2Image new)
       
   814                 width:5;
       
   815                 height:62;
       
   816                 photometric:(#palette);
       
   817                 bitsPerSample:(#( 2 ));
       
   818                 samplesPerPixel:(1);
       
   819                 bits:(ByteArray 
       
   820                             fromPackedString:'
       
   821 @C @B@@@@@@@@@@@@@@@@@@P@C@)@BD@IP@@@@@BJP@!!@BT@@@@@@B$HHP %@@@@AP@)@BD@IP@@D@T0JP@!!@BT@@@@ED2$@HP@%@@@@AP@)ARDHIP@@@@T@
       
   822 JP@!!@BT@@A@ELB @HP@E@@@@@C\@@@@@@@@@@@@@@@T@B@@a');
       
   823                 colorMapFromArray:#[ 0 0 0 68 68 68 255 255 255 ];
       
   824                 mask:((ImageMask new)
       
   825                             width:5;
       
   826                             height:62;
       
   827                             bits:(ByteArray 
       
   828                                         fromPackedString:'@A@0\OA0LA@D@6UPL@@@XE@0@@A TC@@@FAPL@@@XE@0@@A UCLD@FAPL@@@XE@0@@A TC@@DCA0=''T0D@@b');
       
   829                             yourself);
       
   830                 yourself
       
   831         ]
       
   832 !
       
   833 
       
   834 snapIconLeftRight
   801     <resource: #image>
   835     <resource: #image>
   802 
       
   803     ^Icon
       
   804         constantNamed:#'VariablePanel class snapIconLeft'
       
   805         ifAbsentPut:[(Depth2Image new) width: 5; height: 62; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
       
   806 @C @B@@@@@@@@@@@@@@@@@@P@C@)@BD@IP@@@@@BJP@!!@BT@@@@@@B$HHP %@@@@AP@)@BD@IP@@D@T0JP@!!@BT@@@@ED2$@HP@%@@@@AP@)ARDHIP@@@@T@
       
   807 JP@!!@BT@@A@ELB @HP@E@@@@@C\@@@@@@@@@@@@@@@T@B@@a') ; colorMapFromArray:#[0 0 0 68 68 68 255 255 255]; mask:((Depth1Image new) width: 5; height: 62; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@0\OA0LA@D@6UPL@@@XE@0@@A TC@@@FAPL@@@XE@0@@A UCLD@FAPL@@@XE@0@@A TC@@DCA0=''T0D@@b') ; yourself); yourself]
       
   808 !
       
   809 
       
   810 snapIconLeftRight
       
   811     "This resource specification was automatically generated
   836     "This resource specification was automatically generated
   812      by the ImageEditor of ST/X."
   837      by the ImageEditor of ST/X."
   813 
       
   814     "Do not manually edit this!! If it is corrupted,
   838     "Do not manually edit this!! If it is corrupted,
   815      the ImageEditor may not be able to read the specification."
   839      the ImageEditor may not be able to read the specification."
   816 
       
   817     "
   840     "
   818      self snapIconLeftRight inspect
   841      self snapIconLeftRight inspect
   819      ImageEditor openOnClass:self andSelector:#snapIconLeftRight
   842      ImageEditor openOnClass:self andSelector:#snapIconLeftRight"
   820     "
   843     
   821 
   844     ^ Icon constantNamed:#'VariablePanel class snapIconLeftRight'
       
   845         ifAbsentPut:[
       
   846             (Depth2Image new)
       
   847                 width:5;
       
   848                 height:62;
       
   849                 photometric:(#palette);
       
   850                 bitsPerSample:(#( 2 ));
       
   851                 samplesPerPixel:(1);
       
   852                 bits:(ByteArray 
       
   853                             fromPackedString:'
       
   854 @@@@@@@K@AH@@@@@@AX@L@@@@@@(@BD@AQD@B@@FJ#@!!@AT@@@@@@J*@@@@@DP@H@AD*LBD@EP@@@@@@J"\!!B1T@@@@@E"(0HP@U@@@@@@B*$P@H@@X@L@@@
       
   855 J @!!@AT@@@@@@B(RHP UDP@0@@@@@@@@@@@@I0@K@@@@@@@a');
       
   856                 colorMapFromArray:#[ 0 0 0 68 68 68 255 255 255 ];
       
   857                 mask:((ImageMask new)
       
   858                             width:5;
       
   859                             height:62;
       
   860                             bits:(ByteArray 
       
   861                                         fromPackedString:' LC <NK@ @@A@&QPLP@@XE@0@@C<A? A@VAPL@@@XE@0@@A TCL@@O @>@@BXE@0@PY$TCD@@A@0\OA0LAXb');
       
   862                             yourself);
       
   863                 yourself
       
   864         ]
       
   865 !
       
   866 
       
   867 snapIconRight
   822     <resource: #image>
   868     <resource: #image>
   823 
       
   824     ^Icon
       
   825         constantNamed:#'VariablePanel class snapIconLeftRight'
       
   826         ifAbsentPut:[(Depth2Image new) width: 5; height: 62; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
       
   827 @@@@@@@K@AH@@@@@@AX@L@@@@@@(@BD@AQD@B@@FJ#@!!@AT@@@@@@J*@@@@@DP@H@AD*LBD@EP@@@@@@J"\!!B1T@@@@@E"(0HP@U@@@@@@B*$P@H@@X@L@@@
       
   828 J @!!@AT@@@@@@B(RHP UDP@0@@@@@@@@@@@@I0@K@@@@@@@a') ; colorMapFromArray:#[0 0 0 68 68 68 255 255 255]; mask:((Depth1Image new) width: 5; height: 62; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' LC <NK@ @@A@&QPLP@@XE@0@@C<A? A@VAPL@@@XE@0@@A TCL@@O @>@@BXE@0@PY$TCD@@A@0\OA0LAXb') ; yourself); yourself]
       
   829 !
       
   830 
       
   831 snapIconRight
       
   832     "This resource specification was automatically generated
   869     "This resource specification was automatically generated
   833      by the ImageEditor of ST/X."
   870      by the ImageEditor of ST/X."
   834 
       
   835     "Do not manually edit this!! If it is corrupted,
   871     "Do not manually edit this!! If it is corrupted,
   836      the ImageEditor may not be able to read the specification."
   872      the ImageEditor may not be able to read the specification."
   837 
       
   838     "
   873     "
   839      self snapIconRight inspect
   874      self snapIconRight inspect
   840      ImageEditor openOnClass:self andSelector:#snapIconRight
   875      ImageEditor openOnClass:self andSelector:#snapIconRight"
   841     "
   876     
   842 
   877     ^ Icon constantNamed:#'VariablePanel class snapIconRight'
       
   878         ifAbsentPut:[
       
   879             (Depth2Image new)
       
   880                 width:5;
       
   881                 height:62;
       
   882                 photometric:(#palette);
       
   883                 bitsPerSample:(#( 2 ));
       
   884                 samplesPerPixel:(1);
       
   885                 bits:(ByteArray 
       
   886                             fromPackedString:'
       
   887 @@L@@@@@@@@@@@@@@AT@B@@@J@@!!@@T@E@@@@B(QHS@U@AP@@@@*@BD@EP@T@@@@J L!!@AT@E@@@DB(0HP@U@AP@@@@*J"D@EP@T@@@@J @!!B!!TH@@@@@B(@
       
   888 HP@U@@@@@A@*LBD@EP@@@@@@@@X@@@@@@@@@@@@@@@ @B@@a');
       
   889                 colorMapFromArray:#[ 0 0 0 68 68 68 255 255 255 ];
       
   890                 mask:((ImageMask new)
       
   891                             width:5;
       
   892                             height:62;
       
   893                             bits:(ByteArray 
       
   894                                         fromPackedString:'@4A \G%2X4@AXE@0@@A TC@E@6AQL@@@XE@0@@A TC@@@6APL@@@XEL0@@A UC\@@VAPL@@@PFA0^''M PP@b');
       
   895                             yourself);
       
   896                 yourself
       
   897         ]
       
   898 !
       
   899 
       
   900 snapIconUp
   843     <resource: #image>
   901     <resource: #image>
   844 
       
   845     ^Icon
       
   846         constantNamed:#'VariablePanel class snapIconRight'
       
   847         ifAbsentPut:[(Depth2Image new) width: 5; height: 62; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
       
   848 @@L@@@@@@@@@@@@@@AT@B@@@J@@!!@@T@E@@@@B(QHS@U@AP@@@@*@BD@EP@T@@@@J L!!@AT@E@@@DB(0HP@U@AP@@@@*J"D@EP@T@@@@J @!!B!!TH@@@@@B(@
       
   849 HP@U@@@@@A@*LBD@EP@@@@@@@@X@@@@@@@@@@@@@@@ @B@@a') ; colorMapFromArray:#[0 0 0 68 68 68 255 255 255]; mask:((Depth1Image new) width: 5; height: 62; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@4A \G%2X4@AXE@0@@A TC@E@6AQL@@@XE@0@@A TC@@@6APL@@@XEL0@@A UC\@@VAPL@@@PFA0^''M PP@b') ; yourself); yourself]
       
   850 !
       
   851 
       
   852 snapIconUp
       
   853     "This resource specification was automatically generated
   902     "This resource specification was automatically generated
   854      by the ImageEditor of ST/X."
   903      by the ImageEditor of ST/X."
   855 
       
   856     "Do not manually edit this!! If it is corrupted,
   904     "Do not manually edit this!! If it is corrupted,
   857      the ImageEditor may not be able to read the specification."
   905      the ImageEditor may not be able to read the specification."
   858 
       
   859     "
   906     "
   860      self snapIconUp inspect
   907      self snapIconUp inspect
   861      ImageEditor openOnClass:self andSelector:#snapIconUp
   908      ImageEditor openOnClass:self andSelector:#snapIconUp"
   862     "
   909     
   863 
   910     ^ Icon constantNamed:#'VariablePanel class snapIconUp'
       
   911         ifAbsentPut:[
       
   912             (Depth2Image new)
       
   913                 width:62;
       
   914                 height:5;
       
   915                 photometric:(#palette);
       
   916                 bitsPerSample:(#( 2 ));
       
   917                 samplesPerPixel:(1);
       
   918                 bits:(ByteArray 
       
   919                             fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@J *B(J *B(J (B @@@@@@BEHT!!REHT!!RDHP!!@@@@@@@EPUATEPUATE@TAP@@@@@@@@@@@@@@@@@@@@@@@@@b');
       
   920                 colorMapFromArray:#[ 0 0 0 68 68 68 255 255 255 ];
       
   921                 mask:((ImageMask new)
       
   922                             width:62;
       
   923                             height:5;
       
   924                             bits:(ByteArray 
       
   925                                         fromPackedString:'B@@@@@@@@D@\X1#FLX1 8C9R%JT)R%G0_3FLX1#FL? @@@@@@@@@@@@a');
       
   926                             yourself);
       
   927                 yourself
       
   928         ]
       
   929 !
       
   930 
       
   931 snapIconUpDown
   864     <resource: #image>
   932     <resource: #image>
   865 
       
   866     ^Icon
       
   867         constantNamed:#'VariablePanel class snapIconUp'
       
   868         ifAbsentPut:[(Depth2Image new) width: 62; height: 5; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@J *B(J *B(J (B @@@@@@BEHT!!REHT!!RDHP!!@@@@@@@EPUATEPUATE@TAP@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 68 68 68 255 255 255]; mask:((Depth1Image new) width: 62; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'B@@@@@@@@D@\X1#FLX1 8C9R%JT)R%G0_3FLX1#FL? @@@@@@@@@@@@a') ; yourself); yourself]
       
   869 !
       
   870 
       
   871 snapIconUpDown
       
   872     "This resource specification was automatically generated
   933     "This resource specification was automatically generated
   873      by the ImageEditor of ST/X."
   934      by the ImageEditor of ST/X."
   874 
       
   875     "Do not manually edit this!! If it is corrupted,
   935     "Do not manually edit this!! If it is corrupted,
   876      the ImageEditor may not be able to read the specification."
   936      the ImageEditor may not be able to read the specification."
   877 
       
   878     "
   937     "
   879      self snapIconUpDown inspect
   938      self snapIconUpDown inspect
   880      ImageEditor openOnClass:self andSelector:#snapIconUpDown
   939      ImageEditor openOnClass:self andSelector:#snapIconUpDown
   881      Icon flushCachedIcons
   940      Icon flushCachedIcons"
   882     "
   941     
   883 
   942     ^ Icon constantNamed:#'VariablePanel class snapIconUpDown'
   884     <resource: #image>
   943         ifAbsentPut:[
   885 
   944             (Depth2Image new)
   886     ^Icon
   945                 width:62;
   887         constantNamed:#'VariablePanel class snapIconUpDown'
   946                 height:5;
   888         ifAbsentPut:[(Depth2Image new) width: 62; height: 5; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@H@@@@@@ @@@@@@@@@B J@BB J@(@HJ@(@@@@@@@!!BDD !!BDHPBBDHP@@@@@@APE@HAPE@T@ E@T@@@@@@@@@@B@@@@@@H@@@@@@@b') ; colorMapFromArray:#[0 0 0 68 68 68 255 255 255]; mask:((Depth1Image new) width: 62; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@J@@B @@@PLX)#FJX1?C )R%JT)R#8_A#JLX2#FGC>@@(@@J@@H@@a') ; yourself); yourself]
   947                 photometric:(#palette);
       
   948                 bitsPerSample:(#( 2 ));
       
   949                 samplesPerPixel:(1);
       
   950                 bits:(ByteArray 
       
   951                             fromPackedString:'@@@@@@@H@@@@@@ @@@@@@@@@B J@BB J@(@HJ@(@@@@@@@!!BDD !!BDHPBBDHP@@@@@@APE@HAPE@T@ E@T@@@@@@@@@@B@@@@@@H@@@@@@@b');
       
   952                 colorMapFromArray:#[ 0 0 0 68 68 68 255 255 255 ];
       
   953                 mask:((ImageMask new)
       
   954                             width:62;
       
   955                             height:5;
       
   956                             bits:(ByteArray 
       
   957                                         fromPackedString:'@@@J@@B @@@PLX)#FJX1?C )R%JT)R#8_A#JLX2#FGC>@@(@@J@@H@@a');
       
   958                             yourself);
       
   959                 yourself
       
   960         ]
   889 ! !
   961 ! !
   890 
   962 
   891 !VariablePanel methodsFor:'accessing-look'!
   963 !VariablePanel methodsFor:'accessing-look'!
   892 
   964 
   893 barHeight
   965 barHeight
  2333         self class snapIcons keysAndValuesDo:[:aKey :anIcon|
  2405         self class snapIcons keysAndValuesDo:[:aKey :anIcon|
  2334             anIcon device == self graphicsDevice ifTrue:[
  2406             anIcon device == self graphicsDevice ifTrue:[
  2335                 icon := anIcon
  2407                 icon := anIcon
  2336             ] ifFalse:[
  2408             ] ifFalse:[
  2337                 icon := anIcon copy onDevice:self graphicsDevice.
  2409                 icon := anIcon copy onDevice:self graphicsDevice.
  2338                 icon clearMaskedPixels.
       
  2339                 self graphicsDevice == Display ifTrue:[
  2410                 self graphicsDevice == Display ifTrue:[
  2340                     self class snapIcons at:aKey put:icon.
  2411                     self class snapIcons at:aKey put:icon.
  2341                 ]
  2412                 ]
  2342             ].
  2413             ].
  2343             snapAdornment at:aKey put:icon
  2414             snapAdornment at:aKey put:icon
  2597 ! !
  2668 ! !
  2598 
  2669 
  2599 !VariablePanel class methodsFor:'documentation'!
  2670 !VariablePanel class methodsFor:'documentation'!
  2600 
  2671 
  2601 version
  2672 version
  2602     ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.102 2014-04-03 14:33:38 cg Exp $'
  2673     ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.104 2014-06-06 07:30:22 stefan Exp $'
  2603 !
  2674 !
  2604 
  2675 
  2605 version_CVS
  2676 version_CVS
  2606     ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.102 2014-04-03 14:33:38 cg Exp $'
  2677     ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.104 2014-06-06 07:30:22 stefan Exp $'
  2607 ! !
  2678 ! !
  2608 
  2679