--- a/extensions.st	Thu Jan 29 06:45:29 2015 +0000
+++ b/extensions.st	Thu Jan 29 07:18:39 2015 +0000
@@ -772,8 +772,10 @@
         ^ self stx_libtool_askForMethodCategory:question title:boxTitle okLabel:okLabel list:someCategories recentList:recentListOrNil initialAnswer:initialText     
     ].
     dialog := SmallSense::ProtocolSelectDialog new.   
-    dialog title: question.
-    dialog updateMatching.   
+    dialog title: (resources string: question).
+    dialog updateMatching.
+    dialog addButtonCancel.   
+    dialog addButtonAcceptWithLabel: (resources string: okLabel).  
     initialText notNil ifTrue:[ 
         dialog pattern: initialText.
         dialog selection: initialText. 
@@ -784,6 +786,7 @@
     "
 
     "Created: / 09-01-2015 / 10:44:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-01-2015 / 07:10:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Tools::NewSystemBrowser methodsFor:'user actions-events-SmallSense'!