UIPainter.st
changeset 358 5df60cd45881
parent 351 7cb9f9c9a872
child 362 55154d7a4deb
equal deleted inserted replaced
357:076b7eb71bcf 358:5df60cd45881
   107 
   107 
   108     "
   108     "
   109     UIHelpTool openOnClass:UIPainter    
   109     UIHelpTool openOnClass:UIPainter    
   110     "
   110     "
   111 
   111 
       
   112     <resource: #help>
       
   113 
   112   ^ super helpSpec addPairsFrom:#(
   114   ^ super helpSpec addPairsFrom:#(
   113 
   115 
   114 #moveSelectionLeft
   116 #moveSelectionLeft
   115 'move selected widgets left while pressing the button'
   117 'move selected widgets left while pressing the button'
   116 
   118 
   209 
   211 
   210 #setToDefaultHeight
   212 #setToDefaultHeight
   211 'set selected widgets to their default height'
   213 'set selected widgets to their default height'
   212 
   214 
   213 )
   215 )
       
   216 
       
   217     "Modified: / 29.10.1997 / 03:19:58 / cg"
   214 ! !
   218 ! !
   215 
   219 
   216 !UIPainter class methodsFor:'helpers'!
   220 !UIPainter class methodsFor:'helpers'!
   217 
   221 
   218 convertString:aString maxLineSize:maxCharactersPerLine
   222 convertString:aString maxLineSize:maxCharactersPerLine
   261 !UIPainter class methodsFor:'icons'!
   265 !UIPainter class methodsFor:'icons'!
   262 
   266 
   263 iconAlignB
   267 iconAlignB
   264     "returns image assigned to align bottom
   268     "returns image assigned to align bottom
   265     "
   269     "
       
   270 
       
   271     <resource: #fileImage>
       
   272 
   266     ^ Image fromFile:'b_alignB.xbm'
   273     ^ Image fromFile:'b_alignB.xbm'
   267 
   274 
       
   275     "Modified: / 29.10.1997 / 03:18:16 / cg"
   268 !
   276 !
   269 
   277 
   270 iconAlignCenterH
   278 iconAlignCenterH
   271     "returns image assigned to center horizontal
   279     "returns image assigned to center horizontal
   272     "
   280     "
       
   281 
       
   282     <resource: #fileImage>
       
   283 
   273     ^ Image fromFile:'b_alignCH.xbm'
   284     ^ Image fromFile:'b_alignCH.xbm'
   274 
   285 
       
   286     "Modified: / 29.10.1997 / 03:18:34 / cg"
   275 !
   287 !
   276 
   288 
   277 iconAlignCenterV
   289 iconAlignCenterV
   278     "returns image assigned to center vertical
   290     "returns image assigned to center vertical
   279     "
   291     "
       
   292 
       
   293     <resource: #fileImage>
       
   294 
   280     ^ Image fromFile:'b_alignCV.xbm'
   295     ^ Image fromFile:'b_alignCV.xbm'
   281 
   296 
       
   297     "Modified: / 29.10.1997 / 03:18:39 / cg"
   282 !
   298 !
   283 
   299 
   284 iconAlignL
   300 iconAlignL
   285     "returns image assigned to align left
   301     "returns image assigned to align left
   286     "
   302     "
       
   303 
       
   304     <resource: #fileImage>
       
   305 
   287     ^ Image fromFile:'b_alignL.xbm'
   306     ^ Image fromFile:'b_alignL.xbm'
       
   307 
       
   308     "Modified: / 29.10.1997 / 03:18:43 / cg"
   288 !
   309 !
   289 
   310 
   290 iconAlignLR
   311 iconAlignLR
   291     "returns image assigned to align left and right
   312     "returns image assigned to align left and right
   292     "
   313     "
       
   314 
       
   315     <resource: #fileImage>
       
   316 
   293     ^ Image fromFile:'b_alignLR.xbm'
   317     ^ Image fromFile:'b_alignLR.xbm'
   294 
   318 
       
   319     "Modified: / 29.10.1997 / 03:18:48 / cg"
   295 !
   320 !
   296 
   321 
   297 iconAlignR
   322 iconAlignR
   298     "returns image assigned to align right
   323     "returns image assigned to align right
   299     "
   324     "
       
   325 
       
   326     <resource: #fileImage>
       
   327 
   300     ^ Image fromFile:'b_alignR.xbm'
   328     ^ Image fromFile:'b_alignR.xbm'
   301 
   329 
       
   330     "Modified: / 29.10.1997 / 03:18:51 / cg"
   302 !
   331 !
   303 
   332 
   304 iconAlignT
   333 iconAlignT
   305     "returns image assigned to align top
   334     "returns image assigned to align top
   306     "
   335     "
       
   336 
       
   337     <resource: #fileImage>
       
   338 
   307     ^ Image fromFile:'b_alignT.xbm'
   339     ^ Image fromFile:'b_alignT.xbm'
   308 
   340 
       
   341     "Modified: / 29.10.1997 / 03:18:56 / cg"
   309 !
   342 !
   310 
   343 
   311 iconAlignTB
   344 iconAlignTB
   312     "returns image assigned to align top and bottom
   345     "returns image assigned to align top and bottom
   313     "
   346     "
       
   347 
       
   348     <resource: #fileImage>
       
   349 
   314     ^ Image fromFile:'b_alignTB.xbm'
   350     ^ Image fromFile:'b_alignTB.xbm'
   315 
   351 
       
   352     "Modified: / 29.10.1997 / 03:19:01 / cg"
   316 !
   353 !
   317 
   354 
   318 iconInstall
   355 iconInstall
       
   356 
       
   357     <resource: #fileImage>
       
   358 
   319     ^ Image fromFile:'bitmaps/xpmBitmaps/misc_tools/SaveButton.xpm'
   359     ^ Image fromFile:'bitmaps/xpmBitmaps/misc_tools/SaveButton.xpm'
   320 
   360 
   321     "Modified: 23.10.1997 / 06:00:28 / cg"
   361     "Modified: / 29.10.1997 / 03:19:06 / cg"
   322 !
   362 !
   323 
   363 
   324 iconStepDown
   364 iconStepDown
   325     "returns image assigned to step down (change hierarchy).
   365     "returns image assigned to step down (change hierarchy).
   326     "
   366     "
       
   367 
       
   368     <resource: #fileImage>
       
   369 
   327     IconStepDown isNil ifTrue:[
   370     IconStepDown isNil ifTrue:[
   328         IconStepDown := ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal
   371         IconStepDown := ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal
   329     ].
   372     ].
   330   ^ IconStepDown
   373   ^ IconStepDown
   331 
   374 
   332 "
   375 "
   333 IconStepDown := nil
   376 IconStepDown := nil
   334 "
   377 "
   335 
   378 
       
   379     "Modified: / 29.10.1997 / 03:19:14 / cg"
   336 !
   380 !
   337 
   381 
   338 iconStepIn
   382 iconStepIn
   339     "returns image assigned to step in (change hierarchy).
   383     "returns image assigned to step in (change hierarchy).
   340     "
   384     "
       
   385 
       
   386     <resource: #fileImage>
       
   387 
   341     IconStepIn isNil ifTrue:[
   388     IconStepIn isNil ifTrue:[
   342         IconStepIn := ((Image fromFile:'stepIn.xpm') rotated:90) flipHorizontal
   389         IconStepIn := ((Image fromFile:'stepIn.xpm') rotated:90) flipHorizontal
   343     ].
   390     ].
   344   ^ IconStepIn
   391   ^ IconStepIn
   345 
   392 
       
   393     "Modified: / 29.10.1997 / 03:19:19 / cg"
   346 !
   394 !
   347 
   395 
   348 iconStepOut
   396 iconStepOut
   349     "returns image assigned to step out (change hierarchy).
   397     "returns image assigned to step out (change hierarchy).
   350     "
   398     "
       
   399 
       
   400     <resource: #fileImage>
       
   401 
   351     IconStepOut isNil ifTrue:[
   402     IconStepOut isNil ifTrue:[
   352         IconStepOut := ((Image fromFile:'stepOut.xpm') rotated:90) flipHorizontal
   403         IconStepOut := ((Image fromFile:'stepOut.xpm') rotated:90) flipHorizontal
   353     ].
   404     ].
   354   ^ IconStepOut
   405   ^ IconStepOut
       
   406 
       
   407     "Modified: / 29.10.1997 / 03:19:25 / cg"
   355 !
   408 !
   356 
   409 
   357 iconStepUp
   410 iconStepUp
   358     "returns image assigned to step up (change hierarchy).
   411     "returns image assigned to step up (change hierarchy).
   359     "
   412     "
       
   413 
       
   414     <resource: #fileImage>
       
   415 
   360     IconStepUp isNil ifTrue:[
   416     IconStepUp isNil ifTrue:[
   361         IconStepUp := ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal flipVertical
   417         IconStepUp := ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal flipVertical
   362     ].
   418     ].
   363   ^ IconStepUp
   419   ^ IconStepUp
   364 
   420 
   365 "
   421 "
   366 IconStepUp := nil
   422 IconStepUp := nil
   367 "
   423 "
       
   424 
       
   425     "Modified: / 29.10.1997 / 03:19:29 / cg"
   368 ! !
   426 ! !
   369 
   427 
   370 !UIPainter class methodsFor:'interface specs'!
   428 !UIPainter class methodsFor:'interface specs'!
   371 
   429 
   372 nameAndSelectorSpec
   430 nameAndSelectorSpec
  2637     "
  2695     "
  2638     ^ 'Canvas'
  2696     ^ 'Canvas'
  2639 !
  2697 !
  2640 
  2698 
  2641 imageEmptyParent
  2699 imageEmptyParent
       
  2700     <resource: #fileImage>
       
  2701 
  2642 
  2702 
  2643     ImageEmptyParent isNil ifTrue:[
  2703     ImageEmptyParent isNil ifTrue:[
  2644         ImageEmptyParent := Image fromFile:('xpmBitmaps/document_images/tiny_dir.xpm').
  2704         ImageEmptyParent := Image fromFile:('xpmBitmaps/document_images/tiny_dir.xpm').
  2645     ].
  2705     ].
  2646     ^ ImageEmptyParent
  2706     ^ ImageEmptyParent
  2647 
  2707 
  2648     "
  2708     "
  2649     ImageEmptyParent := nil
  2709     ImageEmptyParent := nil
  2650     "
  2710     "
       
  2711 
       
  2712     "Modified: / 29.10.1997 / 03:36:37 / cg"
  2651 !
  2713 !
  2652 
  2714 
  2653 imageMasterChild
  2715 imageMasterChild
       
  2716     <resource: #fileImage>
       
  2717 
  2654 
  2718 
  2655     ImageMasterChild isNil ifTrue:[
  2719     ImageMasterChild isNil ifTrue:[
  2656         ImageMasterChild := Image fromFile:('xpmBitmaps/document_images/tiny_file_plain_gray.xpm').
  2720         ImageMasterChild := Image fromFile:('xpmBitmaps/document_images/tiny_file_plain_gray.xpm').
  2657     ].
  2721     ].
  2658     ^ ImageMasterChild
  2722     ^ ImageMasterChild
  2659 
  2723 
  2660     "
  2724     "
  2661     ImageMasterChild := nil
  2725     ImageMasterChild := nil
  2662     "
  2726     "
  2663 
  2727 
  2664     "Modified: 28.7.1997 / 11:55:22 / cg"
  2728     "Modified: / 29.10.1997 / 03:36:42 / cg"
  2665 !
  2729 !
  2666 
  2730 
  2667 imageMasterParent
  2731 imageMasterParent
       
  2732     <resource: #fileImage>
       
  2733 
  2668 
  2734 
  2669     ImageMasterParent isNil ifTrue:[
  2735     ImageMasterParent isNil ifTrue:[
  2670         ImageMasterParent := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir_gray.xpm').
  2736         ImageMasterParent := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir_gray.xpm').
  2671     ].
  2737     ].
  2672     ^ ImageMasterParent
  2738     ^ ImageMasterParent
  2673 
  2739 
  2674     "
  2740     "
  2675     ImageMasterParent := nil
  2741     ImageMasterParent := nil
  2676     "
  2742     "
  2677 
  2743 
  2678     "Modified: 28.7.1997 / 11:56:29 / cg"
  2744     "Modified: / 29.10.1997 / 03:36:47 / cg"
  2679 ! !
  2745 ! !
  2680 
  2746 
  2681 !UIPainter::TreeView class methodsFor:'documentation'!
  2747 !UIPainter::TreeView class methodsFor:'documentation'!
  2682 
  2748 
  2683 documentation
  2749 documentation