From aa4022a388d07e718331f5a593fc2ed6e0572fa9 Mon Sep 17 00:00:00 2001 From: fvogel Date: Mon, 6 Mar 2017 18:30:38 +0000 Subject: =?UTF-8?q?Updated=20patch=20from=20Ren=C3=A9=20Zaumseil,=20now=20?= =?UTF-8?q?consistent=20with=20the=20proposed=20implementation=20at=20http?= =?UTF-8?q?://wiki.tcl.tk/20059?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- generic/ttk/ttkButton.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/generic/ttk/ttkButton.c b/generic/ttk/ttkButton.c index c00754b..ef55ec3 100644 --- a/generic/ttk/ttkButton.c +++ b/generic/ttk/ttkButton.c @@ -23,6 +23,7 @@ typedef struct * Text element resources: */ Tcl_Obj *textObj; + Tcl_Obj *justifyObj; Tcl_Obj *textVariableObj; Tcl_Obj *underlineObj; Tcl_Obj *widthObj; @@ -56,6 +57,9 @@ typedef struct static Tk_OptionSpec BaseOptionSpecs[] = { + {TK_OPTION_JUSTIFY, "-justify", "justify", "Justify", + "left", Tk_Offset(Base,base.justifyObj), -1, + TK_OPTION_NULL_OK,0,GEOMETRY_CHANGED }, {TK_OPTION_STRING, "-text", "text", "Text", "", Tk_Offset(Base,base.textObj), -1, 0,0,GEOMETRY_CHANGED }, -- cgit v0.12