ExtendedComboBox.st
changeset 1847 80169c1985fd
parent 1830 66c131adec9b
child 1848 5256c7de1045
equal deleted inserted replaced
1846:e90341acd040 1847:80169c1985fd
  1178 openMenu
  1178 openMenu
  1179     "pull the menu - triggered from the button
  1179     "pull the menu - triggered from the button
  1180     "
  1180     "
  1181     |h w menuOrigin widgetPrfExt useableExt|
  1181     |h w menuOrigin widgetPrfExt useableExt|
  1182 
  1182 
  1183 "/[
       
  1184 "/|v|
       
  1185 "/
       
  1186 "/v := self container.
       
  1187 "/[v notNil] whileTrue:[
       
  1188 "/   v class == CodingExamples_GUI::GUIDemoExtendedComboBox::ApplicationSubView ifTrue:[
       
  1189 "/        self halt
       
  1190 "/   ].
       
  1191 "/   v := v container.
       
  1192 "/].
       
  1193 "/] value.
       
  1194 
       
  1195     openAction notNil ifTrue:[
  1183     openAction notNil ifTrue:[
  1196         openAction numArgs == 0 ifTrue:[
  1184         openAction numArgs == 0 ifTrue:[
  1197             openAction value
  1185             openAction value
  1198         ] ifFalse:[
  1186         ] ifFalse:[
  1199             openAction value:menuWidget
  1187             openAction value:menuWidget
  1514 ! !
  1502 ! !
  1515 
  1503 
  1516 !ExtendedComboBox class methodsFor:'documentation'!
  1504 !ExtendedComboBox class methodsFor:'documentation'!
  1517 
  1505 
  1518 version
  1506 version
  1519     ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.20 2000-09-05 20:50:03 cg Exp $'
  1507     ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.21 2000-09-19 11:48:48 cg Exp $'
  1520 ! !
  1508 ! !