home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / iconselect.tcl < prev    next >
Encoding:
Text File  |  1996-08-28  |  1.6 KB  |  66 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)iconselect.tcl    1.7
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)iconselect.tcl    1.7   12 Mar 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14.  
  15. Class IconSelector : {TemplateDialog} {
  16.     method destructor
  17.     constructor
  18.     method select
  19.     method popUp
  20.     attribute image
  21.     attribute size
  22. }
  23.  
  24. method IconSelector::destructor {this} {
  25.     # Start destructor user section
  26.     # End destructor user section
  27. }
  28.  
  29. constructor IconSelector {class this name size} {
  30.     set this [TemplateDialog::constructor $class $this $name]
  31.     $this size $size
  32.     return $this
  33. }
  34.  
  35. method IconSelector::select {this forImage} {
  36.     $this image $forImage
  37.     $this popUp
  38. }
  39.  
  40. method IconSelector::popUp {this} {
  41.     
  42.     if {![isCommand $this.HCP]} {
  43.         HorControlPanel new $this.HCP
  44.     
  45.         set path [path_name concat [m4_var get M4_home] bitmaps]
  46.         set path [path_name concat $path *_[$this size] \
  47.             [string trim $BITMAP_EXT "."]]
  48.         set bitmaps [glob $path]
  49.         set count 1
  50.         foreach i $bitmaps {
  51.             lappend names [path_name base $i]
  52.             incr count
  53.         }
  54.         $this.HCP rowCount [ expr {$count/10}]
  55.         $this.HCP entrySet $names
  56.         $this modal Yes
  57.         $this okPressed {[%this image] pixmap [%this.HCP selected]}
  58.         $this helpPressed {.main helpOnName iconSelector}
  59.     }
  60.     
  61.     $this TemplateDialog::popUp
  62. }
  63.  
  64. # Do not delete this line -- regeneration end marker
  65.  
  66.