Mercurial Mercurial > hg > stx-libwidg / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RButton.st
changeset 1629 21481cd942f9
parent 1583 147916baf6dc
child 1696 adfae835bac8
equal deleted inserted replaced
1628:d5065006e796 1629:21481cd942f9 
    10  hereby transferred.
 
    10  hereby transferred.
 
    11 "
 
    11 "
 
    12 
    12 
    13 Toggle subclass:#RadioButton
 
    13 Toggle subclass:#RadioButton
 
    14 	instanceVariableNames:'buttonStyle buttonOnLevel buttonOffLevel'
 
    14 	instanceVariableNames:'buttonStyle buttonOnLevel buttonOffLevel'
 
    15 	classVariableNames:'DefaultButtonStyle DefaultActiveLevel DefaultPassiveLevel'
 
    15 	classVariableNames:'DefaultButtonStyle DefaultActiveLevel DefaultPassiveLevel
 
       
    16 		MotifCheckBotForm MotifCheckTopForm Round3DCheckBotForm
 
       
    17 		Round3DCheckTopForm RoundHalfLightForm RoundOffForm RoundOnForm'
 
    16 	poolDictionaries:''
 
    18 	poolDictionaries:''
 
    17 	category:'Views-Interactors'
 
    19 	category:'Views-Interactors'
 
    18 !
 
    20 !
 
    19 
    21 
    20 !RadioButton class methodsFor:'documentation'!
 
    22 !RadioButton class methodsFor:'documentation'!
 
   142 ! !
 
   144 ! !
 
   143 
   145 
   144 !RadioButton class methodsFor:'defaults'!
 
   146 !RadioButton class methodsFor:'defaults'!
 
   145 
   147 
   146 motifCheckBotForm
 
   148 motifCheckBotForm
 
   147     ^ Form 
   149     MotifCheckBotForm isNil ifTrue:[
 
   148         width:15 
   150         MotifCheckBotForm := Form 
   149         height:15 
   151             width:15 
   150         fromArray:#[2r00000000 2r00000000
 
   152             height:15 
   151                     2r00000000 2r00000000
 
   153             fromArray:#[2r00000000 2r00000000
 
   152                     2r00000000 2r00000000
 
   154                         2r00000000 2r00000000
 
   153                     2r00000000 2r00000000
 
   155                         2r00000000 2r00000000
 
   154                     2r00000000 2r00000000
 
   156                         2r00000000 2r00000000
 
   155                     2r00000000 2r00000000
 
   157                         2r00000000 2r00000000
 
   156                     2r00000000 2r00000000
 
   158                         2r00000000 2r00000000
 
   157                     2r00000000 2r00001110
 
   159                         2r00000000 2r00000000
 
   158                     2r01110000 2r00011100
 
   160                         2r00000000 2r00001110
 
   159                     2r00111000 2r00111000
 
   161                         2r01110000 2r00011100
 
   160                     2r00011100 2r01110000
 
   162                         2r00111000 2r00111000
 
   161                     2r00001110 2r11100000
 
   163                         2r00011100 2r01110000
 
   162                     2r00000111 2r11000000
 
   164                         2r00001110 2r11100000
 
   163                     2r00000011 2r10000000
 
   165                         2r00000111 2r11000000
 
   164                     2r00000001 2r00000000
 
   166                         2r00000011 2r10000000
 
   165                    ]
 
   167                         2r00000001 2r00000000
 
       
   168                        ].
 
       
   169         MotifCheckBotForm := MotifCheckBotForm onDevice:Display.
 
       
   170     ].
 
       
   171     ^ MotifCheckBotForm
 
   166 
   172 
   167     "Created: / 3.11.1997 / 12:06:45 / cg"
 
   173     "Created: / 3.11.1997 / 12:06:45 / cg"
 
   168     "Modified: / 3.11.1997 / 12:10:50 / cg"
 
   174     "Modified: / 30.7.1998 / 21:27:53 / cg"
 
   169 !
 
   175 !
 
   170 
   176 
   171 motifCheckTopForm
 
   177 motifCheckTopForm
 
   172     ^ Form 
   178     MotifCheckTopForm isNil ifTrue:[
 
   173         width:15 
   179         MotifCheckTopForm := Form 
   174         height:15 
   180                                 width:15 
   175         fromArray:#[2r00000001 2r00000000
 
   181                                 height:15 
   176                     2r00000011 2r10000000
 
   182                                 fromArray:#[2r00000001 2r00000000
 
   177                     2r00000111 2r11000000
 
   183                                             2r00000011 2r10000000
 
   178                     2r00001110 2r11100000
 
   184                                             2r00000111 2r11000000
 
   179                     2r00011100 2r01110000
 
   185                                             2r00001110 2r11100000
 
   180                     2r00111000 2r00111000
 
   186                                             2r00011100 2r01110000
 
   181                     2r01110000 2r00011100
 
   187                                             2r00111000 2r00111000
 
   182                     2r11100000 2r00000000
 
   188                                             2r01110000 2r00011100
 
   183                     2r00000000 2r00000000
 
   189                                             2r11100000 2r00000000
 
   184                     2r00000000 2r00000000
 
   190                                             2r00000000 2r00000000
 
   185                     2r00000000 2r00000000
 
   191                                             2r00000000 2r00000000
 
   186                     2r00000000 2r00000000
 
   192                                             2r00000000 2r00000000
 
   187                     2r00000000 2r00000000
 
   193                                             2r00000000 2r00000000
 
   188                     2r00000000 2r00000000
 
   194                                             2r00000000 2r00000000
 
   189                     2r00000000 2r00000000
 
   195                                             2r00000000 2r00000000
 
   190                    ]
 
   196                                             2r00000000 2r00000000
 
       
   197                                            ].
 
       
   198         MotifCheckTopForm := MotifCheckTopForm onDevice:Display
 
       
   199     ].
 
       
   200     ^ MotifCheckTopForm
 
   191 
   201 
   192     "Created: / 3.11.1997 / 12:06:45 / cg"
 
   202     "Created: / 3.11.1997 / 12:06:45 / cg"
 
   193     "Modified: / 3.11.1997 / 12:11:03 / cg"
 
   203     "Modified: / 30.7.1998 / 21:28:45 / cg"
 
   194 !
 
   204 !
 
   195 
   205 
   196 round3DCheckBotForm
 
   206 round3DCheckBotForm
 
   197     ^ Form 
   207     Round3DCheckBotForm isNil ifTrue:[
 
   198         width:15 
   208         Round3DCheckBotForm := Form 
   199         height:15 
   209                                 width:15 
   200         fromArray:#[2r00000000 2r00000000
 
   210                                 height:15 
   201                     2r00000000 2r00000000
 
   211                                 fromArray:#[2r00000000 2r00000000
 
   202                     2r00000000 2r00000000
 
   212                                             2r00000000 2r00000000
 
   203                     2r00000000 2r00000000
 
   213                                             2r00000000 2r00000000
 
   204                     2r00000000 2r00000000
 
   214                                             2r00000000 2r00000000
 
   205                     2r00000000 2r00000010
 
   215                                             2r00000000 2r00000000
 
   206                     2r00000000 2r00000010
 
   216                                             2r00000000 2r00000010
 
   207                     2r00000000 2r00000110
 
   217                                             2r00000000 2r00000010
 
   208                     2r00000000 2r00000110
 
   218                                             2r00000000 2r00000110
 
   209                     2r00000000 2r00000110
 
   219                                             2r00000000 2r00000110
 
   210                     2r00000000 2r00001110
 
   220                                             2r00000000 2r00000110
 
   211                     2r01110000 2r00011100
 
   221                                             2r00000000 2r00001110
 
   212                     2r01111000 2r00111100
 
   222                                             2r01110000 2r00011100
 
   213                     2r00111111 2r11111000
 
   223                                             2r01111000 2r00111100
 
   214                     2r00001111 2r11100000
 
   224                                             2r00111111 2r11111000
 
   215                    ]
 
   225                                             2r00001111 2r11100000
 
       
   226                                            ].
 
       
   227         Round3DCheckBotForm := Round3DCheckBotForm onDevice:Display.
 
       
   228     ].
 
       
   229     ^ Round3DCheckBotForm
 
   216 
   230 
   217     "Created: / 3.11.1997 / 14:29:37 / cg"
 
   231     "Created: / 3.11.1997 / 14:29:37 / cg"
 
   218     "Modified: / 9.11.1997 / 02:43:23 / cg"
 
   232     "Modified: / 30.7.1998 / 21:29:57 / cg"
 
   219 !
 
   233 !
 
   220 
   234 
   221 round3DCheckTopForm
 
   235 round3DCheckTopForm
 
   222     ^ Form 
   236     Round3DCheckTopForm isNil ifTrue:[
 
   223         width:15 
   237         Round3DCheckTopForm := Form 
   224         height:15 
   238                                 width:15 
   225         fromArray:#[2r00000011 2r10000000
 
   239                                 height:15 
   226                     2r00011110 2r11110000
 
   240                                 fromArray:#[2r00000011 2r10000000
 
   227                     2r00111000 2r00011000
 
   241                                             2r00011110 2r11110000
 
   228                     2r01110000 2r00001100
 
   242                                             2r00111000 2r00011000
 
   229                     2r01100000 2r00001100
 
   243                                             2r01110000 2r00001100
 
   230                     2r11000000 2r00000100
 
   244                                             2r01100000 2r00001100
 
   231                     2r11000000 2r00000100
 
   245                                             2r11000000 2r00000100
 
   232                     2r11000000 2r00000000
 
   246                                             2r11000000 2r00000100
 
   233                     2r11000000 2r00000000
 
   247                                             2r11000000 2r00000000
 
   234                     2r11000000 2r00000000
 
   248                                             2r11000000 2r00000000
 
   235                     2r01100000 2r00000000
 
   249                                             2r11000000 2r00000000
 
   236                     2r00000000 2r00000000
 
   250                                             2r01100000 2r00000000
 
   237                     2r00000000 2r00000000
 
   251                                             2r00000000 2r00000000
 
   238                     2r00000000 2r00000000
 
   252                                             2r00000000 2r00000000
 
   239                     2r00000000 2r00000000
 
   253                                             2r00000000 2r00000000
 
   240                    ]
 
   254                                             2r00000000 2r00000000
 
       
   255                                            ].
 
   241 "/        fromArray:#[2r00000111 2r11000000
 
   256 "/        fromArray:#[2r00000111 2r11000000
 
   242 "/                    2r00011110 2r11110000
 
   257 "/                    2r00011110 2r11110000
 
   243 "/                    2r00111000 2r00111000
 
   258 "/                    2r00111000 2r00111000
 
   244 "/                    2r01110000 2r00011100
 
   259 "/                    2r01110000 2r00011100
 
   245 "/                    2r01100000 2r00001100
 
   260 "/                    2r01100000 2r00001100
 
   253 "/                    2r00000000 2r00000000
 
   268 "/                    2r00000000 2r00000000
 
   254 "/                    2r00000000 2r00000000
 
   269 "/                    2r00000000 2r00000000
 
   255 "/                    2r00000000 2r00000000
 
   270 "/                    2r00000000 2r00000000
 
   256 "/                   ]
 
   271 "/                   ]
 
   257 
   272 
       
   273         Round3DCheckTopForm := Round3DCheckTopForm onDevice:Display.
 
       
   274     ].
 
       
   275     ^ Round3DCheckTopForm
 
       
   276 
   258     "Created: / 3.11.1997 / 14:29:45 / cg"
 
   277     "Created: / 3.11.1997 / 14:29:45 / cg"
 
   259     "Modified: / 9.11.1997 / 02:37:41 / cg"
 
   278     "Modified: / 30.7.1998 / 21:30:47 / cg"
 
   260 !
 
   279 !
 
   261 
   280 
   262 roundHalfLightForm
 
   281 roundHalfLightForm
 
   263     ^ Form 
   282     RoundHalfLightForm isNil ifTrue:[
 
   264         width:15 
   283         RoundHalfLightForm := Form
 
   265         height:15 
   284                                 width:15 
   266         fromArray:#[2r00001100 2r01100000
 
   285                                 height:15 
   267                     2r00110000 2r00010000
 
   286                                 fromArray:#[2r00001100 2r01100000
 
   268                     2r01100000 2r00001000
 
   287                                             2r00110000 2r00010000
 
   269                     2r01000000 2r00000100
 
   288                                             2r01100000 2r00001000
 
   270                     2r11000000 2r00000100
 
   289                                             2r01000000 2r00000100
 
   271                     2r10000000 2r00000000
 
   290                                             2r11000000 2r00000100
 
   272                     2r10000000 2r00000000
 
   291                                             2r10000000 2r00000000
 
   273                     2r10000000 2r00000100
 
   292                                             2r10000000 2r00000000
 
   274                     2r10000000 2r00000100
 
   293                                             2r10000000 2r00000100
 
   275                     2r10000000 2r00000100
 
   294                                             2r10000000 2r00000100
 
   276                     2r11000000 2r00001000
 
   295                                             2r10000000 2r00000100
 
   277                     2r00110000 2r00010000
 
   296                                             2r11000000 2r00001000
 
   278                     2r00011000 2r00110000
 
   297                                             2r00110000 2r00010000
 
   279                     2r00000111 2r11000000
 
   298                                             2r00011000 2r00110000
 
   280                     2r00000000 2r00000000
 
   299                                             2r00000111 2r11000000
 
   281                    ]
 
   300                                             2r00000000 2r00000000
 
       
   301                                            ].
 
       
   302 
   282 "/        fromArray:#[2r00000000 2r00000000
 
   303 "/        fromArray:#[2r00000000 2r00000000
 
   283 "/                    2r00000011 2r10000000
 
   304 "/                    2r00000011 2r10000000
 
   284 "/                    2r00001000 2r00100000
 
   305 "/                    2r00001000 2r00100000
 
   285 "/                    2r00010000 2r00010000
 
   306 "/                    2r00010000 2r00010000
 
   286 "/                    2r00100000 2r00001000
 
   307 "/                    2r00100000 2r00001000
 
   294 "/                    2r00001000 2r00100000
 
   315 "/                    2r00001000 2r00100000
 
   295 "/                    2r00000011 2r10000000
 
   316 "/                    2r00000011 2r10000000
 
   296 "/                    2r00000000 2r00000000
 
   317 "/                    2r00000000 2r00000000
 
   297 "/                   ]
 
   318 "/                   ]
 
   298 
   319 
       
   320         RoundHalfLightForm := RoundHalfLightForm onDevice:Display.
 
       
   321     ].
 
       
   322     ^ RoundHalfLightForm
 
       
   323 
   299     "Created: / 3.11.1997 / 18:26:40 / cg"
 
   324     "Created: / 3.11.1997 / 18:26:40 / cg"
 
   300     "Modified: / 9.11.1997 / 02:47:09 / cg"
 
   325     "Modified: / 30.7.1998 / 21:31:55 / cg"
 
   301 !
 
   326 !
 
   302 
   327 
   303 roundOffForm
 
   328 roundOffForm
 
   304     ^ Form 
   329     RoundOffForm isNil ifTrue:[
 
   305         width:15 
   330         RoundOffForm := Form 
   306         height:15 
   331             width:15 
   307         fromArray:#[2r00000011 2r10000000
 
   332             height:15 
   308                     2r00001100 2r01100000
 
   333             fromArray:#[2r00000011 2r10000000
 
   309                     2r00010000 2r00010000
 
   334                         2r00001100 2r01100000
 
   310                     2r00100000 2r00001000
 
   335                         2r00010000 2r00010000
 
   311                     2r01000000 2r00000100
 
   336                         2r00100000 2r00001000
 
   312                     2r01000000 2r00000100
 
   337                         2r01000000 2r00000100
 
   313                     2r10000000 2r00000010
 
   338                         2r01000000 2r00000100
 
   314                     2r10000000 2r00000010
 
   339                         2r10000000 2r00000010
 
   315                     2r10000000 2r00000010
 
   340                         2r10000000 2r00000010
 
   316                     2r01000000 2r00000100
 
   341                         2r10000000 2r00000010
 
   317                     2r01000000 2r00000100
 
   342                         2r01000000 2r00000100
 
   318                     2r00100000 2r00001000
 
   343                         2r01000000 2r00000100
 
   319                     2r00010000 2r00010000
 
   344                         2r00100000 2r00001000
 
   320                     2r00001100 2r01100000
 
   345                         2r00010000 2r00010000
 
   321                     2r00000011 2r10000000
 
   346                         2r00001100 2r01100000
 
   322                    ]
 
   347                         2r00000011 2r10000000
 
       
   348                        ].
 
       
   349 
   323 "/        fromArray:#[2r00000011 2r10000000
 
   350 "/        fromArray:#[2r00000011 2r10000000
 
   324 "/                    2r00001111 2r11100000
 
   351 "/                    2r00001111 2r11100000
 
   325 "/                    2r00111100 2r01111000
 
   352 "/                    2r00111100 2r01111000
 
   326 "/                    2r00110000 2r00011000
 
   353 "/                    2r00110000 2r00011000
 
   327 "/                    2r01100000 2r00001100
 
   354 "/                    2r01100000 2r00001100
 
   334 "/                    2r00110000 2r00011000
 
   361 "/                    2r00110000 2r00011000
 
   335 "/                    2r00111100 2r01111000
 
   362 "/                    2r00111100 2r01111000
 
   336 "/                    2r00001111 2r11100000
 
   363 "/                    2r00001111 2r11100000
 
   337 "/                    2r00000011 2r10000000
 
   364 "/                    2r00000011 2r10000000
 
   338 "/                   ]
 
   365 "/                   ]
 
       
   366         RoundOffForm := RoundOffForm onDevice:Display.
 
       
   367     ].
 
       
   368     ^ RoundOffForm
 
   339 
   369 
   340     "Created: / 3.11.1997 / 12:41:13 / cg"
 
   370     "Created: / 3.11.1997 / 12:41:13 / cg"
 
   341     "Modified: / 9.11.1997 / 02:02:55 / cg"
 
   371     "Modified: / 30.7.1998 / 21:33:03 / cg"
 
   342 !
 
   372 !
 
   343 
   373 
   344 roundOnForm
 
   374 roundOnForm
 
   345     ^ Form 
   375     RoundOnForm isNil ifTrue:[
 
   346         width:15 
   376         RoundOnForm := Form 
   347         height:15 
   377                         width:15 
       
   378                         height:15 
   348 "/        fromArray:#[2r00000000 2r00000000
 
   379 "/        fromArray:#[2r00000000 2r00000000
 
   349 "/                    2r00000000 2r00000000
 
   380 "/                    2r00000000 2r00000000
 
   350 "/                    2r00000000 2r00000000
 
   381 "/                    2r00000000 2r00000000
 
   351 "/                    2r00000111 2r11000000
 
   382 "/                    2r00000111 2r11000000
 
   352 "/                    2r00001111 2r11100000
 
   383 "/                    2r00001111 2r11100000
 
   359 "/                    2r00000111 2r11000000
 
   390 "/                    2r00000111 2r11000000
 
   360 "/                    2r00000000 2r00000000
 
   391 "/                    2r00000000 2r00000000
 
   361 "/                    2r00000000 2r00000000
 
   392 "/                    2r00000000 2r00000000
 
   362 "/                    2r00000000 2r00000000
 
   393 "/                    2r00000000 2r00000000
 
   363 "/                   ]
 
   394 "/                   ]
 
   364         fromArray:#[2r00000000 2r00000000
 
   395                         fromArray:#[2r00000000 2r00000000
 
   365                     2r00000000 2r00000000
 
   396                                     2r00000000 2r00000000
 
   366                     2r00000000 2r00000000
 
   397                                     2r00000000 2r00000000
 
   367                     2r00000000 2r00000000
 
   398                                     2r00000000 2r00000000
 
   368                     2r00000011 2r10000000
 
   399                                     2r00000011 2r10000000
 
   369                     2r00000111 2r11000000
 
   400                                     2r00000111 2r11000000
 
   370                     2r00001111 2r11100000
 
   401                                     2r00001111 2r11100000
 
   371                     2r00001111 2r11100000
 
   402                                     2r00001111 2r11100000
 
   372                     2r00001111 2r11100000
 
   403                                     2r00001111 2r11100000
 
   373                     2r00000111 2r11000000
 
   404                                     2r00000111 2r11000000
 
   374                     2r00000011 2r10000000
 
   405                                     2r00000011 2r10000000
 
   375                     2r00000000 2r00000000
 
   406                                     2r00000000 2r00000000
 
   376                     2r00000000 2r00000000
 
   407                                     2r00000000 2r00000000
 
   377                     2r00000000 2r00000000
 
   408                                     2r00000000 2r00000000
 
   378                     2r00000000 2r00000000
 
   409                                     2r00000000 2r00000000
 
   379                    ]
 
   410                                    ].
 
       
   411         RoundOnForm := RoundOnForm onDevice:Display.
 
       
   412     ].
 
       
   413     ^ RoundOnForm
 
   380 
   414 
   381     "Created: / 3.11.1997 / 12:41:17 / cg"
 
   415     "Created: / 3.11.1997 / 12:41:17 / cg"
 
   382     "Modified: / 9.11.1997 / 02:09:21 / cg"
 
   416     "Modified: / 30.7.1998 / 21:33:39 / cg"
 
   383 !
 
   417 !
 
   384 
   418 
   385 updateStyleCache
 
   419 updateStyleCache
 
   386     |l|
 
   420     |l|
 
   387 
   421 
   590 ! !
 
   624 ! !
 
   591 
   625 
   592 !RadioButton class methodsFor:'documentation'!
 
   626 !RadioButton class methodsFor:'documentation'!
 
   593 
   627 
   594 version
 
   628 version
 
   595     ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButton.st,v 1.23 1998-06-18 19:25:17 cg Exp $'
 
   629     ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButton.st,v 1.24 1998-07-30 19:35:47 cg Exp $'
 
   596 ! !
 
   630 ! !
hg/stx-libwidg