# HG changeset patch # User Claus Gittinger # Date 1458931013 -3600 # Node ID 175d2d7e95c5c09bd6f2ccf638a6347bf1a78a24 # Parent aa71a6bedaeebc67e9ef8f829140d6603ad4a435 #DOCUMENTATION class: UIPainter added: #doOpenAspectClassChooserFor: comment/format in:5 methods diff -r aa71a6bedaee -r 175d2d7e95c5 UIPainter.st --- a/UIPainter.st Fri Mar 25 16:53:26 2016 +0100 +++ b/UIPainter.st Fri Mar 25 19:36:53 2016 +0100 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 1995-1998 by eXept Software AG All Rights Reserved @@ -5420,7 +5422,8 @@ ! doBrowseActionMethod:aspectSelector - "browse or create the action method as entered in the field (button beside input filed pressed)" + "browse or create the action method as entered in the field + (button beside input field in ui-slice pressed)" self acceptOrIgnoreSectionModification. @@ -5430,7 +5433,8 @@ ! doBrowseActionMethod:aspectSelector nameAs:aspectNameShown - "browse or create the action method as entered in the field" + "browse or create the action method as entered in the field. + sent by embedded ui-slice's browse class button." |cls spec aspect code| @@ -5478,6 +5482,8 @@ ! doBrowseAspectClass: aspect + "sent by embedded ui-slice's 'browse'-class button (for example, subcanvasSpec)." + | spec className class | spec := painter specForSelection. @@ -5494,6 +5500,8 @@ ! doBrowseAspectClassAndSelector:classAspectAndSelectorAspect + "sent by embedded ui-slice's browse class button (for example, subcanvasSpec)." + | classAspect selector selectorAspect spec className class | classAspect := classAspectAndSelectorAspect first. "/ #(#majorKey #minorKey) @@ -5514,7 +5522,8 @@ ! doBrowseAspectMethod:aspectSelector - "browse or create the aspect method as entered in the field (button beside input fieled pressed)" + "browse or create the aspect method as entered in the field + (button beside input field pressed)" self isModified ifTrue:[ self accept ]. "/ self acceptOrIgnoreSectionModification. @@ -6072,6 +6081,23 @@ "Modified: / 31-08-2006 / 10:14:10 / cg" ! +doOpenAspectClassChooserFor: aspect + "open a class chooser; when ok, set the aspect to its name + sent by embedded ui-slice's '...'-class button (for example, subcanvasSpec)." + + | spec className class choice| + + spec := painter specForSelection. + spec isNil ifTrue:[ self error: 'No spec!!'.]. + className := spec perform: aspect. + class := self resolveName: className inClass: specClass. + choice := Dialog requestClassName:'Choose class' initialAnswer:(class isNil ifTrue:nil ifFalse:[class name]). + choice isEmptyOrNil ifTrue:[^ self ]. + + spec perform: (aspect asMutator) with:choice. + (specTool aspectFor:aspect) value:choice. +! + doOpenWidgetDocumentation "opens documentation for the selected widget"